Probleme sur code colorindex

[carlos]

Bonsoir

J'ai raté qque chose mais quoi ?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

For Each cell In Range('EleveClasse')
If ListBox1.Value = cell Then cell.Offset(0, -1).ColorIndex = 26

Next
End sub

Merci

 

[ChTi160]

Salut'carlos
il te manque juste le
cell.Offset(0, -1).Interior.ColorIndex = 26
bonne nuit
Jean Marie

 

[carlos]

Merci et bonne soirée