XL 2019 carte entre deux mers

muse 1405 à dit:

mais je n'arrive pas à modifier la carte.

Cliquez pour agrandir...

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

muse 1405 à dit:

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

Cliquez pour agrandir...

p56 à dit:

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

Cliquez pour agrandir...

muse 1405 à dit:

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

Cliquez pour agrandir...

muse 1405 à dit:

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

Cliquez pour agrandir...

muse 1405 à dit:

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

Cliquez pour agrandir...

p56 à dit:

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

VB:

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.

Cliquez pour agrandir...

p56 à dit:

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

Cliquez pour agrandir...