XL 2016 boucle label et cellule

[dav59]

Bonjour les amis
je voudrais faire une boucle avec les labels et cellules
les labels de 1 à 61
les cellules de CX2 à CX62

exemple :

If Range("cx2").Value Like "95" Then
Controls("label1").BackColor = vbGreen
Else
Controls("label1").BackColor = vbRed
Label1.Visible = False
End If

 

[sylvanu]

Bonsoir Dav,
Vous n'auriez pas un petit fichier test ?
Sinon en aveugle :

For i = 1 To 61
    With Controls("label" & i)
        If Range("cx" & i + 1) Like "95" Then
            .BackColor = vbGreen
        Else
            .BackColor = vbRed
            .Visible = False
        End If
    End With
Next i

 

[job75]

Bonjour dav59,

Où se trouvent les Labels ? Dans un UserForm ou dans une feuille de calcul ?

Même question pour le code VBA.

A+

 

[dav59]

Bonjour le code se trouve dans l'userform avec les labels
Merci

 

[dav59]

Bonjour dav59,

Où se trouvent les Labels ? Dans un UserForm ou dans une feuille de calcul ?

Même question pour le code VBA.

A+

Bonjour le code se trouve dans l'userform avec les labels
Merci

 

[job75]

Le post #2 de sylvanu (que je n'avais pas vu) répond parfaitement à la question posée.

Bonne nuit.