Discussion :

[lennon71]

Bonjour à tous,
Plutôt débutant en vba, je n'arrive pas à trouver de solution sur internet à mon problème.

Contexte : j'ai un userform, nommé UF_ajoutControleur. Dans celui-ci, un multipage à 5 pages. La première page sert pour l'identification du controleur, elle contient 3 textbox(nommée TBNom, TBPrenom...) et une combobox. Les 4 autres pages contiennent chacune 3 textbox, dans lesquelles l'utilisateur va rentrer des dates sous la forme jj/mm/aaaa. Ces 12 textbox sont nommées TextBox1,...,Textbox12
Parmi ces 12 précédentes Textbox, l'utilisateur n'est pas obligé de tout remplir.

Le problème : Je voudrais stocker dans un tableau nommé TabDate le contenu de ces 12 textbox.

Le code actuel :

Code :

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

1
2
3
4
5
6
7
8
 
 
Dim i3 As Integer
Dim TabDate() As Variant
Redim TabDate(Nbre_Meth*3)
For i3 = 1 To Nbre_Meth * 3 'Ici Nbre_Meth vaut 4, donc i3 va de 1 à 12
      TabDate(i3) = UF_ajoutControleur.Controls("TextBox" & i3).Text
Next

J'ai essayé avec ou sans le .Text, mais quelquechose cloche, surement les types de variables qui ne sont pas bien définis

Toute aide est bienvenue, je peux reexpliquer si besoin !

[Thautheme]

Bonjour John, bonjour le forum,

Dans la fenêtre des Propriétés, il te faut donner, aux contrôles que l'utilisateur renseigne, une valeur à la propriété [Tag] correspondant à la colonne ou sera renvoyée la valeur du contrôle :
Exemple:
- Propriété [Tag] de la TextBox1 = A
- Propriété [Tag] de la TextBox2 = B
- ... etc
- Propriété [Tag] de la TextBox12 = L
tu adapteras à ton cas...

Ensuite, le code (à adapter) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
PLV = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définie la première ligne vide de la colonne A de l'onglet O
For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'userForm
    'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle dans la cellule
    'ligne = PLV / colonne = valeur de la propriété [Tag] du contrôle
    If CTRL.Tag <> "" Then O.Cells(PLV, CTRL.Tag).Value = CTRL.Value
Next CTRL 'prochaine contrôle de la boucle
End If 'fin de la condition
End Sub

[lennon71]

Bonjour Thautheme,
Sympa la méthode des tags, je ne connaissais pas ! Et ça a l'air de fonctionner

Merci bien, c'est agréable de voir sont problème résolu en 1/4 d'heure