Discussion :

[Ben King Bob]

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 :

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

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

[Ben King Bob]

j'ai trouvé....

Code :

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

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