Indicer Label et Textbox Exemple:label(L) et textbox(L)
Le
JP

Bonjour,
Dans la boucle de la macro Private Sub ComboBox1_Change(), je voudrais indi=
cer les label et les textbox pour écrire dans:
Label1 et Textbox1
Label2 et Textbox2
etc
J'ai à l'écriture de :
TextBox & (L) = Cells(i, no_colonne).Value
Label & (L) = Cells(i, 2).Value
le message d'erreur suivant: "erreur de compilation" et "Attendu: Expressio=
n"
Comment puis-je solutionner le problème.
Merci
JP
Private Sub UserForm_Initialize()
nb = Sheets("Feuil1").Range("AE3").Value
For i = 4 To nb
ComboBox1.AddItem Sheets("Feuil1").Cells(3, i)
Next i
End Sub
Private Sub ComboBox1_Change()
'ListBox1.Clear
Dim no_colonne, nb, L As Integer
no_colonne = ComboBox1.ListIndex + 4
nb = Cells(9, 2).End(xlDown).Row
L = 1
For i = 9 To (nb - 7) * 9 Step 9
If Cells(i, no_colonne) <> "" Then
' ListBox1.AddItem Sheets("Feuil1").Cells(i, no_colonne).Value '=
ComboBox1.ListIndex = 0
MsgBox " i = " & i & " N° colonne = " & no_colonne
TextBox & (L) = Cells(i, no_colonne).Value
Label & (L) = Cells(i, 2).Value
L = L + 1
Else
End If
Next i
End Sub
Dans la boucle de la macro Private Sub ComboBox1_Change(), je voudrais indi=
cer les label et les textbox pour écrire dans:
Label1 et Textbox1
Label2 et Textbox2
etc
J'ai à l'écriture de :
TextBox & (L) = Cells(i, no_colonne).Value
Label & (L) = Cells(i, 2).Value
le message d'erreur suivant: "erreur de compilation" et "Attendu: Expressio=
n"
Comment puis-je solutionner le problème.
Merci
JP
Private Sub UserForm_Initialize()
nb = Sheets("Feuil1").Range("AE3").Value
For i = 4 To nb
ComboBox1.AddItem Sheets("Feuil1").Cells(3, i)
Next i
End Sub
Private Sub ComboBox1_Change()
'ListBox1.Clear
Dim no_colonne, nb, L As Integer
no_colonne = ComboBox1.ListIndex + 4
nb = Cells(9, 2).End(xlDown).Row
L = 1
For i = 9 To (nb - 7) * 9 Step 9
If Cells(i, no_colonne) <> "" Then
' ListBox1.AddItem Sheets("Feuil1").Cells(i, no_colonne).Value '=
ComboBox1.ListIndex = 0
MsgBox " i = " & i & " N° colonne = " & no_colonne
TextBox & (L) = Cells(i, no_colonne).Value
Label & (L) = Cells(i, 2).Value
L = L + 1
Else
End If
Next i
End Sub
Me.Controls("TextBox1" & L) = Cells(i, no_colonne).Value
Me.Controls("Label" & L) = Cells(i, 2).Value
Cordialement.
Daniel
JP
Le dimanche 11 novembre 2012 10:28:04 UTC+1, JP a écrit :