Suppression de plage variable

[Temjeh]

Bonjour à tous

Quelle est mon erreur dans:

Dim cel As Range
For Each cel In Range('A1:A5000')
If cel.Value = 'Absents' Then
Range('A1:' & cel.Value).Select
Selection.Delete Shift:=xlUp
End If
Next

J'ai tout essayé les facons

Merci et bon Jeudi de paye

Temjeh

 

[PascalXLD]

Bonjour

essaies en remplaçant

Dim cel As Range
For Each cel In Range('A1:A5000')
If cel.Value = 'Absents' Then
Range('A1:A' & cel.row).Select
Selection.Delete Shift:=xlUp
End If
Next

essaies même en supprimant le select

Dim cel As Range
For Each cel In Range('A1:A5000')
If cel.Value = 'Absents' Then
Range('A1:A' & cel.row).Delete
End If
Next

 

[Temjeh]

Merci beaucoup tu as été plus vite que moi

Après 15 min je venais enfin de pensé à:

Range('a1:' & cel.Address).Select

Merci beaucoup pour ta rapidité

Temjeh

 

[Temjeh]

Merci encore voilà le final

Dim cel As Range
For Each cel In Range('A1:A5000')
If cel.Value = 'Absents' Then
Range('A1:A' & cel.Row).Select
Selection.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next

Temjeh