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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 58 269 fois - Téléchargée 42 fois

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

Ajouter un commentaire Commentaires
Messages postés
248
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
31
Une instruction select cas serait beuaciup pluys apropiée pour ce type de codition...
En plus, je rajouterai bien un petit until isnumeric() moi....
Messages postés
4
Date d'inscription
mercredi 7 janvier 2004
Statut
Membre
Dernière intervention
5 avril 2005

hello:)

Que de ElseIf !!!
Ca ne serait pas plus joli avec un Select Case ?
;)

@bientot:)
Messages postés
1
Date d'inscription
lundi 16 février 2004
Statut
Membre
Dernière intervention
5 avril 2004

Un peu en retars je l'avous, car ça date de vieu tout ceci. Mais comme je suis content d'avoir trouvé une solution à ceci, je tenais à la mettre bien qu'elle peut sans doute contenir des erreurs, elle marche bien tout de même.

-------------------------------------------------------------------------------

Dim dep, rep
Randomize
Do Until rep = vbNo
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="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

rep = MsgBox ("Recommencer ? ", vbYesNo)
Loop

-------------------------------------------------------------------------------

Voilà bon après les erreurs qu'il peut y avoir je n'y peut rien car dans mes études ce format n'est qu'apris en temps hors cours et donc j'ai peu voir très peu de temps pour m'exercer sur d'autres formats telque celui-ci, et tout ceci par de simple documentations de site donc je reste newb en vbs.
Messages postés
157
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
11 septembre 2004

merci de ton "aide" franky mais je "programme plus en vbs ni vb mais en C/C++ (cap supérieur)
Messages postés
164
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
19 décembre 2008

Bon la source en elle mm est assez facile, par contre si mr. krokx68 commence a programmer, lui tire mon chapeau... et oui on a tous commencer qq part... et te tire une deuxième fois mon chapeau, pcq ca m'évite de chercher pour avoir les départements... donc vais te mettre 5, pcq pour moi c une version beta et que tu as du boulot si tu veux suivre se prog... ( et ne venez pas me dire que vous trouver tout ca sur le net... :-) )

et oui, suis les idées des anciens... celiphane t'a donner une idée pour ton prog, et que si tu en veux encore, y a aucun problème lance moi un message et je te donnerai des idées, voir des solutions ou conseils...

bonne continuation.
Afficher les 10 commentaires

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.