Colorer des formes en fonction d'une couleur (+ de détail ci dessous)

Bonjour à tous,

Je viens vers vous car je bloque sur de la mise en forme de forme (justement)

Dans le fichier joint, j'ai 4 parcelles, avec 4 années (B2-F6). Pour chaque parcelle et chaque année, il y'a une culture différente. j'ai modélisé les parcelles par 4 formes, avec pour objectif de changer leur couleur en fonction de la culture présente chaque année.

Mais je bloque totalement en étant proche du but

J'ai créer un code couleur par culture (B8-B12)

J'ai identifié les cultures par année avec une RechercheH (Colonne I)

J'ai attribué le code couleur correspondant avec une mise en forme conditionnelle (Si I3 = blé alors Jaune)

Jusque la rien de sorcier. C'est la que ça se gâte. Je ne trouve pas de fonction appropriée pour attribuer à ma forme (Rectangle 1) la couleur attribuée par la Mise en Forme Conditionnelle (Cellules de la colonne I). J'ai essayé de décomposé en utilisant "CouleurCell", pour déterminer le code RVB de ma cellule I puis la fonction "Coloriage" pour attribuer à "Rectangle 1" la couleur RVB précédemment sortie. Mais ça ne fonctionne pas... Y'a-t-il un.e sauveur.se parmi vous ?

Bonne journée

Thibaud.

Bonjour thibaudFRC,

Un essai par macro. La macro colore les parcelles et leur attribue le texte correspondant.

Modifier l'année dans la cellule J2.

Le code est dans le module de la feuille "Feuil1" :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
   If Intersect([j2], Target) Is Nothing Then Exit Sub
   For Each x In Range("i3:i6").Cells
      Me.Shapes(Trim(x.Offset(, 1).Value)).DrawingObject.Interior.Color = x.DisplayFormat.Interior.Color
      Me.Shapes(Trim(x.Offset(, 1).Value)).DrawingObject.Caption = x.Offset(, -1).Value
   Next x
End Sub

nota : la couleur affichée par une MFC n'est pas cell.interior.color. Il faut utiliser cell.displayformat.interior.color. De plus (sauf astuce) displayformat doit être utilisé dans une procédure (type Sub() ) et non dans une fonction( type Function() ).

Bonjour

Salut Mafraise

Autre réponse d'une personne moins doué que Mafraise

A+ François

Merci Mafraise et Fanfan38 ! Je vais essayer de mettre en application vos supers réponses !

@Mafraise, pourrais-tu, s'il te plait, m'expliquer tes quelques lignes de codes ? J'aimerai essayer de les transposer correctement sur mon fichier d'origine (un peu plus complet ).

En dernier recours, je reprendrais plutôt le modèle de Fanfan38 et intégrer mes cases supplémentaires.

Encore merci à vous !

Re,

Voici le fichier avec le code commenté. J'espère que ce sera compréhensible sinon me demander des explications complémentaires.

Merci beaucoup !

C'est intégré dans mon fichier d'origine, et ça marche !

Bonne journée

Thibaud