Supprimer cellules commençant par

myriouma -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'ai besoin urgent de supprimer les cellules ou ça commence par le mot "classe no ..."
Mais je connais pas comment programmer en VBA.
Quelqu'un a sous la main une macro que je pourrais éxecuter et qui fera l'affaire.
Je vous remercie!

1 réponse

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    un exemple pour A1:A20 : 
    Sub supprime()
    Dim c As Range, lig As Long
    For lig = 20 To 1 Step -1
        If Left(Cells(lig, 1), 9) = "classe no" Then Cells(lig, 1).Delete Shift:=xlUp ' en colonne A (1) supprime et décale vers le haut
    Next lig
End Sub

    eric
    0

Discussions similaires

Supprimer l'historique de commandes et d'achats sur Amazon
Matthew5 -
Adraen -

25 réponses