Carte excel choroplèthe

[lunatide]

Bonjour,

J'aimerais créer une carte thématique où les pays seraient colorés en fonction des données (Sheet map colonne B selon la règle présenté colonnes Z-AB). Je sais que le sujet a déjà été traité mais n'étant pas une experte en macro, je ne sais pas comment crée le code.

Merci par avance pour toute aide.

Excel disponible ici: http://www.filedropper.com/wordlmap

 

[Compte Supprimé 979]

Re : Carte excel choroplèthe

Bonjour Lunatide,

Ci-joint le fichier avec 2 codes, un pour le coloriage, l'autre pour supprimer la couleur

A+

 

[Dranreb]

Re : Carte excel choroplèthe

Bonjour à tous
Puisque j'y ai planché je donne mon code :

Sub ColorerPays()
Dim TDon() As Variant, RCoul As Range, L As Long, C As Long
Set RCoul = Feuil2.[Z5:AB10]
TDon = Feuil2.[A2].Resize(Feuil2.Cells(Rows.Count, 1).End(xlUp).Row - 1, 2).Value
For L = 1 To UBound(TDon)
   C = Application.WorksheetFunction.Match(TDon(L, 2), RCoul.Columns(1))
   If TDon(L, 2) = RCoul(C, 1) Then C = C - 1
   Feuil2.Shapes(TDon(L, 1)).Fill.ForeColor.RGB = RCoul(C, 3).Interior.Color
   Next L
End Sub

Cordialement.

 

[Misange]

Re : Carte excel choroplèthe

Joli 🙂 et puis j'ai appris un mot, choroplèthe

 

[lunatide]

Re : Carte excel choroplèthe

Bonjour Bruno,

Merci mille fois pour cet excel et la réponse extra rapide !

Lunatide