Supprimer des cellules à fond vert sur excel
Résolu/Fermé
balata9
-
16 juin 2010 à 16:08
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 16 juin 2010 à 17:45
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 16 juin 2010 à 17:45
A voir également:
- Supprimer des cellules à fond vert sur excel
- Comment supprimer une page sur word - Guide
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Excel additionner des cellules - Guide
- Verrouiller des cellules excel - Guide
5 réponses
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
642
16 juin 2010 à 17:09
16 juin 2010 à 17:09
Bonjour,
Un code plus simple à essayer :
J'ai supposé que la cellule ne doit plus être verte aprés l'effacement mais c'est peut-être pas utile..
A+
Un code plus simple à essayer :
Sub Test_2() For Each C In Range("$F$5:$L$20") If C.Interior.ColorIndex = 4 Then C.ClearContents C.Interior.ColorIndex = xlNone End If Next C End Sub
J'ai supposé que la cellule ne doit plus être verte aprés l'effacement mais c'est peut-être pas utile..
A+
Merci pour ta réponse pilas31.
Ton code fonctionne, le problème c'est qu'il ne supprime que le contenu des cellules à fond vert alors que j'aimerais supprimer les cellules entières pour que les cellules du dessous se décalent vers le haut de manière à reformer une plage continue.
Ton code fonctionne, le problème c'est qu'il ne supprime que le contenu des cellules à fond vert alors que j'aimerais supprimer les cellules entières pour que les cellules du dessous se décalent vers le haut de manière à reformer une plage continue.
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
642
16 juin 2010 à 17:28
16 juin 2010 à 17:28
D'accord alors tu peux modifier comme cela :
For Each C In Range("$F$5:$L$20") If C.Interior.ColorIndex = 4 Then C.Delete Shift:=xlUp Next C
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
642
16 juin 2010 à 17:45
16 juin 2010 à 17:45
Re bonjour,
En réfléchissant, j'ai été un peu rapide car si plusieurs cellules vertes sont superposées il y a un problème. Je te propose alors de changer de syntaxe :
A+
En réfléchissant, j'ai été un peu rapide car si plusieurs cellules vertes sont superposées il y a un problème. Je te propose alors de changer de syntaxe :
Sub Test_2() For lig = 20 To 5 Step -1 For col = 6 To 12 If Cells(lig, col).Interior.ColorIndex = 4 Then Cells(lig, col).Delete Shift:=xlUp Next col Next lig End Sub
A+