Valeurs differentes dans nombreux textbox
popoldenouvion
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
Bonjour, j'ai une trentaine de textbox à remplir avec des valeurs allant de 1 à 100 mais comment faire pour qu'aucun n'ait la valeur d'un autre et que l'on ne puisse saisir que ces valeurs de 1 à 100. En VBA EXCEL.
Merci par avance à toutes celles et ou ceux qui pourront m'aider.
Bien cordialement.
Merci par avance à toutes celles et ou ceux qui pourront m'aider.
Bien cordialement.
1 réponse
-
Bonsoir
Une piste
Code à mettre pour chaque Textbox
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Locked = True Then Exit Sub ' sors de la sub si déjà validé
'si valeur entrée est entre 1 et 100
If TextBox1.Value >= 1 And TextBox1.Value <= 100 Then
If g(TextBox1.Text) = 1 Then MsgBox ("donnée non valide"): TextBox1.Value = 0: Exit Sub 'si nombre déjà pris
g(TextBox1.Value) = 1 'marque la valeur comme prise dans le tableau g des 100 valeurs possibles
TextBox1.Locked = True ' Empêche une nouvelle saisie dans ce textbox
Exit Sub
End If
MsgBox ("Entrer un nombre entre 1 et 1OO"): TextBox1.Value = 0 'empeche de rentrer autre chose qu'un nombre entre 1 et 100
End Sub
Ne pas oublier de déclarer la variable g dans un module :
Dim g(100) as integer
Cdlmnt
