Supprimer les céllules de couleurs

[TITOU73]

Bonjour,

J'ai un fichier de planning avec differentes couleurs.
Je cherche une macro pouvant :
- Selectionner les cellules avec la même couleur que la case B5
-Supprimer ces céllules
-Déccaler les céllules restant sur la gauche

Merci pour votre aide

 

[Efgé]

Re : Supprimer les céllules de couleurs

Bonjour TITOU73, le fil, le forum
Une proposition:

[COLOR=blue]Sub[/COLOR] test()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("test 1 ")
    Coul = .Range("B5").Interior.ColorIndex
    [COLOR=blue]For[/COLOR] i = 5 [COLOR=blue]To[/COLOR] 40
        [COLOR=blue]For[/COLOR] j = 29 [COLOR=blue]To[/COLOR] 2 [COLOR=blue]Step[/COLOR] -1
            [COLOR=blue]If[/COLOR] .Cells(i, j).Interior.ColorIndex = Coul [COLOR=blue]Then[/COLOR] .Cells(i, j).Delete Shift:=xlToLeft
        [COLOR=blue]Next[/COLOR] j
    [COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement
EDIT J'ai oublié de préciser que ceci ne fonctionnera évidemment pas si les cellules sont colorées par mises en forme conditionnelles...

 

[TITOU73]

Re : Supprimer les céllules de couleurs

Merci Efgé
c'est exactement ce que je cherchais