XL 2016 boucle label et cellule

dav59 · 13 Avril 2021

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 · 13 Avril 2021

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

VB:

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 · 13 Avril 2021

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 · 13 Avril 2021

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

dav59 · 13 Avril 2021

job75 à dit:
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 · 13 Avril 2021

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

Bonne nuit.

XL 2016 boucle label et cellule

dav59

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

dav59

XLDnaute Nouveau

dav59

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires