Sujet Précédent Sujet Suivant

Supprimer cellules commençant par

myriouma -  
eriiic Messages postés 25847 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!

A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
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

Expéditeur lettre reccomandé AR
SOURISVERTE83 -
kogler -

12 réponses