valeurs differentes dans nombreux textbox Fermé

Question

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.





Configuration: Windows XP / Chrome 25.0.1364.152

via55 · Answer

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

Valeurs differentes dans nombreux textbox

1 réponse

Discussions similaires