Discussion :

[DRJK37]

Bonjour

Je n'arrive pas a trouver une macro pour colorier une cellule suivant la valeur d'une autre (Mise en Forme Conditionnelle déjà utilisée)

Exemple:

Colorier la cellule A et les cellules de C à H suivant la valeur de la Cellule B (Ligne par lignes) sur une plage de A1 à A500

J'ai essayé

Code :

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

Range("A1").Interior.ColorIndex = Range("B1").Interior.ColorIndex

mais ça ne convient pas

Quelqu'un aurait il une idée ?

Merci

[Philippe Tulliez]

Bonjour,

Je n'arrive pas a trouver une macro pour colorier une cellule suivant la valeur d'une autre (Mise en Forme Conditionnelle déjà utilisée)

Pourquoi une macro, alors qu'une simple mise en forme conditionnelle suffirait ?
Quelle version d'excel ?

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
with Sheets("lenomdetafeuille")
For i = 1 to 500
If .range("B" & i ) = "blablabla" then
.Range("A" & i ).Interior.ColorIndex = 5
 .Range("C" & i & ":H" & i ).Interior.ColorIndex = 5
end if 
next i
end with

[casefayere]

Meme si je suis d'accord avec Philippe, en gagnant une ligne au code de EngueEngue

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
 
For i = 1 To 500
  If Range("B" & i) = "toto" Then
    Union(Range("A" & i), Range("C" & i, "H" & i)).Interior.ColorIndex = 3
  End If
Next i

[gFZT82]

Bonjour,

J'ai essayé
Range("A1").Interior.ColorIndex = Range("B1").Interior.ColorIndex
mais ça ne convient pas

Tu pourrais préciser pourquoi cette instruction ne convient pas, cela faciliterait la compréhension de ton problème.
Par exemple, si tu cherches à reproduire la couleur de remplissage générée par une MFC appliquée en colonne B, tu dois savoir que cette couleur n’est pas renvoyée par Interior.ColorIndex.

Cordialement.

[DRJK37]

MERCI POUR VOS REPONSES AUSSI RAPIDE

PROBLEME RESOLU

PAR EngueEngue ET gFZT82