Supprimer toutes cellules d'une colonne contenant "%"

Bonjour !

je suis actuellement en train de bosser sur un export excel, et j'essaye de mettre en place une macro me permettant de supprimer toute cellule comprenant au moins le caractère "%" dedans, dans une colonne donnée (en l'occurence la A, mais ça n'a pas vraiment d'importance a priori).

J'ai écrit ceci mais rien ne se passe, donc j'ai surement du oublier quelque chose :

 Sub test()
    num_ligne = 1

    Do While Cells(num_ligne, 1) <> ""
    If Cells(num_ligne, 1).Value Like "[%]" Then
    Selection.Delete shift:=xlUp
     num_ligne = num_ligne + 1
                Else
         num_ligne = num_ligne + 1
        End If
    Loop

    End Sub

Voilà donc je cherche d'où vient mon erreur si quelqu'un a une suggestion.

Merci d'avance !

Fra

Bonjour,

Une piste :

Sub test()

    Dim Plage As Range
    Dim I As Long

    With ActiveSheet: Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For I = Plage.Count To 1 Step -1

        If Plage(I).Value Like "*%*" Then Plage(I).Delete shift:=xlUp

    Next I

End Sub

Normalement ça devrait marcher pour toi

Sub perso()

k = Cells(1, 1).End(xlDown).Row

For i = 1 To k
    If Cells(i, 1).Value Like "*%*" Then
        Cells(i, 1).EntireRow.Delete
        k = k - 1
        i = i - 1
    End If
Next

End Sub

Bonjour Famewarz,

Dans une boucle de suppression, il est préférable de commencer par la fin pour ne pas avoir à tripoter le compteur dans la boucle et Fra veux juste supprimer les cellules et non les lignes complètes !

Super, ça marche impec

Merci beaucoup !

Attention tout de même, si tu entres un nombre suivit de % la cellule ne sera pas supprimée car considérée comme un formatage (une peu comme le slash dans les dates)