Problème Else sans IF
Résolu
Elouna
-
Elouna -
Elouna -
Bonjour,
Pouvez-vous svp me dire ce qui ne va pas avec cette macro pourtant simple?
Merci d'avance
Sub Macro
Range("R10").Activate
While ActiveCell.Value <> Empty
If ActiveCell.Value <> "2042" Then ActiveCell.EntireRow.Delete Shift:=xlUp
Else: ActiveCell.Offset(1, 0).Activate
Wend
End Sub
Pouvez-vous svp me dire ce qui ne va pas avec cette macro pourtant simple?
Merci d'avance
Sub Macro
Range("R10").Activate
While ActiveCell.Value <> Empty
If ActiveCell.Value <> "2042" Then ActiveCell.EntireRow.Delete Shift:=xlUp
Else: ActiveCell.Offset(1, 0).Activate
Wend
End Sub