Problème colorer cellule

[rudy78]

Bonsoir à tous les XLDnautes
J'ai un petit souci avec un bout de code pour colorer une cellule en jaune avec des conditions:

If Me.OptionButton1 = True Then
.Range('N' & L) = 'ý'
With Worksheets('WSName').Range('S' & L)
.Interior.Color = RGB(255, 255, 0)
End With
End If

le problème c ke ma cellule contient bien la case à cocher ý en Wingdings mais elle n'est pas colorée!

pouvez vous m'aider?
Merci d'avance

 

[pierrejean]

peut-etre parceque NL est different de SL

 

[rudy78]

bonsoir & merci pierrejean
mais nan c normal pour le NL et le SL

merci c gentil kan même

 

[Bebere]

bonsoir
essaye le code suivant(?)
With Worksheets('WSName')
if Me.OptionButton1 = True Then
if.Range('N' & L) = 'ý' then

.Range('S' & L).Interior.Color = RGB(255, 255, 0)
End If
End If
End With
si problème met un fichier - de 50k zippé(compressé)
à bientôt

 

[RUDY78]

Merci bebere!

Au final c'était tout bête g fais ça :

If Me.OptionButton1 = True Then
.Range('N' & L) = 'ý'
.Range('S' & L).Interior.Color = RGB(255, 255, 0)
End If

et ça fonctionne nickel


Merci et bonne soirée