Valeurs differentes dans nombreux textbox
popoldenouvion
-
12 mars 2013 à 19:54
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 12 mars 2013 à 22:31
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 12 mars 2013 à 22:31
A voir également:
- Valeurs differentes dans nombreux textbox
- Excel liste de valeurs - Guide
- Formule excel si compris entre plusieurs valeurs ✓ - Forum Excel
- 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
- La valeur relative de 9 dans 295 700 est - Forum Excel
- Vba textbox date format dd/mm/yyyy - Forum VB / VBA
1 réponse
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 742
12 mars 2013 à 22:31
12 mars 2013 à 22:31
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