Indicer Label et Textbox Exemple:label(L) et textbox(L)
2 réponses
JP
Bonjour,
Dans la boucle de la macro Private Sub ComboBox1_Change(), je voudrais indi=
cer les label et les textbox pour =E9crire dans:
Label1 et Textbox1
Label2 et Textbox2
... etc
le message d'erreur suivant: "erreur de compilation" et "Attendu: Expressio=
n"
Comment puis-je solutionner le probl=E8me.
Merci=20
JP
Private Sub UserForm_Initialize()
nb =3D Sheets("Feuil1").Range("AE3").Value
For i =3D 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 =3D ComboBox1.ListIndex + 4
nb =3D Cells(9, 2).End(xlDown).Row
L =3D 1
For i =3D 9 To (nb - 7) * 9 Step 9
If Cells(i, no_colonne) <> "" Then
' ListBox1.AddItem Sheets("Feuil1").Cells(i, no_colonne).Value '=
ComboBox1.ListIndex =3D 0
MsgBox " i =3D " & i & " N=B0 colonne =3D " & no_colonne
TextBox & (L) =3D Cells(i, no_colonne).Value
Label & (L) =3D Cells(i, 2).Value
L =3D L + 1
Else
End If
Next i
End Sub
Dans la boucle de la macro Private Sub ComboBox1_Change(), je voudrais indicer 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: Expression"
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
indicer 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: Expression"
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 indicer 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: Expression"
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
JP
Merci Daniel, c'est très bien.
JP
Le dimanche 11 novembre 2012 10:28:04 UTC+1, JP a écrit :
Bonjour,
Dans la boucle de la macro Private Sub ComboBox1_Change(), je voudrais in dicer 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: Express ion"