Carte de france de départements et colorisation

**SpaceFrog** · 02/10/2008, 10h51

Bonjour !

Bon ça faisait un bail que je n'étais pas passé par ici, et dans le fond ça n'a pas beaucoup changé

.

Bref voici ce qui m'amène

Je dois réaliser une appli qui aboutit à une carte de france des département colorisée, la couleur de chaque département étant issue d'un calcul réalisé précédemment.

Mais je ne vois vraiment pas comment arriver à coloriser les départements

La seule piste que j'entrevois serait d'untiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function FloodFill Lib "gdi32" (ByVal hDestDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal Couleur As Long) As Long

Mais cela supposerait d'avoir une carte blanche avec le tracé des départements parfaitement "etanche" et un tableau avec les coordonnées d'un point dans le département pour chaque département ...

Auriez vous d'autres pistes à me suggérer ???

Merci par avance

**ucfoutu** · 02/10/2008, 11h21

Bonjour,

Il n'y a en effet que Floodfill qui soit adapté et il faut en effet que les contours ne souffrent aucune solution de continuité.
A moins que tu ne nous aies pas tout dit et que tes départements soient déjà colorés distinctement et que tu ne veuilles simplement modifiers leurs couleurs.

Edit :
Maintenant et ce quelles que soient les couleurs éventuellement présentes (couleur "de fond" ou autre) :
On peut s'en sortir avec Floodfill si toutes les conditions suivantes sont réunies :
- couleur des limites toujours la même (et utilisée pour chacun des départements)
- si solution de continuité dans les limites : que cette solution de continuité ne soit pas supérieure à 3 pixels (on répare alors... on sait faire)
- couleur à l'intérieur des limites : parfaitement uniforme (ce qui écarte les images scannées).

**SpaceFrog** · 02/10/2008, 11h42

merci de cette réponse voici ce qu'elle m'inspirse

argggggggggggggggg

les prérequis de continuité de tracé et de couleurs de tracé ne posent pas de souci

les contours seront noirs et le fond blanc

Mais là ou àa me pose souci est comment transférer le tracé dans un picture box ?
je ne peux pas le faire à partir d'une simple image gif jpg ou bmp ??? si ?

Ensuite pour les coordonnées d'un point au milieu du département ?
Comment je procède ???

**ucfoutu** · 02/10/2008, 11h52

Envoyé par SpaceFrog

les prérequis de continuité de tracé et de couleurs de tracé ne posent pas de souci

les contours seront noirs et le fond blanc

Mais là ou àa me pose souci est comment transférer le tracé dans un picture box ?
je ne peux pas le faire à partir d'une simple image gif jpg ou bmp ??? si ?

Ensuite pour les coordonnées d'un point au milieu du département ?
Comment je procède ???

1) Bon : un problème de moins si tu as la continuité des tracés de limites.
2) pour ce qui est du transfert dans une picturebox : le problème n'est pas tant celui-ci que celui de la qualité de ton blanc et de ton noir : si ton blanc est vraiment partout = RGB(255,255,255) et que ton noir est vraiment partout RGB(0,0,0) ===>> aucun souci de ce côté-là
3) pour le reste (un point de départ pour le "rouleau" FloodFill : la solution consisterait à utiliser un fichier texte structuré en base de données, les données pouvant être le "gisement" (latitude et longitude) de chaque Chef-lieu et la couleur à utiliser.

Edit : on trouve un peut partout (y compris, si je me rappelle bien, sur ce site, des sources VB6 pour transposer en coordonnées géographiques "plates" un gisement exprimé en latitude et longitude.
Le reste n'est qu'une question de mise à l'échelle de ta picturebox (arithmétique).

**SpaceFrog** · 02/10/2008, 11h55

pour le cote black & white aucun souci je peux triturer mon image de base pour n'avoir que du noir et du blanc.

pas contre pour les coordonnées des chef lieu

...

il n'y a pas des ressources en ligne ?

**ucfoutu** · 02/10/2008, 12h01

Je ne crois pas que tu triuveras toute faite une base adéquate de ces données. Il va à mon avis te falloir la constituer. Un fichier texte suffirait, sur cette structure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Type mes_machins
  abscisse as integer
  ordonnee as integer
  couleur as long
end Type

A renseigner par Put et à lire par Get

Edit :
Pour ta base :
Je viens de frapper (google) Lyon altitude ===>>
http://meteolinternaute.tv5.org/pays...s=76&ville=524
On y voit en haut et à droite l'altitude et la longitude.

Edit 2 : et puis ... tu sais quoi ?
Considérant que :
- La superficie de la France n'est pas grande
- aucun Chef-lieu de Département ne se trouve en bordure

Tu n'auras pas besoin de réellement transférer en données "à plat".
Tu pourras te contenter de données "approximatives" par une règle de trois (tu tomberas toujours à l'intérieur du bon périmètre)...

**SpaceFrog** · 02/10/2008, 13h07

bon ben pour les coordonnées je passerais pas GImp, je connais un moyen d'exporter un fichier de coordonnées de points sur une image, en plus ces coordonnées sont directement en rapport avec le point 0.0 de la carte donc pas à me casser la tête à transcrire

Par contre j'ai encore un doute sur le fait de mettre une image direct dans le picbox et de pouvoir floodFiller directement ... t'es sur ça le fait ?

**ucfoutu** · 02/10/2008, 13h24

Envoyé par SpaceFrog

Par contre j'ai encore un doute sur le fait de mettre une image direct dans le picbox et de pouvoir floodFiller directement ... t'es sur ça le fait ?

Ben oui !
On peut également le faire, si tu préfères, dans une StdPicture (le résultat sera le même) !!!

Edit : mais je viens de tourt relire après mon déjeuner ...
Une phrase appelle mon attention et ... une interrogation . La suivante :

la couleur de chaque département étant issue d'un calcul réalisé précédemment.

Question : que cherches-tu à faire exactement :
Réponse 1 : donner une couleur prédéfinie pour chaque département
Réponse 2 : simplement m'arranger pour qu'une même couleur ne soit pas "attribuée" à deux départements partageant une même "frontière"

Car si réponse 2 ===>> nous n'avons alors plus besoin de la moindre base de données !!!!! ===>> il suffira de balayer intelligemment pour y parvenir...

**SpaceFrog** · 02/10/2008, 13h39

non ce n'est pas le fameux jeu de la colorisation avec le minimum de couleur

c'est un repérage de département.
avec légende chaque couleur ayant une signification précise et l'attribution d'une couleur à un département peu varie dans le temps en fonction de calculs savant et epu importe si des départements contigus ont une couleur identique. la france entière pourrait être d'une seule et même couleur ...

A titre de comparaison on pour dire que c'est une carte de pluviométrie ...

**OhMonBato** · 02/10/2008, 13h42

Envoyé par SpaceFrog

A titre de comparaison on pour dire que c'est une carte de pluviométrie ...

Pour une grenouille, évidemment...

**ucfoutu** · 02/10/2008, 13h45

Envoyé par SpaceFrog

non ce n'est pas le fameux jeu de la colorisation avec le minimum de couleur

c'est un repérage de département.
avec légende chaque couleur ayant une signification précise et l'attribution d'une couleur à un département peu varie dans le temps en fonction de calculs savant et epu importe si des départements contigus ont une couleur identique. la france entière pourrait être d'une seule et même couleur ...

A titre de comparaison on pour dire que c'est une carte de pluviométrie ...

Alors c'est clair : ===>> base de données (un fichier texte structuré en base de données suffira ici, comme dit plus haut).

**SpaceFrog** · 02/10/2008, 13h56

un simple tableau ou objet perso suffirait, pas besoin d'ajouter une dépendance complémentaire ...

Sinon en VBA ça passe aussi l'API FloodFill ?

**ucfoutu** · 02/10/2008, 14h05

Envoyé par SpaceFrog

un simple tableau ou objet perso suffirait, pas besoin d'ajouter une dépendance complémentaire ...

Sinon en VBA ça passe aussi l'API FloodFill ?

Pour le 1) :
Si tu veux ... mais alors : données perdues et à reconstituer à chaque démarrage de ton appli (= lenteurs ajoutées)
Pour le 2) :
Non : pas de contrôle doté de Hdc sous VBA ==>> pas de FloodFill possible (sauf à y aller avec l'artillerie la plus lourde, et créer (Api) un DC, le traiter (Api encore), le "figer" (Api encore), etc...).

**zazaraignée** · 02/10/2008, 14h56

@ ucfoutu
Comment ça, pas de FloodFill possible en VBA? FloodFill est une fonction de l'API Windows. Donc, pas besoin de fendre les cheveux en quatre puisqu'elle ne dépends pas d'Excel (ou autre app. Office) mais bien de Windows.

@ SpaceFrog
Comment ça, VBA? C'est VB6 ici. Tu veux que je déplace vers le Forum VBA (tu mentionnes quelle app. Office)? ou tu préfères rester ici avec nous? L'un ou l'autre, nous, on va te suivre.[Fait!]

**SpaceFrog** · 02/10/2008, 14h57

bon ben comme du coup ça va être a réaliser en VBA sous excel, je peux coller les coordonnées dans une feuille ...
mais après

du coup mon floofill tombe à l'eau ...

reste autant d'images que de départements *nombre de couleurs ???

**Lou Pitchoun** · 02/10/2008, 15h45

Salut SF,

Il faut parfois chercher sur Office pour trouver quelque chose de déjà (presque) fait.

Regarde sur le domaine d'Arkham : http://arkham46.developpez.com/

Un exemple pour illustrer : http://arkham46.developpez.com/artic...page=page_1#LI

En espérant que cela t'aide.

**ucfoutu** · 02/10/2008, 15h45

Envoyé par zazaraignée

@ ucfoutu
Comment ça, pas de FloodFill possible en VBA? FloodFill est une fonction de l'API Windows. Donc, pas besoin de fendre les cheveux en quatre puisqu'elle ne dépends pas d'Excel (ou autre app. Office) mais bien de Windows.
[/I][/SIZE][Fait!]

Bonjour, zazaraignée ,
C'est certes une fonction de l'Api de Windows, mais...
Elle est applicable à un contrôle doté de Hdc....
Aucun de l'espèce sous VBA/Excel !

Voilà tout.

Voilà déjà (la déclaration même de la fonction) de quoi te faire comprendre la difficulté :

Declare Function FloodFill Lib "gdi32" Alias "FloodFill" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Edit : je sais à la rigueur faire pour me servir d'un UserForm, chercher son Hdc, y dessiner dans une échelle Points (celle d'Excel), etc...
Mais : pas de persistance ===>> pas de FloodFill.
Me relire : il faudrait tout créer par des fonctions de l'Api et gérer par d'autres fonctions de l'Api de Windows... TOUT.

Edit :; maintenant : si quelqu'un d'autre a cette solution : déssiner (çà je sais déjà) et "figer" sous VBA/Excel sans l'ajout (ocx) d'un contrôle ad hoc ou sans passer par toutes les fonctions de l'Api de Windows pour créer un Device Context et le gérer (persistance comprise) , je suis toute ouïe et fort intéressé...

**SpaceFrog** · 02/10/2008, 16h01

Desolé LouPi ... Je n'ai rien trouvé dans le lien que tu m'a donné qui puisse m'aider à faire une carte de france sous VBA Excel j'avoue que ça reste confus ...
J'ai bien downloadé le truc accès, mais je ne trouve pas la partie du code correspondant à la carte de france ...

Invité · 02/10/2008, 18h36

Salut

Va jeter un coup d'oeil dans le forum Contribution d'Access, Philben a mit pas mal de choses comme ici : http://www.developpez.net/forums/d56...80-000-villes/, et il y en a quelques autres.

C'est du Access, mais peut-être qu'il y a des moyens sous Excel (pas sûr, mais c'est une piste).

Starec