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

[Temjeh]

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

 

[Hervé]

Re:Condition si .offset(0,1) fait partie de la pla

Salut temjeh

vraiment pas sur d'avoir compris ce que tu voulais, mais peut etre comme ceci :

Dim cel As Range, c As Range

For Each cel In Range('A1:A' & Range('A65536').End(xlUp).Row)
        For Each c In Range('plage')
                If cel.Offset(0, 1) = c Then
                        cel.Font.Strikethrough = True
                End If
        Next c
Next cel

salut