Discussion :

[GuillaumeNcy]

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 :

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

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 :

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

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 !

[Philippe Tulliez]

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

[GuillaumeNcy]

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 :

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

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..

[Philippe Tulliez]

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

[Benji-34]

Bonjour,
Deux problemes me surpassent snifff

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 .

VBA STATISTIQUE TEST CHECKBOX.xlsm

[Benji-34]

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