[XL-2003] macro test couleur

[bartsho]

Je souhaite colorer automatiquement des cellules de la même couleur que d'autres cellules: j'aimerai qu'a chaque changement de couleur des cellules D1 à d9, alors E1 à E9 soient de la même couleur
Comment peut on faire ?

Ci joint: j'ai réussi par une macro, mais
- il faut l'éxecuter à chaque fois: j'aimerai pouvoir juste en cliquant sur une cellule que la couleur soit la même sans exécuter la macro à chaque fois...
- que sur une seule cellule, or j'aimerais le faire sur toutes...

Merci d'avance

[Theze]

Bonsoir,

Sur quel critères veux-tu colorer tes cellules car une MFC peut suffire ?

Hervé.

[jfontaine]

Bonjour,

Dans le cas ou le changement de couleur est manuel et non lié à une MFC j'utiliserais l’évènement Calculate de la Feuille

Code :

1
2
3
4
5
6
7
8
Private Sub Worksheet_Calculate()
Dim i As Long
 
For i = 2 To 16
    Range("E" & i).Interior.Color = Range("D" & i).Interior.Color
Next i
 
End Sub

Le prochain calcul de la feuille mettra a jour les couleurs (F9 pour le forcer)

[bartsho]

Merci

par une MFC ? il me semblait que cela ne marchait pas pour une condition de couleur ? exemple: si cellule d1= jaune, alors e1 = jaune

j'essaye la macro demain

Merci

bonjour

j'ai essayé de mettre ta macro dans la feuille1 (feuille ou se situe la manip à faire), cela marche que si on double clique sur une autre cellule..? c'est déja pas mal
Mais avec F9, il ne se passe rien.
L'evenement "calculate", cela signifie quoi ? car il ne s'gait pas ici de calcul.

Puis je avoir la meme chose pour n'importe quelle cellule source, la cellule "cible" étant sur la même ligne mais sur une colonne differente (comme vu dans mon ex)
exemple:
a1 = couleur jaune , donc e1= jaune
b3 = violet, donc e3 = violet

L'ideal pour la MAJ de la couleur de la cellule "cible" serait d'appuyer sur F9 et non de double cliquer sur une cellule autre

Merci encore

[jfontaine]

par une MFC ? il me semblait que cela ne marchait pas pour une condition de couleur ? exemple: si cellule d1= jaune, alors e1 = jaune

Si tu as une MFC pour la couleur de la colonne A alors pourquoi ne pas appliquer cette meme MFC sur la colonne E.
Cela évitera la macro qui n'est utile que si changement de couleur manuellement sans MFC

L'evenement "calculate", cela signifie quoi ? car il ne s'gait pas ici de calcul.

L’évènement Calculate s’exécute à chaque calcul de la feuille (raccourci F9 par défaut). Même si la mise en forme n'est pas lié au calcul cela permet d'avoir un rafraîchissement régulier des couleurs

[bartsho]

Il s'agit bien d'un changement manuel de couleur pour la cellule "source"
,donc pas de MFC possible

En fait je n'arrive pas à faire fonctionner ta macro dans mon fichier. elle ne s'excute pas (voir ci joint dans la feuille)
De plus, la touche F9 ne marche pas ou alors je ne comprends pas bien ? Remplace t elle le fait de "double cliquer" sur une cellule quelconque pour obtenir le résultat cellule cible ? ce qui m'arrangerait

Dans mon ancienne macro il fallit double cliquer par exemple.

Merci d'avance

[Theze]

Bonsoir,

Utilise l'évènement "SelectionChange" de la feuille, de ce fait, à chaque changement de cellule la proc sera exécutée :

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim i As Long
 
    For i = 2 To 16
        Range("E" & i).Interior.Color = Range("D" & i).Interior.Color
    Next i
 
End Sub

Hervé.

[jfontaine]

Utilise l'évènement "SelectionChange" de la feuille, de ce fait, à chaque changement de cellule la proc sera exécutée :

Je me demande a quoi je pense des fois

merci a toi Theze

[bartsho]

merci
cela marche mais j'aimerais reproduire cette procédure pour d'autres colonnes "sources" et "cibles":
ex :

Code :

1
2
Range("m" & i).Interior.Color = Range("s" & i).Interior.Color
Range("AG" & i).Interior.Color = Range("AA" & i).Interior.Color

...

Si j'ai bien compris le double clique est obligatoire ? il n' y a pas de solutions en faisant "F9" ou "enregistrer" pour appliquer la procédure ?

Merci d'avance!