Afficher une couleur sur un département avec une combobox
Bonjour,
J'en ai trouvé d'autres, des anomalies
Parfois ça plante mais seulement avec la souris: en rouge plantage, en jaune ça ouvre un autre département
Du coup j'ai tout modifier en laissant N°Corse=20
nouveau fichier avec toutes les données et nouvelle carte
J'ai juste besoin du code pour ajouter qu'un seul userform pour toutes les villes
Par exemple si je veux changer tous les noms des villes que j'ai ajouté
avec ce code je dois le faire un par un
ActiveSheet.Shapes("Quimper").Name = "Préfecture= Quimper"mais en automatique, c'est sûrement possible?
merci
Désolé pour tous ces messages
avec ton code
Sub TextForme()
...et une liste déroulante sur la feuille
TwoLine ne fonctionne pas chez moi mais l'autre ok
voici un 3eme fichier avec quelques villes, qui remplace les 2 autres
par contre pour effacer ?
merci et encore mille excuses pour ces petits romans
Ge0ffroy
Bonsoir Geoffroy,
Je viens de télécharger ton dernier fichier.
Par exemple si je veux changer tous les noms des villes que j'ai ajouté
avec ce code je dois le faire un par un
Pas vraiment, comme indiqué dans mon message de Lundi, les noms des préfectures sont dans la colonne L en ligne avec leur département.
Il suffit donc de boucler sur cette colonne pour récupérer les données inscrites.
On peut aussi en cliquant sur un département (ou le combo dpt) faire aussi apparaître sa préfecture. Idem, mais à contrario en passant par la combo ville colorer le département en ligne avec celle-ci.
Je regarderais ton fichier demain, et présenterais 2 versions (XL 2007 et XL récents) en fin de semaine.
A +
bonsoir X Cellus
et merci beaucoup
bonne soirée
Bonjour X Cellus,
Je suis arrivé à faire ceci( utilisé recherchev en M1):
on choisi une ville dans l' userform et le département de cette dernière se met en bleue( une autre couleur serait mieux)
par contre le 1er département ne s'efface pas(pas arrivé à faire)
merci pour tout
Geoffroy
Bonjour X Cellus,
et encore une fois désolé mais ce dernier fichier n'est pas bon.
Voici le tout dernier où j'ai pu changer la couleur des villes mais je n'arrive pas à effacer la couleur du 1er clic
Pas encore sécurisé, si ville n'existe pas dans le tableau, ça plante.
Pour la Corse ce n'est pas la peine, après réflexion je n'ai besoin que de la France
Merci
Ge0ffroy
Ok, je prends le dernier posté pour le modifier en fin de semaine.
Pas encore sécurisé, si ville n'existe pas dans le tableau, ça plante.
Pour cela il faut vérifier que la ligne de la ville n'est pas vide. Et donc de lancer une boîte de message indiquant que vu que la cellule est vide, il n'est pas possible de poursuivre l'exécution du code.
A bientôt.
Bonsoir Ge0ffroy,
En retour le fichier le plus récent posté.
Voir si le principe convient.
Si l'on passe directement par un clic sur la carte. Le département ciblé se teintera de bleu. Idem si l'on modifie le combobox département.
Si l'on passe par le combobox villes, le département s'affichera en rose en rapport avec la ville cible.
Si l'on vide le combobox villes, le département redeviendra bleu pour montrer que l'on revient sur le choix par département.
Si, c'est ok, je continuerais avec l'affichage des villes sur la carte.
Bonsoir,
Excellent travail
bravo!
c'est super
Merci beaucoup
Oui c'est ok 👌
Geoffroy
Bonjour X Cellus,
Peux-tu ajouter un bouton validation avant que la ville s'affiche?
Donc ce que j'aimerais avoir:
je choisis une ville dans la combo et si ça me conviens, je clic sur valider.
car parfois j'ai des villes avec le même nom et je choisi par rapport au cp (j'ai rentré 35000 villes avec cp entre parenthèse)
j'ai bien essayer de mettre le choix dans une textbox puis valider avec un bouton mais sans succés
autre chose si tu as encore un peu de temps:
Chaque ville ont maintenant un LienHypertexte
Peut-on afficher ce lien sur l'userform ou la feuille dès qu'on choisi une ville?
merci
Ge0ffroy
Bonjour X Cellus,
Ci-joint fichier avec 50 villes contenant lien Hypertexte
J'ai ajouter une combo pour code Postale, un bouton OK et une textbox
ce que j'aimerais avoir
1- pouvoir saisir une ville dans la combobox2 ou saisir un code postale dans la combobox3
ça s'affiche dans la textbox11 et on confirme avec le bouton OK
2- avoir le nom de la ville contenant le lien hypertexte sur Userform, si c'est possible ?
et un grand merci à toi
bonne soirée
Ge0ffroy
Bonjour, X Cellus,
Mon dernier fichier est pleins d'erreurs, désolé
voici 100 villes avec liens hypertexte
j'ai pris ton dernier fichier et juste changé la carte car aussi des erreurs:
J'ai ajouté toutes les villes principales en jaune avec préfectures.
Est-il possible de saisir dans la case ville(combobox2) soit:
la ville ou le N° département qui se trouve à la fin exemple:
| Agassac (31230) |
car là je peux juste saisir la 1ère lettre
Merci pour ton aide
Ge0ffroy
Bonsoir Ge0ffroy,
A l'instant je télécharge ton dernier fichier et te dis au mieux avant la fin du Week-end.
Selon tes récentes informations.
A bientôt.
Bonjour X Cellus,
T'inquiète, fais le quand tu as du temps à perdre
Je ne suis pas pressé.
Désolé pour les changements
Bon WE
Ge0ffroy
Bonsoir Ge0ffroy,
Voilà le fichier modifié suite aux dernières remarques.
Est-il possible de saisir dans la case ville(combobox2) soit:
la ville ou le N° département qui se trouve à la fin exemple:
Lire les notes (rouge) en haut à gauche de la première feuille.
Bonsoir X Cellus,
Excellent travail bravo!
C'est super
Pour le lien est-il possible de l'afficher sur userform une fois la ville choisi?
Par contre, et surtout quand tu as un peu de temps.
Peut-on indiquer la ville, par exemple Quimper, avec une flêche ou autre, une fois saisie ou choisie?
encore merci et bonne soirée
Ge0ffroy
Bonjour X Cellus,
Je suis encore
Comment as-tu fais ça?
Pour les 2 chiffres (CP),je n'ai pas trouvé où et comment?
Si tu as un peu de temps pour m'expliquer, en résumer, car je suis épaté
Bravo et un grand merci
re
je pense avoir trouvé pour le code postale
il lit la colonne 3 (ville) et va l'afficher sur la colonne J
If Sheets("Ville").Cells(v, 3) Like ChxDpt Then w = w + 1: Sheets("Ville").Range("J" & w) = Sheets("Ville").Cells(v, 1)
c'est excellent
C'est bien ça?
par contre cette ligne (Range("J" & w + 1) = "Fin de sélection")
s'affiche sur la carte en J
c'est normale
Merci
Bonjour Ge0ffroy,
Je te réponds de mon phone. Je vois que tu as trouvé pour le code postal.
Pour fin de sélection, c'est normal. Car il peut arriver qu'il n'existe qu'une ville trouvée. Du moins dans l'exemple proposé avec quelques dizaines de ville. Et pour cette seule ville, cela beuguait 😉.
Donc j'ai rajouté une fin de ligne afin de pallier à cela.
A+