Excel VBA

davouille59 -  
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

  • Votes
  • Date
  • Date décroissante
  1. Polux31
    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)