VBA : établir un code sans poser de filtre

Résolu/Fermé
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013 - 10 sept. 2012 à 09:05
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013 - 10 sept. 2012 à 10:09
Bonjour,

Comment faire pour supprimer en VBA une ligne de excel qui comporte en colonne G la valeur "erreur" ?

Je dispose d'un tableau et je perds bcp de temps en posant mon filtre je souhaiterais trouver un code qui cherche la ligne avec cette valeur et la supprime mais comment faire ?

merci d'avance

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
10 sept. 2012 à 09:55
essaies

Option Explicit

Sub supprimer_ligne_erreur()
Dim Nbre As Integer, Cptr As Integer
With Application
     ScreenUpdating = False
     Nbre = .CountIf(Columns("G"), "erreur")
End With
For Cptr = 1 To Nbre
     Rows(Columns("G").Find("erreur", Range("G1"), xlValues).Row).Delete
Next
End Sub


en supposant qu'il n'y ait pas "erreur" en 1° ligne; sinon me dire -juste une petite modif à faire)
1
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013
10 sept. 2012 à 10:09
ça marche mille merci !
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
10 sept. 2012 à 09:28
Bonjour,
la mention "erreur" est elle inscrite par excel (mauvaise formule par ex) ou non ?
d'avance merci

0
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013
10 sept. 2012 à 09:38
non pas inscrit par excel c'est tout à fait normal

je veux supprimer automatiquement toutes les lignes qui comportent ce mot dans la colonne G
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
10 sept. 2012 à 09:46
OK, un peu de patience...
0