Discussion :

[celinepug]

Bonjour, à tous,

J'ai créé un UserForm afin de récupérer des informations de la part des utilisateurs, il se trouve que j'ai 15 variables de même nature (chiffres).
J'ai donc 15 TextBox qui vont récupérer les infos, portant respectivement le nom de : Variable_1, Variable_2, etc...

Imaginons que l'utilisateur rentre le chiffre 33 dans la première TextBox, pour récupérer ce chiffre le code est par exemple :

Code :

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

MsgBox Variable_1

, la message box affiche 33.

J'ai besoin de faire des vérifications sur les 15 variables, je pensais donc mettre le numéro de la variable en variable afin d'obtenir une boucle sur mes TextBox pour cela j'ai utilisé le code CStr() ce qui me donne :

Code :

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

1
2
For i = 1 à 15
If "Variable_1" & CStr(i) <> "" then .....

Seulement le programme considère la valeur de "Variable_1" & CStr(i) comme étant Variable_1 et non pas sa valeur 33.

J'ai essayé plusieurs syntaxes mais ne trouve pas ex.

Code :

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

If ("Variable_" & CStr(i)).value

Quelqu'un peut-il me donner la solution ?

Merci d'avance
Céline

[Philippe Tulliez]

Bonjour,
Si j'ai bien lu, ce que tu nommes "Variable" est en réalité un contrôle TextBox.
Tu souhaites donc parcourir la valeur de tes 15 contrôles nommés (Variable_1, Variable_2, etc. ). Je te suggère si j'ai bien compris ta question de les nommer d'une façon moins exotiques afin de t'y retrouver par la suite dans ton code.
Voir ce chapitre Boucler sur les contrôles contenus dans la Forme du tutoriel Utiliser les contrôles dans un UserForm, en VBA Excel

[celinepug]

Bonjour Philippe,

Je te remercie pour ta réponse, j'ai donc appliqué le code :

Code :

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

1
2
3
4
5
Dim Ctrl As Control
 
For Each Ctrl In NB_LINGNES.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then MsgBox Ctrl.Object.Value
Next Ctrl

Seulement mon UserForm comporte deux pages y-t-il un moyen de boucler sur une page précise, NB_LINGNES est le nom de l'UserForm, la page sur laquelle la boucle doit s'effectuer est nommée : Insertion_2, j'ai bien sûr essayé : Each Ctrl In Insertion_2.Controls mais ça ne fonctionne pas certainement il doit falloir changer le mot MSForms de la ligne suivante mais je ne sais pas par quoi le remplacer.

Merci de m'aider
Céline

[Philippe Tulliez]

Bonjour,

Seulement mon UserForm comporte deux pages y-t-il un moyen de boucler sur une page précise

Quand tu parles de pages dans ton UserForm, il s'agit du contrôle MultiPage.
Toujours dans le même tutoriel, lis le chapitre II-J. MultiPage