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
Configuration: Windows XP
Firefox 3.0.3

1 réponse

  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