Supprimer cellules commençant par

myriouma -  
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 Contributeur
    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

    25 réponses