macro avec cellule de mise en forme conditionnelle Résolu/Fermé

Question

Bonjour,

Je ne suis pas un expert en macro (je me contente de reprendre des macros sur internet que j'adapte à mon besoin...) mais là, malgré pas mal de recherches, je n'arrive pas à solutionner mon problème..
Je souhaite taper dans mes cellules A38 à A59 un nom (dans mon exemple : A43 = "RTT") et de lui affecter un code couleur (exemple : orange). Ce code couleur s'applique à la plage de cellules A5:AK35. Cela fonctionne bien lorsque que dans ma plage A5:AK35 la cellule est vide et que je tape "RTT" ou si je rentre dans chaque cellule et que je fais "entrée". Mon souci arrive lorsque je souhaite changer de code couleur pour mes cellules qui contiennent RTT : si je change la couleur de ma cellule A43, les cellules contenant RTT dans ma plage A5:AK35 ne changent pas de couleur (elles restent orange)... Il faut que je rentre dans chacune d'elles pour que la couleur évolue...
J'ai essayé les fonctions calculate, application.volatile, enablecalculation mais cela ne fonctionne pas ou je les ai mal placées.
J'ai aussi essayé d'affecter dans le premier range uniquement la plage A5:AK35 mais le résultat est le même...

J'ai inséré le code suivant que j'ai mis dans ma feuille concernée. 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A38:A59,A5:AK35")) Is Nothing Then
        If Target.Value = Range("A43") Then
            Target.Interior.Color = Range("A43").Interior.Color
          
        ElseIf Target.Value = Range("A39") Then
            Target.Interior.Color = Range("A39").Interior.Color
         
        ElseIf Target.Value = Range("A42") Then
            Target.Interior.Color = Range("A42").Interior.Color

        ElseIf IsNumeric(Target.Value) And Target.Value <> "" Then
            Target.Interior.Color = Range("A38").Interior.Color
        Else
            Target.Interior.Color = xlNone
        End If
   End If

End Sub

Pouvez-vous m'aider de manière à ce que la couleur change toute seule sans avoir à repasser cellule par cellule...

Merci par avance

Cdt

Mathieu

Frenchie83 · Answer

Bonjour
Comme ceci, si j'ai bien compris
https://www.cjoint.com/c/HCygsj3i7ww
Cdlt

Saucisson_47 · Answer

Bonjour et merci Frenchie pour votre réponse.
En fait, c'est presque ça. Il me faudrait un mix de ma macro initiale et de la vôtre...  Seulement, il me faudrait du dynamisme dans les saisies effectuées dans les cellules A38:A59. 
En résumé, il me faudrait une plage de légende évolutive (la base de légende étant A38:A59) sur les saisies et sur les couleurs qui s'appliquerait sur ma plage A5:AK35

Dans cette plage de cellules (A38:A59), je peux écrire RTT, CA, CT, etc... Mais demain je pourrai changer et mettre Pierre Paul Jacques à la place et intervertir les couleurs. Je retrouve ces différentes possibilités dans ma plage A5:AK35. Je souhaite donc colorer les différents éléments notés dans ma plage A5:Ak35 de la même couleur que celle définie dans ma plage A38:A59 et aussi qu'il y ait la possibilité de changer la couleur de base dans cette plage A38:A59 

Merci par avance pour votre réponse

Saucisson_47 · Answer

Je vous mets mon fichier en ligne
https://www.cjoint.com/c/HCBkd2WKqBx

Frenchie83 · Answer

Bonjour
Ceci devrait aller
Dans le module "Matrice"
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A38:A59")) Is Nothing Then
        Coul = Target.Interior.Color
        Valeur = Target
        Appliquer
    End If
End Sub

Dans le module 1
Public Coul As Long
Public Valeur As String

Sub Appliquer()
    For Each cell In Range("A5:AK35")
        If cell.Value = Valeur Then cell.Interior.Color = Coul
    Next
End Sub
Cdlt

Frenchie83 · Answer

Bonjour,
Oui ,  "Private Sub Worksheet_Selectionchange(ByVal Target As Range)" est plus approprié que "Private Sub Worksheet_Change(ByVal Target As Range)" mais de toute façon il faudra quitter puis revenir sur la cellule pour que le changement soit  pris en compte. 
Dans la ligne "If Not Application.Intersect(Target, Range("A5:AK35, A38:A59")) Is Nothing Then ", pourquoi sélectionnez-vous la plage "A5:AK35" qui n'est que la zone ou doit s'appliquer le changement? La seule plage à contrôler est "A38:A59". Donc "If Not Application.Intersect(Target, Range("A38:A59")) Is Nothing Then ", suffit.
Ensuite, pourquoi avoir ajouter toutes ces lignes qui contrôlent chaque cellule de la plage A58 à A59? Dans le code que j'avais fourni, je faisais appel à la macro "Appliquer" (seulement 3 lignes, tout en haut du le module 1) qui faisait exactement la même chose.
Je vous retourne le fichier.
https://www.cjoint.com/c/HCDcTkbXEqw

Cdlt

Frenchie83 · Answer

RE
Voici avec les modifs
https://www.cjoint.com/c/HCDjsI4xSMw
Cdlt

Macro avec cellule de mise en forme conditionnelle

6 réponses

Discussions similaires