Itération de variable dans UserForm

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:

---

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:

---

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:

---

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

---

Quelqu'un peut-il me donner la solution ?

Merci d'avance
Céline

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

Bonjour Philippe,

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

Code:

---

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

Bonjour,

Citation:

---

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