Sujet Précédent Sujet Suivant

Excel VBA

Fermé
davouille59 Messages postés 1 Date d'inscription dimanche 12 octobre 2008 Statut Membre Dernière intervention 12 octobre 2008 - 12 oct. 2008 à 13:22
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 13 oct. 2008 à 15:46
Bonjour,
Comment supprimer les lignes d'une feuille excel dont la valeur commence par exemple : "toto"
une macro capable de supprimer toutes les lignes dont la valeur commence par "toto" par exemple
merci d'avance

1 réponse

Réponse 1 / 1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 oct. 2008 à 15:46
Bonjour, 

Sub SuppRow()
Dim ws As Worksheet
Dim ligne As Long

   Set ws = Worksheets("mon_Onglet")    'Mettre le nom ou le numéro de l'onglet
   ligne = 2                                            'Mettre le numéro de la première ligne à tester

   With ws
      While .Range("A" & ligne).Value <> ""
         If InStr(1, .Range("A" & ligne).Value, "toto") <> 0 Then
            .Rows(ligne).Delete
            ligne = ligne - 1
         End If
        ligne = ligne + 1
      Wend
   End With

   Set ws = Nothing

End Sub


;o)
-1