Trouver le nom d'un département grace à son numéro

Commenter

Contenu du snippet

Entrer le numéro du département et kliké sur OK

Source / Exemple : 


dep = inputbox("Entre le numéro du département.","Département","")

if (dep="01") or (dep="1")then 
msgBox "Le "&dep&" est le département de l' Ain."
msgbox "Son chef-lieu est Bourg."

elseif (dep="") then 
msgBox "Recommence"
depa()

elseif (dep="02") or (dep="2") then 
msgBox "Le "&dep&" est le département de l' Aisne."
msgbox "Son chef-lieu est Laon."

elseif (dep="03") or (dep="3")then 
msgBox "Le "&dep&" est le département de l' Allier."
msgbox "Son chef-lieu est Moulin."

elseif (dep="04") or (dep="4")then 
msgBox "Le "&dep&" est le département des Alpes de Hautes-Provence"
msgbox "Son chef-lieu est Digne."

elseif (dep="05") or (dep="5")then 
msgBox "Le "&dep&" est le département des Hautes-Alpes."
msgbox "Son chef-lieu est Gap."

elseif (dep="06") or (dep="6")then 
msgBox "Le "&dep&" est le département des Alpes-Maritimes."
msgbox "Son chef-lieu est Nice."

elseif (dep="07") or (dep="7")then 
msgBox "Le "&dep&" est le département de l' Ardèche."
msgbox "Son chef-lieu est Privas."

elseif (dep="08") or (dep="8")then 
msgBox "Le "&dep&" est le département des Ardennes."
msgbox "Son chef-lieu est Mézières."

elseif (dep="09") or (dep="9")then 
msgBox "Le "&dep&" est le département de l' Ariège."
msgbox "Son chef-lieu est Foix."

elseif (dep="10") then 
msgBox "Le "&dep&" est le département de l' Aube."
msgbox "Son chef-lieu est Troyes."

elseif (dep="11") then 
msgBox "Le "&dep&" est le département de l' Aude."
msgbox "Son chef-lieu est Carcassonne."

elseif (dep="12") then 
msgBox "Le "&dep&" est le département de l' Aveyron."
msgbox "Son chef-lieu est Rodez."

elseif (dep="13") then 
msgBox "Le "&dep&" est le département des Bouches-du-Rhône."
msgbox "Son chef-lieu est Marseille."

elseif (dep="14") then 
msgBox "Le "&dep&" est le département du Calvados."
msgbox "Son chef-lieu est Caen."

elseif (dep="15") then 
msgBox "Le "&dep&" est le département du Cantal."
msgbox "Son chef-lieu est Aurillac."

elseif (dep="16") then 
msgBox "Le "&dep&" est le département de la Charente."
msgbox "Son chef-lieu est Angoulême."

elseif (dep="17") then 
msgBox "Le "&dep&" est le département de la Charente-Maritime."
msgbox "Son chef-lieu est La Rochelle."

elseif (dep="18") then 
msgBox "Le "&dep&" est le département du Cher."
msgbox "Son chef-lieu est Bourges."

elseif (dep="19") then 
msgBox "Le "&dep&" est le département de la Corrèze."
msgbox "Son chef-lieu est Tulle."

elseif (dep="20") then 
msgBox "Ce département en comprends 2."
msgBox "Le 2A et le 2B."
msgbox "Le 2A correspond à la Corse du Sud qui a comme chef-lieu Ajaccio."
msgBox "Le 2B correspond à la Haute-Corse qui a comme chef-lieu Bastia."

elseif (dep="21") then 
msgBox "Le "&dep&" est le département de la Côte d'Or."
msgbox "Son chef-lieu est Dijon."

elseif (dep="22") then 
msgBox "Le "&dep&" est le département des Côtes d' Armor."
msgbox "Son chef-lieu est Saint-Brieuc."

elseif (dep="23") then 
msgBox "Le "&dep&" est le département de la Creuse."
msgbox "Son chef-lieu est Guéret."

elseif (dep="24") then 
msgBox "Le "&dep&" est le département de la Dordogne."
msgbox "Son chef-lieu est Périgueux."

elseif (dep="25") then 
msgBox "Le "&dep&" est le département du Doubs."
msgbox "Son chef-lieu est Besançon."

elseif (dep="26") then 
msgBox "Le "&dep&" est le département de la Drôme."
msgbox "Son chef-lieu est Valence."

elseif (dep="27") then 
msgBox "Le "&dep&" est le département de l' Eure."
msgbox "Son chef-lieu est Evreux."

elseif (dep="28") then 
msgBox "Le "&dep&" est le département de l' Eure-et-Loire."
msgbox "Son chef-lieu est Chartres."

elseif (dep="29") then 
msgBox "Le "&dep&" est le département du Finistère."
msgbox "Son chef-lieu est Quimper."

elseif (dep="30") then 
msgBox "Le "&dep&" est le département du Gard."
msgbox "Son chef-lieu est Nîmes."

elseif (dep="31") then 
msgBox "Le "&dep&" est le département de la Haute-Garonne."
msgbox "Son chef-lieu est Toulouse."

elseif (dep="32") then 
msgBox "Le "&dep&" est le département du Gers."
msgbox "Son chef-lieu est Auch."

elseif (dep="33") then 
msgBox "Le "&dep&" est le département de la Gironde."
msgbox "Son chef-lieu est Bordeaux."

elseif (dep="34") then 
msgBox "Le "&dep&" est le département de l' Herault."
msgbox "Son chef-lieu est Montpellier."

elseif (dep="35") then 
msgBox "Le "&dep&" est le département de l' Île-et-Vilaine."
msgbox "Son chef-lieu est Rennes."

elseif (dep="36") then 
msgBox "Le "&dep&" est le département de l' Indre."
msgbox "Son chef-lieu est Châteauroux."

elseif (dep="37") then 
msgBox "Le "&dep&" est le département de l' Indre-et-Loire."
msgbox "Son chef-lieu est Tours."

elseif (dep="38") then 
msgBox "Le "&dep&" est le département de l' Isère."
msgbox "Son chef-lieu est Grenoble."

elseif (dep="39") then 
msgBox "Le "&dep&" est le département du Jura."
msgbox "Son chef-lieu est Lons-le-Saunier."

elseif (dep="40") then 
msgBox "Le "&dep&" est le département des Landes."
msgbox "Son chef-lieu est Mont-de-Marsan."

elseif (dep="41") then 
msgBox "Le "&dep&" est le département du Loir-et-Cher."
msgbox "Son chef-lieu est Blois."

elseif (dep="42") then 
msgBox "Le "&dep&" est le département de la Loire."
msgbox "Son chef-lieu est Saint-Etienne."

elseif (dep="43") then 
msgBox "Le "&dep&" est le département de la Haute-Loire."
msgbox "Son chef-lieu est Le Puy."

elseif (dep="44") then 
msgBox "Le "&dep&" est le département de la Loire-Atlantique."
msgbox "Son chef-lieu est Nantes."

elseif (dep="45") then 
msgBox "Le "&dep&" est le département du Loiret."
msgbox "Son chef-lieu est Orléans."

elseif (dep="46") then 
msgBox "Le "&dep&" est le département du Lot."
msgbox "Son chef-lieu est Cahors."

elseif (dep="47") then 
msgBox "Le "&dep&" est le département du Lot-et-Garonne."
msgbox "Son chef-lieu est Agen."

elseif (dep="48") then 
msgBox "Le "&dep&" est le département de la Lozère."
msgbox "Son chef-lieu est Mende."

elseif (dep="49") then 
msgBox "Le "&dep&" est le département de la Maine-et-Loire."
msgbox "Son chef-lieu est Gers."

elseif (dep="50") then 
msgBox "Le "&dep&" est le département de la Manche."
msgbox "Son chef-lieu est Saint-Lô."

elseif (dep="51") then 
msgBox "Le "&dep&" est le département de la Marne."
msgbox "Son chef-lieu est Châlons."

elseif (dep="52") then 
msgBox "Le "&dep&" est le département de la Haute-Marne."
msgbox "Son chef-lieu est Chaumont."

elseif (dep="53") then 
msgBox "Le "&dep&" est le département de la Mayenne."
msgbox "Son chef-lieu est Laval."

elseif (dep="54") then 
msgBox "Le "&dep&" est le département de la Meurthe-et-Moselle."
msgbox "Son chef-lieu est Nancy."

elseif (dep="55") then 
msgBox "Le "&dep&" est le département de la Meuse."
msgbox "Son chef-lieu est Bar-le-Duc."

elseif (dep="56") then 
msgBox "Le "&dep&" est le département du Morbihan."
msgbox "Son chef-lieu est Vannes."

elseif (dep="57") then 
msgBox "Le "&dep&" est le département de la Moselle."
msgbox "Son chef-lieu est Metz."

elseif (dep="58") then 
msgBox "Le "&dep&" est le département de la Nièvre."
msgbox "Son chef-lieu est Nevers."

elseif (dep="59") then 
msgBox "Le "&dep&" est le département du Nord."
msgbox "Son chef-lieu est Lille."

elseif (dep="60") then 
msgBox "Le "&dep&" est le département de l' Oise."
msgbox "Son chef-lieu est Beauvais."

elseif (dep="61") then 
msgBox "Le "&dep&" est le département de l' Orne."
msgbox "Son chef-lieu est Alençon."

elseif (dep="62") then 
msgBox "Le "&dep&" est le département du Pas-de-Calais."
msgbox "Son chef-lieu est Arras."

elseif (dep="63") then 
msgBox "Le "&dep&" est le département du Puy-de-Dôme."
msgbox "Son chef-lieu est Clermont-Ferrand."

elseif (dep="64") then 
msgBox "Le "&dep&" est le département des Pyrénées-Atlantiques."
msgbox "Son chef-lieu est Pau."

elseif (dep="65") then 
msgBox "Le "&dep&" est le département des Hautes-Pyrénées."
msgbox "Son chef-lieu est Tarbes."

elseif (dep="66") then 
msgBox "Le "&dep&" est le département des Pyrénées-Orientales."
msgbox "Son chef-lieu est Perpignan."

elseif (dep="67") then 
msgBox "Le "&dep&" est le département du Bas-Rhin."
msgbox "Son chef-lieu est Strasbourg."

elseif (dep="68") then 
msgBox "Le "&dep&" est le département du Haut-Rhin."
msgbox "Son chef-lieu est Colmar."

elseif (dep="69") then 
msgBox "Le "&dep&" est le département du Rhône."
msgbox "Son chef-lieu est Lyon."

elseif (dep="70") then 
msgBox "Le "&dep&" est le département de la Haute-Saône."
msgbox "Son chef-lieu est Vesoul."

elseif (dep="71") then 
msgBox "Le "&dep&" est le département du Saône-et-Loire."
msgbox "Son chef-lieu est Macon."

elseif (dep="72") then 
msgBox "Le "&dep&" est le département du Sarthe."
msgbox "Son chef-lieu est Le Mans."

elseif (dep="73") then 
msgBox "Le "&dep&" est le département de la Savoie."
msgbox "Son chef-lieu est Chambéry."

elseif (dep="74") then 
msgBox "Le "&dep&" est le département de la Haute-Savoie."
msgbox "Son chef-lieu est Annecy."

elseif (dep="75") then 
msgBox "Le "&dep&" est le département de Paris."
msgbox "Son chef-lieu est Paris."

elseif (dep="76") then 
msgBox "Le "&dep&" est le département de la Seine-Maritime."
msgbox "Son chef-lieu est Rouen."

elseif (dep="77") then 
msgBox "Le "&dep&" est le département de la Seine-et-Marne."
msgbox "Son chef-lieu est Melun."

elseif (dep="78") then 
msgBox "Le "&dep&" est le département des Yvelines."
msgbox "Son chef-lieu est Versailles."

elseif (dep="79") then 
msgBox "Le "&dep&" est le département des Deux-Sèvres."
msgbox "Son chef-lieu est Niort."

elseif (dep="80") then 
msgBox "Le "&dep&" est le département de la Somme."
msgbox "Son chef-lieu est Amiens."

elseif (dep="81") then 
msgBox "Le "&dep&" est le département du Tarn."
msgbox "Son chef-lieu est Albi."

elseif (dep="82") then 
msgBox "Le "&dep&" est le département du Tarn-Garonne."
msgbox "Son chef-lieu est Montauban."

elseif (dep="83") then 
msgBox "Le "&dep&" est le département du Var."
msgbox "Son chef-lieu est Draguignan."

elseif (dep="84") then 
msgBox "Le "&dep&" est le département du Vaucluse."
msgbox "Son chef-lieu est Avignon."

elseif (dep="85") then 
msgBox "Le "&dep&" est le département de la Vendée."
msgbox "Son chef-lieu est La Roche-sur-Yon."

elseif (dep="86") then 
msgBox "Le "&dep&" est le département de la Vienne."
msgbox "Son chef-lieu est Poitiers."

elseif (dep="87") then 
msgBox "Le "&dep&" est le département de la Haute-Vienne."
msgbox "Son chef-lieu est Limoges."

elseif (dep="88") then 
msgBox "Le "&dep&" est le département des Vosges."
msgbox "Son chef-lieu est Epinal."

elseif (dep="89") then 
msgBox "Le "&dep&" est le département de l'Yonne."
msgbox "Son chef-lieu est Auxerre."

elseif (dep="90") then 
msgBox "Le "&dep&" est le département du Territoire-de-Belfort."
msgbox "Son chef-lieu est Belfort."

elseif (dep="91") then 
msgBox "Le "&dep&" est le département de l'Essonne."
msgbox "Son chef-lieu est Evry."

elseif (dep="92") then 
msgBox "Le "&dep&" est le département des Hauts-de-Seine."
msgbox "Son chef-lieu est Nanterre."

elseif (dep="93") then 
msgBox "Le "&dep&" est le département de la Seine Saint-Denis."
msgbox "Son chef-lieu est Bobigny."

elseif (dep="94") then 
msgBox "Le "&dep&" est le département du Val-de-Marne."
msgbox "Son chef-lieu est Créteil."

elseif (dep="95") then 
msgBox "Le "&dep&" est le département du Val d' Oise."
msgbox "Son chef-lieu est Pontoise."

elseif (dep="971") then
msgBox "Le "&dep&" est le département de la Guadeloupe."
msgBox "Son chef-lieu est Point-à-Pitre."

elseif (dep="972") then
msgBox "Le "&dep&" est le département de la Martinique."
msgBox "Son chef-lieu est Fort-de-France."

elseif (dep="973") then
msgBox "Le "&dep&" est le département de la Guyane."
msgBox "Son chef-lieu est Cayenne."

elseif (dep="974") then
msgBox "Le "&dep&" est le département de la Réunion."
msgBox "Son chef-lieu est Saint-Denis."

elseif (dep="975") then
msgBox "Le "&dep&" est le département de Saint-Pierre-et-Miquelon."
msgBox "Son chef-lieu est Saint-Pierre."

end if

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Krox68)