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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24952402
Bonjour,

Me.Controls("TextBox1" & L) = Cells(i, no_colonne).Value
Me.Controls("Label" & L) = Cells(i, 2).Value

Cordialement.
Daniel



Bonjour,

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
Le #24952382
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"



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
Publicité
Poster une réponse
Anonyme