Sujet Précédent Sujet Suivant

Excel VBA

davouille59 Messages postés 1 Statut Membre -  
Polux31 Messages postés 7219 Statut Membre -
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 7219 Statut Membre 1 204
 
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