For next sur label et textbox

[ConsultantJP]

Bonjour à tous,

Je suis en train de faire un tentative infructieuse de next for sur des labels et textbox mais en vain je n'y arrive pas. Mon code bloque sur le label des le départ.

Savez vous ou est mon erreur ?

Merci

For i = 2 To 40
monlabel = Label(i)
Matxt = TextBox(i).Value
monTrt = Application.WorksheetFunction.VLookup(monlabel, Worksheets(2).Range("A2:B500"), 2)

Do While FeuilleResultat.Cells(IntegrationLigne, 1) <> ""
    IntegrationLigne = IntegrationLigne + 1
Loop
If Matxt <> "" Then

FeuilleResultat.Cells(IntegrationLigne, 4).Value = "WP"
FeuilleResultat.Cells(IntegrationLigne, 5).Value = "Transactionnel"
FeuilleResultat.Cells(IntegrationLigne, 6).Value = monlabel

FeuilleResultat.Cells(IntegrationLigne, 7).Value = Matxt
FeuilleResultat.Cells(IntegrationLigne, 8).Value = Application.UserName
FeuilleResultat.Cells(IntegrationLigne, 9).Value = monTrt

FeuilleResultat.Cells(IntegrationLigne, 10).Value = monTrt * Matxt
End If
Next i

 

[PascalXLD]

Re : For next sur label et textbox

Bonjour

si tes labels sont nommés label1 labek2 etc tu peux faire

for 1 = 2 to 40
monlabel=controls("Label" & i)

 

[ConsultantJP]

Re : For next sur label et textbox

Merci pascal , je viens d'essayer cela ne fonctionne pas, ça me dit toujours fonction ou sub non défini, je vais vérifier tout de meme que le souci ne vient pas d'ailleurs ...

 

[ConsultantJP]

Re : For next sur label et textbox

Je prend pas en comopte mon dernier message, en faisant la meme chose avec la textbox ça fonctionne, un grand merci je ne connsaissait pas cette subtilité !!!

 

[PascalXLD]

Re : For next sur label et textbox

Re

Oups oui j'avais donné comme exemple le label mais il fallait bien sûr faire de même pour les textbox 😀

 

[ConsultantJP]

Re : For next sur label et textbox

Juste un petit up pour savoir si ça marche aussi sur les checkbox car je n'ai pas reussi .

Merci

 

[ConsultantJP]

Re : For next sur label et textbox

ce sera mieux avec mon code raté :

Private Sub ComboBox1_Change()
Dim i
Dim valeur
Dim MaChk

If ComboBox1.Value = "Souscription" Then
'Souscription representé sur la colonne B
For i = 2 To 21
valeur = Sheets("MotifDeSuspens").Range("B" & i)
MaChk = Controls("CheckBox" & i)

MaChk.Caption = valeur
Next
End If

End Sub

 

[PascalXLD]

Re : For next sur label et textbox

re

essaies en remplaçant

MaChk = Controls("CheckBox" & i)
MaChk.Caption = valeur

par

Controls("CheckBox" & i).Caption = valeur

 

[ConsultantJP]

Re : For next sur label et textbox

Oki merci pascal ! super !

 

[tototiti2008]

Re : For next sur label et textbox

BOnjour à tous,

MaChk étant un objet, il ne manquerait pas un Set, là-dedans ??

Set Machk = Controls("CheckBox" & i)

??

 

[PascalXLD]

Re : For next sur label et textbox

re

oui tout à fait

c'est vrai que j'ai fait au plus court sans expliquer le pourquoi ça ne marchait pas