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

Du même auteur (Krox68)