renseigner des textbox avec numéro incrémenté

Bonjour,

j'ai une liste de 14 lignes 3 colonnes
colonne 1 : nom du service (label 1 à 14)
colonne 2 : responsable du service (textbox 1 a 14)
colonne 3 : adjoint (textbox 15 à 28)

le but est d'ouvrir un userform permettant de modifier les noms des colonnes 2 et 3

pour cela je veux récupérer les informations stockées dans ma feuille excel (et pas modifier sur la feuille excel elle-même)

voici ce que j'ai rentré pour récupérer les données

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize() Dim a As Integer a = 1 While a < 15 a = a + 1 Label & a.Caption = Sheets("LISTES DEROULANTES").Range("AA" & a + 3).Value TextBox & a.Value = Sheets("LISTES DEROULANTES").Range("AB" & a + 3).Value TextBox & a + 14.Value = Sheets("LISTES DEROULANTES").Range("AC" & a + 3").Value   wend   End Sub

---

mais le "& a" ne fonctionne pas.

pourriez-vous m'apporter votre aide?

Cordialement

j'ai trouvé....

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize() Dim a As Integer a = 0 While a < 14 a = a + 1 Me.Controls("Label" & a) = Sheets("LISTES DEROULANTES").Range("AA" & a + 3).Value Me.Controls("textbox" & a) = Sheets("LISTES DEROULANTES").Range("AB" & a + 3).Value Me.Controls("textbox" & a + 14) = Sheets("LISTES DEROULANTES").Range("AC" & a + 3).Value Wend   End Sub

---