Carte géographique interactive

Bonjour;

j'ai crée une carte interactive sur excel attachée à des données statistiques par région comprenant :population, densité géographique, nombre d'entreprise installé dans la région

je souhaiterai créer une macro VBA où une région sur la carte prend une couleur selon une le nombre d'entreprise installée

j ai une fourchette de 0 à 7 cases

Classes Nbre entreprises installée région couleur
0 0 a vert
1 2 b bleu
2 4 c ....
3 8 d ....
4 10 e ....
5 14 f ....
6 plus 14 h Rouge

merci de m'aider

12 réponses

  1. Si tu veux par souci de confidentialité tu peux m'envoyer le fichier en message privé (clic sur mon pseudo)
    1. je viens de cliquer sur votre pseudo , j ai rien trouvé
      svp, reessayer le lien, et ci après le mot de passe et l utilisateur
      lien:

      https://www.partage-fichiers.com/upload/dnmnx76m/admfile.php

      Utilisateur : v4yi6nt1

      Mot de passe : 8e7ys4vb
  2. Je n'y arrive toujours pas

    Je t'ai écrit un message en privé
    Clic sur la petite enveloppe à côté de ton pseudo dans la barre noire tout en haut
    1. Bonjour;

      on voulant accéder au fichier aujourd'hui et exécuter la macro, excel m'a affiché ce message d'erreur


      merci de vouloir bien m'aider
      1. Bonjour

        Comme ça je ne peux rien faire
        Reposte moi ce fichier récalcitrant sur mon-partage.fr

        1. https://mon-partage.fr/f/arheKQKb/
      2. Je ne comprends
        Pas de bug chez moi, j'ai fait réactualiser et tout se colorie bien :
        https://mon-partage.fr/f/bMLIE3yn/

        Cdlmnt
        Via

        1. j ai toujours le même message , c est quoi la raison d’après vous

          autre chose, il faut que ca soit une macro private sub ???????
          puis je mettre la macro dans le module ?
        2. La raison doit provenir de ton ordi !
          Tu peux mettre la macro dans un module puis la lancer par son nom depuis le ruban où depuis le bouton
        3. ok je vais réessayer
          merci
        4. Bonjour;
          je viens de réessayer mais sans sucés
          excel m'indique que l erreur se trouve dans ces deux requêtes
          'ActiveSheet.Shapes(nom).Fill.ForeColor.RGB = coul ' colore la forme avec nom de région
          'ActiveSheet.Shapes(forme).Fill.ForeColor.RGB = coul 'colore la forme avec nom de forme

          aussi, j aimerai savoir pourquoi 'coul' n' a pas été defini

          merci de m'orienter
      3. Bonjour

        Je ne sais pas non plus (à moins que tu aies changé la place de la légende
        Essaie de remplacer les 3 lignes de la macro qui gèrent la couleur par celle-ci pour voir si ça bug aussi :
        If clas > 26 Then coul = Range("E27").Interior.ColorIndex Else coul = Range("E" & clas).Interior.ColorIndex ' récupère couleur dans légende
        ActiveSheet.Shapes(nom).DrawingObject.Interior.ColorIndex = coul ' colore la forme avec nom de région
        ActiveSheet.Shapes(forme).DrawingObject.Interior.ColorIndex = coul 'colore la forme avec nom de forme


        Cdlmnt
        Via
        1. Bonjour
          je reviens vers vous via55

          j'ai toujours ce massage d'erreur qui s'affiche lors de l'exécution de ma macro

          "Run time error '-2147024809(80070057)':
          the item with the specified name was not found"

          j'ai remarqué que la macro s arrête à la ligne 4 , probablement que l erreur est dans cet emplacement

          merci de m aider

          mais surtout j aimerai bien connaitre la signification de cette erreur
          1. voici un autre fichier , modifié
            https://mon-partage.fr/f/Z4z1QSIn/

            merci de m'aider
            1. 1) the item with the specified name was not found semble signifier qu'il ne trouve pas une forme avec le nom recherché par la macro dans la colonne N ou dans la colonne O
              2) le fichier que tu m'as envoyé n'a plus ni légende ni macro, je ne peux rien en faire

              1. Merci de m'avoir éclairé
                je vous tiendrai au courant