Quelle macro pour effacer lignes si AO = 0,000€

[Christian]

Bonjour à tout le forum,

Pourriez-vous m'aider à l'écriture d'une macro afin d'effacer toute les lignes, si en colonne AO les cellules sont égales à 0,000€ ?.

Merci beaucoup pour votre aide,

Bien amicalement
Christian

 

[ERIC S]

bonsoir

tu peux essayer :

Sub essai()
derligne = Range('A65536').End(xlUp).Row
i = 1
While i <= derligne
Range('a' & i).Select
If ActiveCell.Value = 0 Then
ActiveCell.EntireRow.Delete shift:=xlUp
i = i - 1
derligne = derligne - 1
End If
i = i + 1
Wend
End Sub



A+

 

[Christian]

Bonsoir à tout le forum,
Bonsoir Eric S,

Merci pour ta réponse, Eric S, mais ça ne fonctionne pas.
En fait je voudrais effacer les lignes de leur contenu si le total en colonne,AO est égal à 0,000€.

Merci pour ton aide, et votre aide...

à bientôt j'espère

Bien amicalement,
Christian

 

[ERIC S]

Re

joins un exemple ce sera plus simple, sinon effectivement dans mon code j'ai regardé en colonne A et non AO.

Si c'est le cas remplace A par AO dans

derligne=...
et
range('A....

A+

 

[Christian]

ReBonsoir à tout le forum, Eric S,


Je te joins un fichier exemple car je n'arrive pas à modifier le code...suis nul

Je te remercie à nouveau
Bien amicalement
Christian [file name=MACROEFFACE.zip size=11927]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MACROEFFACE.zip[/file]

 

[ERIC S]

Re

sur le fichier join, lance la macro. j'ai mis 2 lignes différentes de zéro car toutes tes lignes étaient nulles.

La macro supprime les lignes où la cellule A0 est nulle

A+ [file name=MACROEFFACE_20060108193554.zip size=13498]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MACROEFFACE_20060108193554.zip[/file]

 

[Christian]

Re,

Merci Eric S pour tout...
ça marche impec.

Amitiés,
Christian