T
Temjeh
Guest
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
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