Problème Else sans IF

Résolu/Fermé
Elouna - 9 nov. 2010 à 12:13
 Elouna - 9 nov. 2010 à 12:24
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 mardi 3 mars 2009 Statut Membre Dernière intervention 25 novembre 2015 12
9 nov. 2010 à 12:22
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
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