Problème Else sans IF

Résolu
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


2 réponses

Colbi97 Messages postés 564 Date d'inscription   Statut Membre Dernière intervention   12
 
Bonjour,
Tout d'abord, il ne faut pas de ":" après Else et de plus, un petit End If serait bien avant le Wend (ce serait "plus propre"...)
0
Elouna
 
Les ":" se mettaient en automatique, par contre ça marche si je mets mon Else sur la même ligne que le If, merci beaucoup!
0