Besoin d'aide sur modifications Carte france par GPS de Tatiak

Dranreb à dit:

Bonsoir.
Si vous parlez d'un placement de points dans un graphique en nuage de points représentant des lieux repérés par des coordonnées GPS, il y a peut être des choses qui peuvent vous intéresser dans ce casseur.

Cliquez pour agrandir...

Dranreb à dit:

Une image de carte de France peut être mise en fond du graphique si elle a la bonne échelle, et si elle est en projection stéréographique centrée sur la même origine.

Cliquez pour agrandir...

Dranreb à dit:

Ouais, ben je crois que pour moi aussi c'est trop compliqué… désolé.

Cliquez pour agrandir...

informat à dit:

Bonjour à tout le monde ,
J'ai récupéré un fichier excel créé par Tatiak (ci-joint) , j'aimerais l'utiliser d'une façon différente . J'ai créé un onglet "exemple" avec une liste de villes , je voudrais que la combobox située dans l'onglet "Carte" ne récupère que cette liste et puisse effectuer au click le placement Gps de ces villes . L'onglet "Data" sert de base de données comme Initialement avec toutes les villes de références, leurs codes postaux et coordonnées Gps ainsi qu'une colonne Infos. Les villes de l'onglet "exemple" ne sont et ne seront qu'un extrait de "Data" . Les couleurs prévues dans l'onglet "Carte" ne me sont pas utiles.J'ai supprimé une partie de la carte de France pour son volume.
Mon niveau en Vba est trop limité pour y parvenir , j'y ai passé plusieurs jours en vain.
Je remercie Tatiak pour toutes ces créations . S'il est de passage sur le site et trouve le temps de se pencher sur ma demande ou si quelqu'un d'autre peut le faire ,je l'en remercie à l'avance .

Cliquez pour agrandir...

    With Sheets("Data")
        lg = .Cells(Rows.Count, 1).End(xlUp).Row
        cl = .Cells(1, Columns.Count).End(xlToLeft).Column
        T0 = .Range(.Cells(1, 1), .Cells(lg, cl)).Value
    End With

    Set tbl = Sheets("Exemple").ListObjects("tabExemple")
    With Sheets("Exemple")
      lg = tbl.ListRows.Count ' permet de connaître le nombre de lignes du tableau structuré
      cl = tbl.ListColumns.Count ' permet de connaître le nombre de colonnes du tableau structuré
      T0 = tbl.Range ' stocke toutes les valeurs du tableau structuré dans le tableau T0 qui servira à alimenter la liste déroulante
    End With