Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 CELLULE RENVOI A FORME

  • Initiateur de la discussion Initiateur de la discussion elisoum
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

elisoum

XLDnaute Nouveau
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 !!
 
Solution
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
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
 
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 !!!
 
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
 

Pièces jointes

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 !!!!!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…