XL 2019 carte entre deux mers

[muse 1405]

Bonjour je souhaiterais faire la meme chose pour ma thèse mais je n'y arrive pas.
C'est une carte que je voudrais créer et pouvoir modifier

Merci de votre aide

 

[p56]

Bonjour,
Voici la carte du CPTS demandé.
Les infos (nom de la commune, n°insee, …) sont contenus directement dans les formes.
Un clic sur une commune affiche ces info.
Il sera facile d'ajouter du code pour colorer les communes selon un indicateur quelconque.
ci-joint la carte et la liste des communes et leurs codes-carte correspondants aux formes dessinées.
Souhaitant que ça convienne
P56

 

[muse 1405]

parfait merci beaucoup ^^
Plus qu'à illustrer mes résultats
Si j'ai besoin d'aide je reviendrais vers vous.

 

[muse 1405]

Bonjour, est-ce que quelqu'un peut encore m'aider je souhaiterais avec cette carte enlever les macros et pouvoir mettre une légende et des couleurs selon la population.
Je veux aussi mettre toutes les pharmacies sur la carte, mais je n'arrive pas à modifier la carte.
je suis vraiment débutante..

 

[sylvanu]

Bonjour Muse, P56,

mais je n'arrive pas à modifier la carte.

En PJ une première approche qui n'a rien à voir vraiment avec la demande mais pose le principe de "coloriage". En cliquant sur une zone on la colore et on met son nom en bleu. Avec :

ActiveSheet.Shapes("." & Numéro).Fill.ForeColor.RGB = RGB(255, 255, 192)

(NB : J'ai rapatrié la liste du txt de P56 en feuille Liste pour être plus simple à adresser. )

mettre une légende et des couleurs selon la population.

Pour votre demande, il nous faudrait un peu plus d'informations. En particulier les populations respectives ainsi que le dégradé de couleur désiré.
Le mieux serait que dans la feuille Liste en colonne C il y ait la population par ville.

 

[muse 1405]

ok j'envoie avec la population/ les pharmacies
en vert ce sont les pharmacies interrogées

 

[sylvanu]

Re,
un essai en PJ.
Les couleurs désirées sont à définir en M2,M3,M5 de la feuille Liste.
A noter que Saint-Caprais et Blasimon n'existent pas dans la liste des villes.

 

[muse 1405]

Merci j'ai rajouté blasimon mais je ne sais pas comment le localiser c'est à coté de sauvetaire
Saint caprais existait déjà c'est saint caprais de bordeaux
En fait l'échelle on peut mettre un nombre d'hab par ex
- de 100
- entre 100 et 500
- entre 500 et 1000
- entre 1000 et 1500
- entre 1500 et 2000
- entre 2000 et 3000
- entre 3000 et 4000
- entre 4000 et 5000
- entre 5000 et 6000

Et est-ce que l'on peut enlever la macro cible? on le verra pas quand j'imprimerait mon document?
est ce que l'on peut mettre des points avec la localisation des pharmacies ?
pour la répartition homme femme pour l'instant je ne vais pas trop l'utiliser

Si on ne peut pas faire de point pour les pharmacies mettre juste les villes ou il y en a. J'ai mis une carte en exemple avec la répartition des infirmières

J'espère que je n'en demande pas trop
Merci beaucoup pour ton aide en tout cas

 

[p56]

Bonjour à vous 2,
Voici la carte avec Blasimon (code .259) sans vba
P56

 

[sylvanu]

Re

Voici la carte avec Blasimon (code .259) sans vba

Merci P56. Je l'ai intégré dans la V3.

En fait l'échelle on peut mettre un nombre d'hab par ex

Fait.

Et est-ce que l'on peut enlever la macro cible? on le verra pas quand j'imprimerait mon document?

Il suffit d'appuyer sur le bouton OFF sous l'échelle de couleurs.

est ce que l'on peut mettre des points avec la localisation des pharmacies ?

Ca, je ne sais pas faire.

C'est tout ce que je peux faire.

 

[muse 1405]

Merci beaucoup en tout cas

 

[p56]

@sylvanu :
Pour placer un point rouge, par exemple ici sur la forme code259, voici du code :

Sub Place_Points()
    With ActiveSheet.Shapes(".259")
        Point "pt259", .Left + .Width / 2, .Top + .Height / 2
    End With
End Sub


Sub Point(Nom As String, X As Single, Y As Single)
Dim dia As Single

    dia = 3
    With ActiveSheet.Shapes.AddShape(msoShapeOval, X - dia, Y - dia, dia * 2, dia * 2)
        .Name = "." & Nom
        .Line.Weight = 0.7
        .Fill.ForeColor.RGB = &HFF&
    End With
End Sub

@muse 1405 : sylvanu saura intégrer cette méthode à son code à bon escient. Merci à lui.

P.

 

[muse 1405]

@sylvanu :
Pour placer un point rouge, par exemple ici sur la forme code259, voici du code :

Sub Place_Points()
    With ActiveSheet.Shapes(".259")
        Point "pt259", .Left + .Width / 2, .Top + .Height / 2
    End With
End Sub


Sub Point(Nom As String, X As Single, Y As Single)
Dim dia As Single

    dia = 3
    With ActiveSheet.Shapes.AddShape(msoShapeOval, X - dia, Y - dia, dia * 2, dia * 2)
        .Name = "." & Nom
        .Line.Weight = 0.7
        .Fill.ForeColor.RGB = &HFF&
    End With
End Sub

@muse 1405 : sylvanu saura intégrer cette méthode à son code à bon escient. Merci à lui.

P.

ahah je me sens tellement assistée

 

[sylvanu]

sylvanu saura intégrer cette méthode à son code à bon escient. Merci à lui.

Merci à toi.

 

[muse 1405]

Est ce que je peux demander encore 2 choses
- il y a des villes ou on retrouve plusieurs pharmacies comment mettre plusieurs point sur ces villes?
- est ce que l'on peut mettre le nom de certaines villes sur la carte ?