un bug dans mon code vba Fermé

Question

Bonjour,

du coup j'ai fait un petit programme pour filtrer des ligne ou j'ai la colonne  Y = 0

du coup le problème c'est que quand il trouve pas le 0 il bug

vous pouvez m'aides svp

With tmp.range("Y1:Y" & [Y65536].End(xlUp).Row)
         .Replace What:="0", Replacement:="", LookAt:=xlWhole
         .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            End With

Windows / Firefox 91.0

f894009 · Answer

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

nicolas · Answer

ça marche trés bien merci bcp monsieur

Un bug dans mon code vba

2 réponses

Discussions similaires