none
Sélection "Cellule" RRS feed

  • Question

  • Scenario "Inscription"

    Ø Démarrage des inscriptions

    -        Clic dans la cellule "B6" => MsgBox "Voulez-vous inscrire une équipe ?" => Oui

    -        La protection de la feuille est désactivée. "B6" prends la valeur 1 et le curseur se place dans la cellule "C6" pour noter le nom de l'équipe => Enter

    -        MsgBox "Voulez-vous continuez les inscriptions ?" => Oui

    "B7" prends la valeur de "B6" + 1 et le curseur se place dans la cellule "C7" pour noter le nom de l'équipe => Enter

    -        MsgBox "Voulez-vous continuez les inscriptions ?" => Non => Fin des inscriptions

    La protection de la feuille est activée.

    Ø Reprise des inscriptions

    -        Clic dans la première cellule libre de la colonne "B" => MsgBox "Voulez-vous inscrire une équipe ?" => Oui => La protection de la feuille est désactivée.

    Cette cellule prends la valeur de la dernière cellule "B" puis ajoute 1 et le curseur se place dans la cellule de la colonne "C" contigüe pour noter le nom de l'équipe => Enter

    -        MsgBox "Voulez-vous continuez les inscriptions ?" => Oui

    "B" prends la valeur de la cellule précédente de la colonne "B" puis ajoute 1 et le curseur se place dans la cellule "C" contigüe pour noter le nom de l'équipe => Enter

    -        MsgBox "Voulez-vous continuez les inscriptions ?" => Non => Fin des inscriptions

    -        La protection de la feuille est activée.

    -        Tout cela fonctionne parfaitement. De plus, lorsque l'on clique dans une cellule de la colonne "B" autre que la première libre, MsgBox "Voulez-vous inscrire une équipe ?" apparaît et que l'on clique sur Oui, la première cellule libre de la colonne "B" prend bien la valeur suivante.

     

    -         Maintenant le seul problème est que le curseur ne se mets pas dans la cellule de la colonne "C" contigüe à la "B". Le souci est seulement dans la dernière parte du code (Voulez-vous inscrire une équipe ?). Comme le code est fait, c'est normal. Il me manque quelques connaissances.

    Merci pour votre aide.

    dimanche 26 mai 2019 13:08

Réponses

  • bonjour,

    j'ai trouvé une solution.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

          If Teste = True Then Range(ResAdr).Select

          Dim MessInscription As Variant

          If Target.Count = 1 And Target.Column = 2 And Sheets("Tirage").ProtectContents = True Then
                
                MessInscription = MsgBox("Voulez-vous inscrire une équipe ?", vbInformation + vbYesNo, "Inscription")

                If MessInscription = vbYes Then
                      Sheets("Tirage").Unprotect
                            If Range("B6") = "" Then
                                  Range("B6").Select
                                  Range("B6").Value = 1
                                  Target.Offset(, 1).Select
                            Else
                                  Cells(Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row + 1, 2).Value = _
                                  Application.WorksheetFunction.Max(Range("B:C")) + 1
                                  Range("B" & ActiveSheet.Rows.Count).End(xlUp).Select
                                  Target.Offset(, 1).Select
                                  Range("C" & ActiveSheet.Rows.Count).End(xlUp).Select
                            Exit Sub
                            End If
                End If
          End If
    End Sub

    jeudi 13 juin 2019 16:07