Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Indicer Label et Textbox Exemple:label(L) et textbox(L)

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

2 réponses
Avatar
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

J'ai =E0 l'=E9criture de :
TextBox & (L) =3D Cells(i, no_colonne).Value
Label & (L) =3D Cells(i, 2).Value

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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
DanielCo
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
Avatar
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"



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