Récupérer contenu plusieurs Textbox dans Tableau

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:

---

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 !

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:

---

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

---

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:zoubi: