Masquer/afficher couleur de remplisaage

[starz]

Bonjour,

Je cherche de l'aide pour effectuer le MASQUER/AFFICHER couleur de remplissage d'une cellule.

J'ai une plage de cellule (A1:W40) ou une certaine quantité de celulles sont rempli d'une couleur ColorIndex = 3
Cependant des fois ces couleurs me gêne.

Sur un autre fichier j'utilise cette macro :

Sub MasqueCouleur()
  Sheets("feuil1").Range("A1:BW40").Interior.ColorIndex = xlNone
End Sub

Certe cette macro masque les couleurs de remplissage mais je ne connais pas la macro qui pourrais me réaffecter les couleurs d'origine et à leur place, ca d sur les cellules ou il y avait une couleur.

Pouvez vous m'aidez.

Merci

 

[hoerwind]

Re : Masquer/afficher couleur de remplisaage

Bonjour,

Je n'y connais rien en macros, mais je procéderais de la façon suivante :

Etant donné que si la macro supprime les couleurs de remplissage, elle ne tient pas en mémoire les références des cellules les ayant contenues.
Donc au lieu de supprimer les couleurs de remplissage, je les remplacerais par une autre couleur qui n'empêche pas une lecture aisée, par exemple jaune clair, au même blanche.
Ensuite une deuxième macro remplacerait cette couleur par la couleur initiale.
Ceci pour autant qu'il n'y ait qu'une couleur à remplacer.

 

[pierrejean]

Re : Masquer/afficher couleur de remplisaage

bonjour starz

Vois si cela te convient

 

[starz]

Re : Masquer/afficher couleur de remplisaage

c'est nickel Pierrejean !
Par contre ce n'est pas possible de lui définir directement une plage au lieu de la sélectionner sachant que c'est toujours la même ?

merci

Edit : j'ai essayer sur mon fichier, j'ai un autre problème ! j'ai une image en arrière plan ! Quand je masque c'est OK mais quand je réaffiche il me met un fond blanc donc je ne vois plus mon arrière plan ?.

 

[pierrejean]

Re : Masquer/afficher couleur de remplisaage

Re

nouvelle version

 

[starz]

Re : Masquer/afficher couleur de remplisaage

BRAVO !
Merci Pierre Jean ! et rapide en plus...

Pour info, est-ce possible même si j'en ai pas encore besoin de masquer en fonction de la couleur des cellules ?


ENCORE MERCI

 

[pierrejean]

Re : Masquer/afficher couleur de remplisaage

Re

oui, il suffira de mettre un if quelque part

 

[starz]

Re : Masquer/afficher couleur de remplisaage

Vous auriez un exemple si vous avez le temps ?

merci et à bientôt

 

[pierrejean]

Re : Masquer/afficher couleur de remplisaage

Re

Voila : pour ne masquer que les cellules de fond rouge

 

[starz]

Re : Masquer/afficher couleur de remplisaage

excellent , merci infiniment.

Bonne fin de journée 🙂

et merci encore

 

[starz]

Re : Masquer/afficher couleur de remplisaage

Re, bonjour
en fin de compte votre macro est très utile !
et j'ai finalement un dernier service à vous demandez :

La macro ci-dessous ne fait que masquer une couleur, peut-on masquer jusqu'a 3 couleurs à la fois ? puis les réafficher ?

merci

Public tablo()
Sub masquerautres()
ReDim tablo(1 To 2, 1 To 1)
For Each cel In Range("A1:BW40")
 If cel.Interior.ColorIndex = 4 Then
    tablo(1, UBound(tablo, 2)) = cel.Address
    tablo(2, UBound(tablo, 2)) = cel.Interior.ColorIndex
    cel.Interior.ColorIndex = xlNone
    ReDim Preserve tablo(1 To 2, 1 To UBound(tablo, 2) + 1)
    End If
Next
End Sub
Sub afficherautres()
For n = LBound(tablo, 2) To UBound(tablo, 2) - 1
  Range(tablo(1, n)).Interior.ColorIndex = tablo(2, n)
Next n
End Sub

 

[pierrejean]

Re : Masquer/afficher couleur de remplisaage

Re

A tester (valeurs 3 et 5 a adapter)

Public tablo()
Sub masquerautres()
ReDim tablo(1 To 2, 1 To 1)
For Each cel In Range("A1:BW40")
 If cel.Interior.ColorIndex = 4 Or cel.Interior.ColorIndex = 3 Or cel.Interior.ColorIndex =5 Then
    tablo(1, UBound(tablo, 2)) = cel.Address
    tablo(2, UBound(tablo, 2)) = cel.Interior.ColorIndex
    cel.Interior.ColorIndex = xlNone
    ReDim Preserve tablo(1 To 2, 1 To UBound(tablo, 2) + 1)
    End If
Next
End Sub
Sub afficherautres()
For n = LBound(tablo, 2) To UBound(tablo, 2) - 1
  Range(tablo(1, n)).Interior.ColorIndex = tablo(2, n)
Next n
End Sub

 

[starz]

Re : Masquer/afficher couleur de remplisaage

merci Pierrejean !
ça fonctionne parfaitement 😉

bonne journée

j'avais essayé avec AND et non OR