Carte commune et visualisation de données
Bonjour à toutes et à tous,
Je ne suis pas un habitué des forums, donc excusez moi d'avance si je ne maitrise pas les codes.
J'utilise pour mon association office 2016 sur PC et 2 mac.
Je dois produire une carte de mon département avec les division en commune.
Je dois faire apparaitre sur cette carte pour chaque commune des cercles représentant le nombre de personnes présentent sur celle-ci.
Taille variant selon le nombre de personnes.
J'ai essayé le graphique carte sur excel PC, mais la division principale est le département dans la région, donc trop petit et exploitable.
J'ai essayé une carte google map, mais les cercle sont tous de la même taille, et il faut ce positionner sur les icônes pour voir le nombre de personnes.
Le seul moyen visuellement acceptable que je vois, est de dessiner mes cercles à la main, mais là encore, pas d'automatisation du graphique possible en complétant le tableau.
Est-ce que quelqu'un aurait une solution avec Excel ? Pas besoin d'interactivité sur la carte (je complèterai le tableau des communes chaque mois).
Merci d'avance.
J'ai moi aussi eu à faire ce travail pour des rapports d'activités.
Ce qui me donne cela.
C'est grâce à pierrep56 que ce résultat m'a été possible.
Pour réaliser ton projet il faut commencer par faire la carte. Quel est ton département ?
A nous redire,
Leakim
Au hasard le neuf trois?
Les ronds sur la carte se mettent à jour en sélectionnant l'onglet "Carte" après avoir saisi les info dans l'onglet "Data"
Salut Tatiak,
Je me doutais bien que tu passerais par là.
Ravi de t'y voir.
Leakim
Hello,
Tout d'abord, merci à vous 2 pour votre aide et vos réponses.
Il s'agit effectivement du 93.
Elles répondent l'une et l'autre à mon besoin.
En effet, j'ai omis de préciser que j'ai 2 indicateur à faire figurer sur ma carte.
Idéalement l'indicateur 1 en nuance de couleur, et l'indicateur 2 en cercles.
Pensez-vous qu'un mixte des 2 soit possible (sans macro ?) ?
Cette fois, je n'oublie le fichier (celui de pierrep56 modifier).
Merci encore une fois votre aide précieuse.
Sans macro, je sais pas faire. Avec, ça peut donner çà :
Merci beaucoup Pierrep56.
C'est ça. Merci beaucoup.
Serait ce abusé de vous demander comment intégrer dans les Msgbox qui s'affiche les données des indicateurs 1 et 2 en complément de la visualisation que vous avez déjà mise en place pour l'indicateur 1 ?
Merci pour votre aide.
C'est assez simple, à la place du Sub Clic existant on colle les lignes suivantes :
Sub Clic(Optional x As Byte)
Dim Idx As Integer, S As String
Idx = Idx_T2D(Tdata, Mid(Application.Caller, 2), 3)
S = Tdata(1, 4) & " : " & Tdata(Idx, 4) & vbCrLf & _
Tdata(1, 5) & " : " & Tdata(Idx, 5)
MsgBox S, , Mid(Application.Caller, 2)
End Sub
Function Idx_T2D(Ttk As Variant, V As Variant, col As Long) As Long
Dim i As Long, lg As Long
Idx_T2D = LBound(Ttk, 1) - 1
lg = UBound(Ttk, 1)
For i = LBound(Ttk, 1) To lg
If CStr(V) = CStr(Ttk(i, col)) Then
Idx_T2D = i
Exit For
End If
Next i
End Function(pour aller dans le code => Alt+F11, et aller dans le module 'Graphe')
Bonsoir Pierrep56,
J'ai tenté de coller le code dans le module Graph, mais à l'exécution, la macro renvoie l'erreur suivante "Erreur d'exécution '13' : Incompatibilité de type". Au déboggage, je suis renvoyé sur cette partie :
Function Idx_T2D(Ttk As Variant, V As Variant, col As Long) As Long
Dim i As Long, lg As Long
Idx_T2D = LBound(Ttk, 1) - 1 ----> Ligne marquée comme erreur
lg = UBound(Ttk, 1)
For i = LBound(Ttk, 1) To lg
If CStr(V) = CStr(Ttk(i, col)) Then
Idx_T2D = i
Exit For
End If
Next i
End Function
Mes compétence en via sont plutôt ancienne, et plus à niveau. Donc je ne comprends pas d'où vient le problème.
Je précise que le test est effectué sur Excel 2016 pour Mac et que les précédents tests nous pas rencontrés de problème sur Mac.
Auriez-vous encore une fois la gentillesse de m'aider, s'il vous plaît ?
Merci beaucoup
Merci beaucoup c'est parfait.