VBA : établir un code sans poser de filtre

Résolu

eglantine217 Messages postés 64 Statut Membre -
eglantine217 Messages postés 64 Statut Membre - 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

Afficher la suite

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
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
1. eglantine217 Messages postés 64 Statut Membre
  
  ça marche mille merci !
  
  0
Réponse 2 / 2
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

Bonjour,
la mention "erreur" est elle inscrite par excel (mauvaise formule par ex) ou non ?
d'avance merci
0
1. eglantine217 Messages postés 64 Statut Membre
  
  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
2. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  OK, un peu de patience...
  
  0

VBA : établir un code sans poser de filtre

2 réponses

Discussions similaires

Newsletters