A voir également:
- Un bug dans mon code vba
- Bug yahoo mail - Guide
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code blocks free - Télécharger - Langages
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
26 sept. 2022 à 11:00
26 sept. 2022 à 11:00
Bonjour,
Soit vous traitez l'erreur ou ceci
Sub test() nb = Application.CountIf(Columns("Y"), 0) If nb > 0 Then With Worksheets("feuil1").Range("Y1:Y" & [Y65536].End(xlUp).Row) .Replace What:="0", Replacement:="", LookAt:=xlWhole .SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With End If End Sub