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. 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

    0
    1. Merci de m'avoir éclairé
      je vous tiendrai au courant
      0
  2. voici un autre fichier , modifié
    https://mon-partage.fr/f/Z4z1QSIn/

    merci de m'aider
    0
    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
      0
      1. 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
        0
        1. 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

          0
          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 ?
            0
          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
            0
          3. ok je vais réessayer
            merci
            0
          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
            0
        2. Bonjour

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

          0
          1. ok
            0
          2. https://mon-partage.fr/f/arheKQKb/
            0
        3. 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
          0
          1. 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
            0
            1. Si tu veux par souci de confidentialité tu peux m'envoyer le fichier en message privé (clic sur mon pseudo)
              0
              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
                0
            2. Ca ne fonctionne toujours pas !

              0
              1. envoyez moi votre email svp
                0