Supprimer cellules commençant par

Fermé
myriouma - 29 mai 2012 à 13:17
eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 - 29 mai 2012 à 14:39
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

eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 7 168
29 mai 2012 à 14:39
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