XL 2019 CELLULE RENVOI A FORME

elisoum · 27 Juillet 2020

Bonjour à tous et toutes,
Je me permet de venir demander conseil, en effet j'ai créer une carte interactive avec departements, j'ai un tableau de données à coté sur la même feuille.
Quand je clique sur un département il se colorie en jaune et renvoi la ligne avec le nom du departement et ses chiffre dans le tableau

(ex je clique sur le dpt de l'ain sur ma carte et ma ligne M11,Z11 se met en jaune ) et je peut reinitialiser le tout

Sub AIN()
Worksheets("TEST").Shapes("AIN").Fill.ForeColor.RGB = RGB(255, 255, 153)
Range("M11:Z11").Interior.ColorIndex = 6
End Sub
Sub initialise()
With Worksheets("TEST")
.Shapes("AIN").Fill.ForeColor.RGB = RGB(217, 150, 148)
End With
Range("M11:Z106").Interior.ColorIndex = 2

Ma question est la suivante :
je souhaiterais qu'en cliquant sur la cellule (ain) la forme de ma carte correspondant a l'ain se colorie en jaune.

J'espere avoir été assez clair !!
Merci d'avance !!

danielco · 28 Juillet 2020

Bonjour,

J'ai modifié la liste des départementts en mettant les accents. Je joins le classeur modifié. Ca ne fonctionne pas pour certains départements comme la Corrèze (la forme est nommée "corèze"). Fais la liste de tout ce qui ne fonctionne pas.

Daniel

patricktoulon · 27 Juillet 2020

Bonjour
le fichier de base serait le bien venu au mois avec la feuille avec sa carte et son tableau

danielco · 27 Juillet 2020

Bonjour,

Un essai, un peu au hasard. La macro met toutes les formes de la feuille à blanc avant de colorier le département.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Sh As Shape
  With Worksheets("TEST")
    On Error Resume Next
    Set Sh = .Shapes(Target.Value)
    If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
    For Each Sh In .Shapes
      Sh.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Next Sh
    .Shapes(Target.Value).Fill.ForeColor.RGB = RGB(255, 255, 153)
  End With
End Sub

Mets la macro dans le module de la feuille. Elle s'exécute au changement de cellule. Tu ne peux donc pas cliquer dans la cellule active.

Daniel

elisoum · 27 Juillet 2020

Merci, de votre réponse, effectivement la commande est bien ce que je voulais, mais pour être tatillonne je souhaiterais garder mes departements avec leurs couleurs d'origine ( même si il faut taper chaque ligne de code une à une, je l'ai fait pour le reste !!!
j essai de modifier mon fichier (supprimer les donnees privees) et je reviens !!!

elisoum · 27 Juillet 2020

voila je joint mon fichier sans donnees, par contre je m'apercois que la commande ne fonctionne pas pour tous les départements ?

danielco · 27 Juillet 2020

Je bute sur la difficulté suivante : certains départements, comme l'Ardèche sont orthographiés sans accent dan le tableau alors que la forme est correctement orthographiée.

Que faire ?

danielco · 28 Juillet 2020

Bonjour,

J'ai modifié la liste des départementts en mettant les accents. Je joins le classeur modifié. Ca ne fonctionne pas pour certains départements comme la Corrèze (la forme est nommée "corèze"). Fais la liste de tout ce qui ne fonctionne pas.

Daniel

elisoum · 28 Juillet 2020

Merci de votre aide, en effet il y avait qques coquilles sur les noms (correspondance entre nom du tableau et nom de la forme), les accents etc ....
j'ai modifié le tout et tout fonctionne !!
Encore merci !!!!!

XL 2019 CELLULE RENVOI A FORME

elisoum

XLDnaute Nouveau

danielco

patricktoulon

XLDnaute Barbatruc

danielco

XLDnaute Accro

elisoum

XLDnaute Nouveau

elisoum

XLDnaute Nouveau

Pièces jointes

danielco

XLDnaute Accro

danielco

XLDnaute Accro

Pièces jointes

elisoum

XLDnaute Nouveau

Discussions similaires