Condition si .offset(0,1) fait partie de la plage

Bpnsoir à tous

J'Ai une liste de validation(nom=Plage) sur toute la col B qui n'est pas barré donc je peut y mettre autre chose que item de la liste)
J'ai ceci qui bug juste a Plage(si item)

Dim cel As Range
For Each cel In Range('A1:A1000')
If cel = Range('A65536').End(xlUp).Row Then Resume
On Error GoTo Fin
If cel.Offset(0, 1) = Plage Then
cel.Select
With Selection.Font
.Strikethrough = True
End With
End If
Next cel
Fin:
Merci

Ok merci j'ai trouvé avec NB.SI en MFC
A+
temjeh

Message édité par: Temjeh, à: 29/04/2006 03:55

Message édité par: Temjeh, à: 29/04/2006 12:30