Valeurs differentes dans nombreux textbox
popoldenouvion
-
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14730 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.
A voir également:
- Valeurs differentes dans nombreux textbox
- Excel liste de valeurs - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif ci-dessous. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. il manque 5 valeurs dans le tableau ci-dessous. retrouvez-les dans votre tableau, puis reportez-les arrondies à l’entier le plus proche. - Guide
- Quand on visite cette page, des messages sont échangés entre le navigateur et le site web. des extraits des messages échangés lors de la première connexion sont reproduits ci-dessous. des valeurs ont été remplacées par des numéros. retrouvez chacune de ces valeurs. - Forum Windows 10
- Dans le document à télécharger, léa a utilisé 2 méthodes différentes pour centrer le nom des continents. lesquels sont centrés correctement ? ✓ - Forum Windows 10
- La valeur relative de 9 dans 295 700 est - Forum Excel
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
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
