Suppression lignes contenant valeur 0 sur plusieurs onglets

Bonjour,

J'ai un fichier excel comportant des statistiques sur la population ville par ville.

Une fois le document complété, je souhaiterai pouvoir, en cliquant sur un bouton, supprimer toutes les lignes du classeur comprenant la valeur 0.

Je joins le fichier pour une meilleure compréhension.

https://www.excel-pratique.com/~files/doc2/Forum_Excel_CM.xls

MERCI!

Bonjour,

une solution :

Sub Suppr_zero()
Dim Sh As Worksheet
For Each Sh In Sheets
    With Sh.Columns("B:B")
        .Replace What:="0", Replacement:="", LookAt:=xlWhole
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
Next Sh
End Sub

Bonjour,

Merci pour cette réponse.

Comment insérer ce code pour que cela fonctionne?

J'ai essayé de faire cela:

• création d'une nouvelle feuille
• "Visualiser le code"
• Coller le code que vous m'avez fourni
• Exécuter la macro correspondante

J'ai une erreur: "Microsoft Visual Basic 400"

Re-,

regarde le fichier joint...

Le code est dans le module 1 (Alt + F11 pour ouvrir l'éditeur VBE)

Et le bouton est un dessin issu de la barre d'outils "Dessins"

Clic droit sur le bouton, "Affecter une macro", et choisir la macro dans la boîte de dialogue

https://www.excel-pratique.com/~files/doc2/Forum_Excel_CM_2.xls

Nickel! je te remercie.

Re-bonjour,

J'ai un petit souci.

La macro efface toutes les lignes qui comportent 0 ou rien.

Comment faire pour que seules les lignes comportant 0 soient supprimées.

Merci.

Bonjour,

on va faire autrement...

On remplace les 0 par une valeur d'erreur (#N/A)

et on supprime toutes les lignes qui ont une valeur d'erreur en colonne B

Sub Suppr_zero()
Dim Sh As Worksheet
For Each Sh In Sheets
    With Sh.Columns("B:B")
        .Replace What:="0", Replacement:="#N/A", LookAt:=xlWhole
        .SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
    End With
Next Sh
End Sub

Merci ca marche.

Dans la même optique, mais sur un document un poil différent, comment faire la même chose sur le document joint?

Une contrainte supplémentaire: s'arrêter à la colonne F....

https://www.excel-pratique.com/~files/doc2/zEVa3Forum_Excel_CM_2.xls

Encore merci pour vos réponses qui me permettent d'apprendre beaucoup.

Bonsoir,

Ajuste le code, pour ne chercher que sur la ou les colonnes désirées..

Et remplace "Delete", par "ClearContents"....

Perhaps....