MFC qui reprend la couleur de cellules en fonction d'un nombre

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Bonjour à tous,

A essayer, les couleurs peuvent se situer de la colonne "C" à "F"

JHA

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Bonjour JHA
Merci mais ce n'est pas tout à fait ce que je voulais car si je change la couleur des cellules en ligne 2, les cellule de la ligne 3 ne se mettent pas à jour.

Carlos

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Re bonsoir,

A essayer MFC ou VBA

JHA

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Bonjour JHA
C'est presque bon.
En modifiant le chiffre sur la plage "Essai" j'ai bien la couleur de la cellule qui change.
Par contre lorsque je change la couleur sur la plage "Couleurs" la mise à jour ne se fait pas sur la plage "Essai".
j'ai essayé ceci mais le changement ne se fait que si la valeur de la cellule change mais pas si la couleur change.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Not Intersect([Essai], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
'Si on change la couleur de base alors les couleurs de cellules se mettent à jours
If Not Intersect([couleurs], Target) Is Nothing Then ' ICI il me faudrait un evenement sensible à la couleur qui change
On Error Resume Next
For Each cell In Range("Essai")
cell.Interior.ColorIndex = [couleurs].Find(cell, LookAt:=xlWhole).Interior.ColorIndex
Next cell
End If
End Sub

Bonne journée
Carlos

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Bonjour le forum,JHA
Lorsque je change la couleur d'une des cellules de la plage couleur de JHA ( fichier joint) il ne se psse rien car le Change de "Private Sub Worksheet_Change(ByVal Target As Range)" semble sensible seulement au changement de valeurs.

Savez vous comment le rendre sensible au changement de couleurs?
Merci
Carlos

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Bonjour,
Par MFC au sens excel du terme, tu défini la couleur de remplissage en fonction de la valeur de la cellule, toute tentative de modifier la couleur d'une cellule sur la plage C2:F3 ne se verra pas.
Pour les valeurs de 1 à 6, la cellule est définie blanche par défaut (dernière mfc) si la valeur est 3, on colore en rouge etc

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Bonjour st007,

Avec ce code cela marche mais il faut un bouton pour déclencher la macro. Je voudrais l'automatiser des le changement de couleur sur les cellules modèles "Couleurs". Est ce possible?

For Each cell In Range("Essai")
cell.Interior.ColorIndex = [couleurs].Find(cell, LookAt:=xlWhole).Interior.ColorIndex
Next cell
End If
next cell

Bonne journée
Carlos

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Illustration pour C2:F3, en mfc classique, c'est la couleur de la mfc qu'il te faut modifier.
pour C16:F17 et J1:J10, c'est du vba qui gère

Re : MFC qui reprend la couleur de cellules en fonction d'un nombre

Re
Merci st007 et JHA.
J'ai bien avancé grâce à vous deux.
J'y suis presque presque. Dernière ligne droite .
Voici en pièce jointe le fichier remanié à mes besoins.

J'ai juste un petit problème de mise à jour des cellules qui ne se fait qu'en recliquant dessus ou à coté ou en double cliquant, ce qui est très genant.

Carlos