Sujet Précédent Sujet Suivant

Marco Excel

Résolu/Fermé
Whyn - Modifié par Whyn le 23/01/2014 à 18:58
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 24 janv. 2014 à 15:00
Bonjour,

Alors voila mon problème. Je voudrais faire une macro, qui Supprimerai une ligne dans la colonne "TEST" si il y a marqué "Erreur de test." dans celle si.


Exemple


col1 col2 test col3

x x x x
x x x x
x x x x
x x Erreur de test x



Dans ce cas la, la macro supprime la ligne 4 entièrement..



Si vous pouviez m'aider.
merci d'avance !

A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
24 janv. 2014 à 15:00
Bonjour 

Option Explicit
'---------
Sub supprimer_ligne_si()
Dim Nbre As Integer, Lig As Integer, cptr As Integer
Application.ScreenUpdating = False
Nbre = Application.CountIf(Columns(3), "erreur de test")
If Nbre > 0 Then
     Lig = 1
     For cptr = 1 To Nbre
          Lig = Columns(3).Find("erreur de test", Range("C1"), , xlWhole).Row
          Rows(Lig).Delete
     Next
End If
End Sub
0