macro

[Denis]

Bonjour à tous,
Tout d'abord bravo pour ce forum qui m'a permis de créer de beaux tableaux avec la formule RECHERCHEV.
Ma question du jour est :
je cherche la macro qui permet de cacher, voire de supprimer,une ligne dont une cellule donnée a une valeur égale à 0.

Merci d'avance et bonnes fêtes à tous.

Denis.

 

[Bernard]

Bonsoir denis
la macro de dessous commence à la cellule A11. Elle supprime la ligne de la cellule dans laquelle se trouve la valeur zéro, elle s'arrête si une cellule est vide.

Sub SUPPLIGNE()
'Mise en place au départ
Range("A11").Select
Do While ActiveCell <> ""
'suppression de la ligne
If ActiveCell = 0 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Salut
Bernard

 

[Denis]

Merci Bernard.

Bonnes fêtes à toi!