Carte de france dynamique

[slipman]

Bonjour,



Débutant en VBA, je sollicite votre aide concernant le fichier en pièce jointe.
Ce fichier, je l'ai trouvé sur le net.
J'aimerai pouvoir personnaliser la carte de France figurant dans l'onglet "Carte" en fonction des éléments saisis dans la colonne D de l'onglet "donnees".


si par exemple dans la celulle D2=1
alors cela va colorié la carte d'une couleur défini par le 1
si D2=2 alors une autre couleur...

après j'aurai voulu le visualiser directement dans l'onglet carte les Régions correspondante à 1, 2,...



Merci d'avance.

 

[maval]

Re : Carte de france dynamique

Bonjour Roland_M, Le Forum,

Je m’excuse de rentrer sur cette conversation mais J’ai suivi depuis le début les postes que je trouve intéressant et je voudrais poser si possible 2 questions ?

1) Sur le poste14# comment déplacer la liste des régions en colonne "N "
2) Comment ajouter les départements de Dom Tom à la carte

Je vous remercie et vous souhaite une très bonne journée

 

[Roland_M]

Re : Carte de france dynamique

bonjour,

pour déplacer c'est simple !
d'abord il faut tout déplacer ensemble !
ensuite modifier les constantes dans le module1 pour que ça corresponde aux NoDeLig et Colonnes

les const ici à adapter:
Private Const Donn_ColIdDep% = 1, Donn_ColNomDep% = 2, Donn_ColIdReg% = 3, Donn_ColNoReg% = 4
Private Const Donn_NoPremLigNoReg% = 2, Donn_NoDernLigNoReg% = 7
Private Const Donn_NoPremLigDonnees% = 2, Donn_NoDernLigDonnees% = 97
Private Const Donn_NbrDeDepart% = 96 '(97-2+1)

quand au reste il faut faire des recherches pour trouver les graph et les intégrer
c'est possible mais il y a une de travail car dégrouper ça va mais regrouper c'est autre chose
on à tout même environ une centaine de graph !
et je sais pas comment tout saisir d'un coup sans avoir à les cliquer un par un !
perso je pense que je le ferai par macro.

 

[DoubleZero]

Re : Carte de france dynamique

Bonjour, slipman, Roland_M , maval, le Forum,

... comment tout saisir d'un coup sans avoir à les cliquer un par un...

Peut-être ainsi :

Option Explicit
Sub Zones_regrouper()
ActiveSheet.DrawingObjects.Group
End Sub

A bientôt

 

[maval]

Re : Carte de france dynamique

Bonjour Roland,

Je te remercie de ta réponse si rapide
Pour les graph pas de problème j'ai ajouté mais après pour le reste?

Je joint les graph au cas ou?

Merci d'avance

 

[Roland_M]

Re : Carte de france dynamique

re

@maval je vais regarder !

@DoubleZero merci à toi c'est très sympa !

j'avais déjà fais mes recherches et adapter à mes besoins et voici ma macro !

Sub GroupeDegroupShapes()
Dim Sh As Shape
Dim Tableau() As Variant
Dim I%
Sheets("Carte").Select

'         dégrouper             .
For Each Sh In ActiveSheet.Shapes
 If Sh.Type = msoGroup Then Sh.Ungroup
Next

'         regrouper             .
For Each Sh In ActiveSheet.Shapes
 If Sh.Type = 5 Then 'ici c'est 5 qui nous intéresse
    I = I + 1: ReDim Preserve Tableau(1 To I)
    Tableau(I) = Sh.Name
 End If
Next
If I = 0 Then Exit Sub
Set Sh = ActiveSheet.Shapes.Range(Tableau()).Group
Sh.Name = "CarteFrance"
End Sub

EDIT: par contre ton code c'est direct !
mais je sais pas comment le renommer avec cette méthode !?

 

[DoubleZero]

Re : Carte de france dynamique

Re-bonjour,

Autre façon de procéder... mais je ne parviens pas à regrouper uniquement les formes de type 5.

Option Explicit
Sub Zones_dégrouper()
ActiveSheet.DrawingObjects.Ungroup
End Sub

Sub Zones_regrouper_nommer()
ActiveSheet.DrawingObjects.Group
ActiveSheet.DrawingObjects.Select
Selection.Name = "CarteFrance"
End Sub

A bientôt

 

[Roland_M]

Re : Carte de france dynamique

re

évidemment !
ActiveSheet.DrawingObjects.Select
Selection.Name = "CarteFrance"

quel c... je suis ! je ne dois pas être réveillé !

merci !

 

[DoubleZero]

Re : Carte de france dynamique

Re-bonjour,

... je ne dois pas être réveillé !

Roland_M ,

A bientôt

 

[Roland_M]

Re : Carte de france dynamique

re,

@maval, un premier jet !

 

[maval]

Re : Carte de france dynamique

Re,

Beau travail, je te remercie,
Pourquoi avoir supprimer les régions de paris qui était plus visible?
je te souhaite un bon WE

 

[Roland_M]

Re : Carte de france dynamique

re

c'est un premier jet !?
il y a peut être des choses à revoir !?
je te remettre le fichier car j'ai fini de modifier les couleurs !

quand à Paris, oui bien sûr, mais c'est suffisamment lourd comme ça !?
j'y regarde tout de même !

 

[Roland_M]

Re : Carte de france dynamique

re,

@maval !

ci-joint avec ta région parisienne !

EDIT: petites finitions ...

 

[maval]

Re : Carte de france dynamique

Re,

Je te remercie beaucoup Nickel

Bon WE

 

[Roland_M]

Re : Carte de france dynamique

re

j'ai fais une modif afin de pouvoir sélectionner Saint-Martin (haut&bas)

EDIT:

@jack2 et @maval

rajout qq modif ! à reprendre !

 

[Jack2]

Re : Carte de france dynamique

Bonjour le fil,

@ Roland_M
Merci pour ce travail que vais essayer d'adapter pour les villes d'un ou x départements.

A+ Jack2