Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim St As String, Lien As String
If Target.Value = "" Then Exit Sub
If Not IsNumeric(Target.Value) Then
St = CStr(Target.Value)
Else
St = Target.Address
St = Range(Chr(Asc(Mid(St, 2, 1)) - 1) & Mid(St, 3, Len(St)))
End If
Lien = "http://fr.wikipedia.org/wiki/" & St
ActiveWorkbook.FollowHyperlink Address:=Lien, NewWindow:=True
End Sub
Y a un bémol, il faut gérer les cas particuliers (plusieurs communes du même nom, typographies parfois différentes de Wikipedia...). Je vais essayer de faire une synthèse si c'est possible.
Bonsoir,
bravo et merci pour cet outil.
Quelques remarques suite à quelques tests rapides (à toi de voir si ce sont des points qu'il convient de modifier ou ou non) :
- les numéros des 10 premiers départements de France métropolitaine sont notés sur 1 chiffre alors que la norme est 2 chiffres (mais peut-être est-ce plus simple pour toi de procéder ainsi) ;
- même remarque pour les codes postaux dont certains sont sur 4 chiffres alors que la norme est 5 chiffres (avec un zéro devant) ;
- Liste des départements : l'Ain est en majuscules contrairement à tous les autres ;
- Liste des codes postaux : problème de tri (le 1er code postal de la liste n'est pas trié).
- Liste des régions : underscore ("_") utilisé à la place du tiret ("-") ou de l'espace.
A+
bonjour david84
judicieuses tes remarques, pour l'Ain en majuscule, c'est parce que c'est écrit comme cela sur la feuille, facile a modifier
pour le reste je laisse le soin a Jean-Paul de voir
Je n'ai pas regardé le code que tu avais utilisé mais je me doutais que c'était plus simple de trier avec les données telles que tu les avais plutôt qu'avec des données avec un "0" devant. Le plus simple est peut-être de ne pas modifier la macro de tri mais plutôt de traiter cette partie au niveau de l'affichage des données dans la liste.
A toi de voir : de toutes les façons c'est tout de même secondaire.
A+
Le tri est pratiquement bouclé.
Le problème si le nombre de communes par département n'est pas correcte
On pourra les ajouter (ou supprimé suite à des fusions de communes).
Et refaire le tri sans problème. Mes essais sont concluant.
voici la version 9 des "CodesPostauxFrance"
Donc j'ai effectué une mise en forme sur les CP, plus des petit trucs accessible par le bouton "Doublon".
De même il y a en plus un bouton 'Tri", vous pouvez faire l'essai sur le département "988" ils ne sont pas dans l'ordre.
Le bouton infos est à jour.
Comme tout le monde, je trouve que tu as fait un gros travail !
Le problème c'est le poids du fichier (cf. post du 30/11). Sans les liens hypertextes, il passe de 14,5 Mo à 3,5 Mo. Je te propose dans le fichier ci-joint une procédure dans la feuille 2 et une autre façon de chercher la bonne nomenclature dans la procédure Wikipédia (appelé dans la feuille 2 et dans l'Userform.
J'ai remarqué que pour beaucoup de villes, il suffit de rajouter le département. Ainsi pour toutes les villes portant des noms de saints (exemple Guadeloupe) ou des villes "Le Bourget "Montreuil" "Saint-Denis" "Saint-Ouen" "Villepinte" "Goyave" "Lamentin" (Seine Saint-Denis - Guadeloupe) cela fonctionne. Tu vas directement à la page voulue pour ces deux départements et non plus sur une page qui donne le choix entre les différents Montreuil ou les différents saints.
Pour commencer, les cellules qui ne posent pas de problème ont un format de nombre "standard" et celle auxquelles ont doit ajouter _(nom département) ont un format Date "m/d/yyyy". Les cas particuliers où je n'ai pas trouvé de règles sont en format Pourcentage " "0.00%" qui va renvoyer vers une fonction recherche qui reste à trouver.
Si cela 't'intéresse, je veux bien essayer de continuer (cf. le lien du 30/11). Je pense qu'ensemble on irait plus vite et ton travail aboutirait à un fichier de moins de 4 Mo beaucoup plus facile à charger.
Oui tu as tout à fait raison, effectivement le fichier maigri à vu d'oeil.
Je ne me suis pas attardé dessus, mais la disparition des liens hypertextes.
c'est vraiment un gain.
Pour optimiser la recherche ok j'adopte.
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD