Carte de France et statistiques
Bonjour,
Dans le cadre de la rédaction d'un rapport annuel, je dois repérer mes données rapidement sur une carte de France.
J'effectue des visites de sécurité incendie dans des musées de France, et à l'issue j'ai différentes données que je dois répertorier par région et par département (nombre de visite, les avis, s'il existe un système de sécurité incendie...).
J'aimerai rentrer mes éléments sur une base de données, pour qu'elles s'affichent directement sur la carte afin qu'à l'instant T je puisse savoir ou j'en suis..
Je joins le fichier que j'ai trouvé qui se rapproche le plus de ce que je recherche.
Par exemple, au lieu de FR-01, j'aimerai "Ain", une seconde carte par région sur le même principe...
Merci pour votre aide
Bonjour
Sur ce fichier, la base contient le département, le Nb de clients et le CA par département.
Tu devrais pouvour l'adapter à ton cas?
Cordialement
Bonjour Amadeus,
un grand merci pour ta réponse et ta réactivité.
Je me penche sur le fichier au plus vite et je reviens vers toi.
brunoaimej
Me revoila après plusieurs jours de recherches infructueuses.
En effet le fichier joint par amadeus reste une ouverture intéressante.
Je souhaite changer les valeurs et les couleurs qui apparaissent dans le tableau de gauche:
L'objectif est de connaître les départements les moins visités
0 en rouge
1 à 5 en orange
6 à 10 en bleu
11 à 20 en vert
par exemple
Merci pour votre aide
Salut le forum
Sur la feuille «Departements», modifie la couleur de fond des cellules C3:C7 et E3:E7
Mytå
Super, j'ai réussi et j'ai au moins compris une chose mais je veux encore progresser
le mix de ces deux fichiers pourrait être la solution?
merci
Bonjour,
Désolé de revenir sur un post vieux de deux ans, mais je viens de personnaliser à ma région un des deux exemples. Je n'ai aucune connaissance en VBA, hormis le Copier-Coller
Cela répond à mes attentes, sauf que la carte ne se met à jour que si j'encode chiffre par chiffre.
Comment modifier la formule
Option Explicit
Sub ColorieDepartement(CelMod As Range)
Dim Ligne As Long
Dim Couleur As Long
Dim Formes As Object
Ligne = CelMod.Row
With ThisWorkbook.Sheets(1)
Set Formes = .Shapes(.Cells(Ligne, 2))
With Formes
.Fill.Solid
.Fill.Transparency = 0#
.Fill.ForeColor.RGB = CouleurDep(ThisWorkbook.Sheets(1).Cells(Ligne, 3).Value)
With .TextFrame2.TextRange
.Characters.Text = ThisWorkbook.Sheets(1).Cells(Ligne, 3).Value
.Characters().Font.Size = 8
.Parent.VerticalAnchor = msoAnchorMiddle
.Parent.HorizontalAnchor = msoAnchorNone
End With
End With
End With
End Sub
Function CouleurDep(CelRef As Variant)
If CelRef = "" Or CelRef = 0 Then CouleurDep = 16777215
If CelRef >= Range("e36") And CelRef <= Range("g36") Then CouleurDep = 16777215
If CelRef >= Range("e37") And CelRef <= Range("g37") Then CouleurDep = 13209
If CelRef >= Range("E38") And CelRef <= Range("g38") Then CouleurDep = 255
If CelRef >= Range("E39") And CelRef <= Range("g39") Then CouleurDep = 39423
If CelRef >= Range("E40") And CelRef <= Range("g40") Then CouleurDep = 65535
If CelRef >= Range("E41") And CelRef <= Range("g41") Then CouleurDep = 52749
If CelRef >= Range("E42") And CelRef <= Range("g42") Then CouleurDep = 52377
If CelRef >= Range("E43") And CelRef <= Range("g43") Then CouleurDep = 26637
If CelRef >= Range("E44") Then CouleurDep = 16763904
End Function
Je joins la carte en question.
D'ores et déjà un tout grand merci de votre aide.
Philippe