Discussion :

[Gwadadev]

Bonsoir,

J'ai opté pour l'utilisation d'une macro afin de supprimer les cellules de la colonne A qui ne sont pas colorées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub aff_cellule_coloree()
 Dim i
For i = 1 To 15
'si cellule avec couleur ne rien faire
If Worksheets(1).Range("A" & i).Interior.Color<>null Then
'sinon supprimer les cellules sans couleurs vers le haut  
Else: Range("A" & i).Delete Shift:=xlUp
End If
Next i
End Sub

Mon souci est que je n'ai pas le résultat souhaité

[Antoun]

c'est normal, tu testes une couleur mise en dur et non issue de la mise en forme conditionnelle.

la seule façon de faire c'est de rejouer les conditions de la mef conditionnelle.

[Gwadadev]

Antoun,

Je travaille sur un fichier contenant des cellules colorées sans mef conditionnelle d'où cette macro.

Merci de ton aide.

[Antoun]

pardon ! enlève déjà les : après le Else, ça passera mieux !

[Gwadadev]

pardon ! enlève déjà les : après le Else, ça passera mieux !

Les : ont été inséré automatiquement par l'appli.
J'ai tt de même enlevé ces 2 points et j'ai le même résultat.
Je continue à chercher, en attendant de l'aide

[Antoun]

Les : ont été inséré automatiquement par l'appli.

oui, quand on fait une fausse manipe, il fait ça et ça désactive le Else (il est considéré comme une étiquette).

J'ai tt de même enlevé ces 2 points et j'ai le même résultat.
Je continue à chercher, en attendant de l'aide

Bon, puisqu'on me force à tester ... en 2007

Font.Color est la couleur de la police (du texte). La couleur de la cellule elle-même est Interior.PatternColor, et qu'il y ait ou non une couleur est dans Interior.Pattern. Tout ça se trouve facilement en enregistrant une macro, ce dont tu peux avoir besoin avec une autre version.

Plutôt que d'imaginer que "non coloré" est null, tu testes une cellule non colorée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox range("A1").Interior.Pattern

[fring]

Bonjour tlm,

Pour supprimer des cellules ou des lignes en bouclant sur une plage de cellules, il faut boucler de bas en haut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub aff_cellule_coloree()
 Dim i as integer
For i = 15 to 1 Step -1
'si pas de couleur
If Sheets(1).Range("A" & i).Interior.ColorIndex = xlNone Then
'supprimer les cellules sans couleurs
Range("A" & i).Delete Shift:=xlUp
'si on peut supprimer toute la ligne
'Rows(i).Delete
End If
Next i
End Sub

[Gwadadev]

Bonjour,

La macro fonctionne comme je le souhaitais.

Merci Fring.