Discussion :

[lidlkidjoe]

Bonjour et tout d'abord merci à l'attention que vous porterez à mon problème.

Voilà, je tente de compter les erreurs de saisie d'une textBox afin de rediriger l'utilisateur vers une ComboBox après 2 erreurs de saisies.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Valider_Click()
 
 
 
    Dim diametre As Integer
        If IsNumeric(Valeurmaille.Value) And Valeurmaille = 2 Or Valeurmaille = 6 Or Valeurmaille = 9 Or Valeurmaille = 12 Then
            diametre = Valeurmaille
            Unload Me
        Else
            MsgBox " Nous ne possédons que les diamètres   2,  6,  9   et   12 mm !" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & " Pour rappel, les valeurs entrées doivent être numériques. "
                With Valeurmaille
                .SelStart = 0
                .SelLength = Len(.Text)
                .SetFocus
                End With
 
        End If
 
End Sub

Je n'arrive pas à exprimer le comptage de mauvais saisie afin d'afficher une msgbox et rediriger l'utilisateur vers une Combobox.

Merci d'avance
Cdt.

[Philippe Tulliez]

Bonjour,
Pour garder la valeur d'une variable, tu peux faire précéder la variable par le mot clé Static et lorsque le maximum du compteur est atteint, sortir de la procédure. Il est également possible d'utiliser une variable de niveau Module ou Public

Je conseille la lecture de Utiliser les variables en VBA Excel

Petit exemple rapide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
   Static Counter As Byte
   Counter = Counter + 1
   If Counter > 3 Then
       MsgBox "Sortie vers ComboBox ": Counter = 0
     Else
       MsgBox "Vérification (compteur =" & Counter & ")"
   End If
End Sub

[unparia]

Bonjour
Ou encore utiliser la propriété Tag du bouton

On peut par contre légitimement se demander pourquoi inviter un utilisateur à saisir dans une textbox, contrôler cette saisie, puis l'inviter, s'il s'est trompé (un certain nombre de fois), à cliquer sur une combobox ..
Autant l'inviter d'emblée à sélectionner dans la combobox et ce d'autant qu'un clic est plus convivial qu'une saisie.

[Pierre Fauconnier]

[...]

On peut par contre légitimement se demander pourquoi inviter un utilisateur à saisir dans une textbox, contrôler cette saisie, puis l'inviter, s'il s'est trompé (un certain nombre de fois), à cliquer sur une combobox ..[...]

Dans le cadre d'un exercice piloté par ordinateur, on peut donner la possibilité à une personne de tenter x réponses avant de lui proposer le choix parmi y possibilités. On peut légitimement se demander pourquoi le monde devrait forcément être vu par notre petit bout étriqué de lorgnette.

[lidlkidjoe]

Bonjour M. Tulliez

Ca fonctionne parfaitement et merci pour les info. complémentaires.
Cdt.

[lidlkidjoe]

Bonjour Unparia

c'est un projet à l'école alors on fait un peu du code pour du code afin de montrer qu'on sait gérer vba.

[Philippe Tulliez]

Bonjour Jacques,

On peut par contre légitimement se demander pourquoi inviter un utilisateur à saisir dans une textbox, contrôler cette saisie, puis l'inviter, s'il s'est trompé (un certain nombre de fois), à cliquer sur une combobox ..
Autant l'inviter d'emblée à sélectionner dans la combobox et ce d'autant qu'un clic est plus convivial qu'une saisie.

Je suis d'accord avec toi.
Personnellement, j'utilise une fonction booléenne qui vérifie si tous les TextBox ont été rempli en fonction de critères définis dans la propriété Tag de chaque TextBox
J'ai simplement répondu à une demande ponctuelle