Inserrer une couleur dans une cellule suivant vaeur d une autre

Fermé
DRJK37 Messages postés 16 Date d'inscription jeudi 7 février 2013 Statut Membre Dernière intervention 12 octobre 2022 - Modifié par irongege le 6/10/2013 à 16:43
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 - 7 oct. 2013 à 12:04
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é

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

mais ça ne convient pas

Quelqu'un aurait il une idée ?

Merci

3 réponses

Raymond PENTIER Messages postés 58801 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 janvier 2025 17 264
Modifié par Raymond PENTIER le 6/10/2013 à 17:15
Si tu as à la fois une macro et une mise en forme conditionnelle pour la même cellule, tu provoques un conflit de priorité.
Et pourquoi une macro, alors que tu peux multiplier les règles de MFC ?


C'est bien, la retraite ! Surtout aux Antilles ... :-)
☻ Raymond ♂
0
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 575
6 oct. 2013 à 18:11
Bonjour,

Le VBA ne reprend pas ma MFC classique.
La MFC initiale (B) doit provenir d'un code VBA.

Cordialement.
0
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 575
Modifié par g le 7/10/2013 à 12:05
Avec ce code la colonne B prend la couleur Excel lorsque son numéro est saisi en colonne E (de 1 à 56)
Et la colonne A prend la couleur de B lorsqu'une saisie est effectuée en A.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For k = 1 To 500
Range("B" & k).Interior.ColorIndex = Range("E" & k)
Next
For i = 1 To 500
If Range("A" & i) <> "" Then
Range("A" & i).Interior.ColorIndex = Range("B" & i).Interior.ColorIndex
Else
Range("A" & i).Interior.ColorIndex = xlNone
End If
Next
End Sub
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
6 oct. 2013 à 18:12
Bonjour,

Tu peux modifier la plage sur laquelle s'applique ta MFC.
Dans l'exemple joint, la condition est définie sur la colonne B et la MFC s'applique sur une plage discontinue.
https://www.cjoint.com/?CJgskCuVsRi

A+
0