Re : remplissage d'une listbox
merci, effectivement je l'ai retiré du code car cela ne fonctionne pas,
en remplacant dans le code la cellule.offset (0,0) comme suit :
If cellule.Offset(0, -1).Value Like "O" Then
ListBox2.AddItem .Range("b" & cellule.Row).Value
End If
dés que je lance la macro...une erreur se produit, de plus j'aimerais savoir, si on peut comparer la couleur par rapport à la cellule precedente du genre :
If cellule.Offset(0, -1).interior.colorindex <> cellule.offset(0,0).value Then
ListBox2.AddItem .Range("b" & cellule.Row).Value
End If
mais rein ne fonctionne, je ne comprends pas, merci d'avance pour votre aide
Cordialement
Jammy