Boucler sur des textbox

Bonjour à tous,

J'ai 15 textbox dans une userform.

Je souhaite qu'elles soient complétée une par une, donc à l'évenement UserForm_Initialize() je cache toutes les textbox sauf la premiere :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() Dim ctrl As Object For Each ctrl In UserForm3.Controls If TypeName(ctrl) = "TextBox" Then ctrl.Visible = False End If Next TextBox1.Visible = True End Sub

---

Jusqu'ici tout va bien.

Ensuite, au fur et à mesure que l'utilisateur rempli les textbox, je veux faire apparaitre la textbox suivante : il remplit la premiere, appuie sur entrée : la deuxieme textbox s'affiche etc...
Je sais le faire pour une textbox :

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)   TextBox1.Font.Size = 20 If (KeyCode = 13) And TextBox1.Text <> "" Then TextBox2.Visible = True End If End Sub

---

Mais comme vous le voyez cette sub ne concerne que la textbox1.

Ma question :
Est-il possible d'appliquer cette sub à toutes mes textbox sans devoir copier/coller 15 fois le code en remplaçant l'indice de la textbox?
Merci d'avance pour vos lumière !

Bonjour,
A lire Utiliser les contrôles dans un UserForm, en VBA Excel et tout particulièrement I-B. Boucler sur les contrôles contenus dans la Forme

Bonjour,
Merci pour ta réponse.
Comme tu as pu le voir dans mon code posté précédemment, je sais boucler sur des textbox.

Ma question n'était pas posée clairement.

Ce qu'il me manque je pense c'est l'évenement "passez d'une textbox à l'autre" ou quelque chose comme ça.

J'ai écrit ceci pour l'instant :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim i As Integer For i = 1 To 14 If (KeyCode = 13) And UserForm3.Controls("TextBox" & i).Value <> "" Then UserForm3.Controls("TextBox" & i + 1).Visible = True End If Next i TextBox2.Visible = True End Sub

---

Cela fonctionne uniquement lorsque je remplis la textbox 1 : la textbox 2 apparait. (vu que l'évenement concerne la textbox1).
Il faudrai que cette procédure soit appelé a chaque fois que je saisie du texte dans une textbox.. je continu de fouiller les évenements textbox..

Bonjour,
Donc ce n'est pas boucler sur les contrôles TextBox que tu cherches mais ne pas répéter les procédures événementielles.
Il faut alors passer par un module de classe.
A lire plusieurs tutoriels sur le sujet référencer dans la faq

Bonjour,
Deux problemes me surpassent :( snifff :calim2:

N°1 : dans mon module (ajouter / modifier ) je n'arrive pas a intégrer une boucle sur les checkboxs ( 1 à 15 ) qui rendent la valeur "1" qd ils sont cochés ou "" non cochés et cela dans des colonnes consecutives la 1ere étant "U".

N°2 : j'aimerai que la "formule SI " situé dans la 1ere ligne , soit aussi dans toutes les lignes suivantes ( difference de 2 valeur de textbox date) , 8 colonnes consecutives concernées.


je joins mon fichier , vous remerciant par avance de votre aide :oops::oops::oops: .

Pièce jointe 182748

je ne sais pas si j'ai posé mon probleme au bon endroit :( , ou alors mon petit problème n'interaisse personne :roll: