Gestion backcolor sur Checkbox

Bonjour à tous

j'aimerais mettre en place une petite fonctionnalité 'visuelle' sur mon formulaire.

La procédure ci dessous récupère les données d'une feuille Excel, nommée 'Base'.

Le nom de la Checkbox qui reçoit la veleur de la feuille excel est saisi dans la ligne 1 colonne c (c variant de 6 à ColFin (dernière colonne))

Si la cellule contient 'OUI', on flague la CB correspondante, si la valeur est différente, je souhaiterai mettre en gris par exemple le fond de la CB. Hélas, le code saisi ne fonctionne pas, à mon grand désespoir et je ne sais pas pourquoi.

Qq'un peut-il jeter un oeil SVP?

Je mettrai le fichier en ligne si vraiment c'est necessaire dans un deuxième temps, mais je préfère éviter.

Merci

Frederic

Sub RecupAna()
'Récupère les analyses de l'échantillon = partie basse
Dim c As Integer

ColFin = WsBase.Range("A1").End(xlToRight).Column

  For c = 6 To ColFin

    If WsBase.Cells(NumLigne, c).Value = "OUI" Or WsBase.Cells(NumLigne, c).Value = "DV" Then
        Me.Controls(WsBase.Cells(1, c).Value) = True
    ElseIf WsBase.Cells(NumLigne, c).Value <> "" Then
        Me.Controls(WsBase.Cells(1, c).Value) = False

        'Me.Controls(WsBase.Cells(1, c).BackColor) = RGB(125, 125, 125) ============== bug!

    End If

  Next c

End Sub

Bonjour,

Tu peux essayer

Me.Controls(WsBase.Cells(1, c).Value).BackColor = RGB(125, 125, 125)

A+

Bonjour Frangy

çà marche!

merci

Frederic