Automatiser une carte vectorielle dans une feuille excel

tatiak à dit:

Donet mat Bremig!!

Et une carte du Morbihan selon les communes et selon les nouveaux cantons!
Chaque commune peut être cliquée pour afficher l'info chiffrée!

Il te suffit d'indiquer les données à visualiser dans la colonne G de l'onglet Data
Les couleurs peuvent être modifiées à ta convenance dans l'échelle des couleurs (puis clic sur le bouton "colorer")


Comment remplacer "score par adhérent(s) ?

il semble que la fonction colorer ne fonctionne pas bien et comment supprimer, changer les couleurs déjà en place ?

Cliquez pour agrandir...

tatiak à dit:

Salut,
sur mon PC ça fonctionne, quel est ton problème?
Pierre

Cliquez pour agrandir...

tatiak à dit:

Ben oui, si tu changes l'échelle des valeurs sans adapter le code, c'est sûr que ça va marcher moins bien!😛

Si tu veux une échelle de 5 en 5 avec 0 comme premier échelon, il faut écrire:

Code:

Function def_color(score As Integer) As Byte
    def_color = 0
    If score >= 0 And score <= 100 Then def_color = IIf(score = 0, 0, Int((score-1) / 5) + 1)
End Function

(les échelons doivent être contigus! echelon1=0, echelon2=1 à 5, echelon3=6 à 10, echelon4=11 à 15, etc ...)

Cliquez pour agrandir...

Bremig à dit:

j'ai dû manquer quelque chose car les communes correspondant à 0 ne se colorent pas comme indiqué.

* D'autre part, la dernière partie : Une fois la carte au point, comment je la sépare du paramétrage pour l'envoyer aux adhérents ?

Cliquez pour agrandir...

BOISGONTIER à dit:

Bonsoir,

Code:

Sub coloriage()
  For Each C In [communes]
   If C <> "" Then
     nb = C.Offset(, 4)
     p = Application.Match(nb, [légende], 1)
     couleur = Range("légende").Cells(p, 1).Interior.Color
     Sheets("carte").Shapes(C).Fill.ForeColor.RGB = couleur
   End If
  Next C
End Sub

JB

Cliquez pour agrandir...