Commentaires sur une source : TROUVER LE NOM D'UN DÉPARTEMENT GRACE À SON NUMÉRO

tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
18 août 2005 à 10:51

Une instruction select cas serait beuaciup pluys apropiée pour ce type de codition...
En plus, je rajouterai bien un petit until isnumeric() moi....

MalyAniolek Messages postés 4 Date d'inscription mercredi 7 janvier 2004 Statut Membre Dernière intervention 5 avril 2005
15 sept. 2004 à 18:08

hello:)

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

@bientot:)

cs_Aurelien31 Messages postés 1 Date d'inscription lundi 16 février 2004 Statut Membre Dernière intervention 5 avril 2004
5 avril 2004 à 23:38

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.

Krox68 Messages postés 157 Date d'inscription jeudi 17 octobre 2002 Statut Membre Dernière intervention 11 septembre 2004 1
18 août 2003 à 17:09

merci de ton "aide" franky mais je "programme plus en vbs ni vb mais en C/C++ (cap supérieur)

Frank339 Messages postés 164 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 19 décembre 2008
20 juil. 2003 à 23:26

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.

z980x Messages postés 897 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 26 juillet 2007 2
8 mai 2003 à 09:13

mon programme, bien que moins bien programmé, est beaucoup mieux.

celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007
20 oct. 2002 à 17:13

hého !
fo pa en vouloir aux commentaires !!! ils sont la pour ton bien !!!

sinon pourquoi poserais-tu des sources ? tu te contenterais juste d'apprendre en regardant les autres !!!
Tu as pris le parti de "poser", alors tu as des comment' ;) !!!

Je veux pas du tout etre mechant ! juste qu'en prog, la plus grosse partie c'est l'analyse du pb, car la conception (la prog pure quoi), c'est de la rigolade !

Tchao @+ et bonne continuation !

Krox68 Messages postés 157 Date d'inscription jeudi 17 octobre 2002 Statut Membre Dernière intervention 11 septembre 2004 1
19 oct. 2002 à 16:51

Ouais bah merci mais ça fait que 2 semaines que je programme !

celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007
18 oct. 2002 à 23:28

??? le PLUS "programmeur" aurait été de faire ça proprement !
C'est à dire, une partie qui sert à renseigner les données dans un TABLEAU de chaine à 2 dimensions comme tbldept(1 to nbdept, 1 to 2) (ds la seconde dimension 1 serait le nom du dept et 2 son chef lieu)

puis la seconde partie qui utilise les données, c'est à dire par exemple :

msgbox "le dept N°" & cstr(i) & " est " & tbldept(i,1) & " et son chef lieu est " & tbldept(i,2)

Ca au moins ça aurait été bien pur, bien propre et réutilisable, parce qu'alors là, les 2 exemples proposés... :O mama !

cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
18 oct. 2002 à 19:44

bon code mais le plus simple aurait été de fire comme ceci :

Private Sub Form_Load()
'dep = InputBox("Entre le numéro du département.", "Département", "")
Form1.Hide
dep = InputBox("Entrez 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." & vbCrLf & "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." & vbCrLf & "Son chef-lieu est Laon."
ElseIf (dep "03") Or (dep "3") Then
MsgBox "Le " & dep & " est le département de l' Allier." & vbCrLf & "Son chef-lieu est Moulin."
ElseIf (dep "04") Or (dep "4") Then
MsgBox "Le " & dep & " est le département des Alpes de Hautes-Provence" & vbCrLf & "Son chef-lieu est Digne."
ElseIf (dep "05") Or (dep "5") Then
MsgBox "Le " & dep & " est le département des Hautes-Alpes." & vbCrLf & "Son chef-lieu est Gap."
ElseIf (dep "06") Or (dep "6") Then
MsgBox "Le " & dep & " est le département des Alpes-Maritimes." & vbCrLf & "Son chef-lieu est Nice."
ElseIf (dep "07") Or (dep "7") Then
MsgBox "Le " & dep & " est le département de l' Ardèche." & vbCrLf & "Son chef-lieu est Privas."
ElseIf (dep "08") Or (dep "8") Then
MsgBox "Le " & dep & " est le département des Ardennes." & vbCrLf & "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." & vbCrLf & "Son chef-lieu est Foix."
ElseIf (dep = "10") Then
MsgBox "Le " & dep & " est le département de l' Aube." & vbCrLf & "Son chef-lieu est Troyes."
ElseIf (dep = "11") Then
MsgBox "Le " & dep & " est le département de l' Aude." & vbCrLf & "Son chef-lieu est Carcassonne."
ElseIf (dep = "12") Then
MsgBox "Le " & dep & " est le département de l' Aveyron." & vbCrLf & "Son chef-lieu est Rodez."
ElseIf (dep = "13") Then
MsgBox "Le " & dep & " est le département des Bouches-du-Rhône." & vbCrLf & "Son chef-lieu est Marseille."
ElseIf (dep = "14") Then
MsgBox "Le " & dep & " est le département du Calvados." & vbCrLf & "Son chef-lieu est Caen."
ElseIf (dep = "15") Then
MsgBox "Le " & dep & " est le département du Cantal." & vbCrLf & "Son chef-lieu est Aurillac."
ElseIf (dep = "16") Then
MsgBox "Le " & dep & " est le département de la Charente." & vbCrLf & "Son chef-lieu est Angoulême."
ElseIf (dep = "17") Then
MsgBox "Le " & dep & " est le département de la Charente-Maritime." & vbCrLf & "Son chef-lieu est La Rochelle."
ElseIf (dep = "18") Then
MsgBox "Le " & dep & " est le département du Cher." & vbCrLf & "Son chef-lieu est Bourges."
ElseIf (dep = "19") Then
MsgBox "Le " & dep & " est le département de la Corrèze." & vbCrLf & "Son chef-lieu est Tulle."
ElseIf (dep = "20") Then
MsgBox "Ce département en comprends 2." & vbCrLf & "Le 2A et le 2B." & vbCrLf & "Le 2A correspond à la Corse du Sud qui a comme chef-lieu Ajaccio." & vbCrLf & "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." & vbCrLf & "Son chef-lieu est Dijon."
ElseIf (dep = "22") Then
MsgBox "Le " & dep & " est le département des Côtes d' Armor." & vbCrLf & "Son chef-lieu est Saint-Brieuc."
ElseIf (dep = "23") Then
MsgBox "Le " & dep & " est le département de la Creuse." & vbCrLf & "Son chef-lieu est Guéret."
ElseIf (dep = "24") Then
MsgBox "Le " & dep & " est le département de la Dordogne." & vbCrLf & "Son chef-lieu est Périgueux."
ElseIf (dep = "25") Then
MsgBox "Le " & dep & " est le département du Doubs." & vbCrLf & "Son chef-lieu est Besançon."
ElseIf (dep = "26") Then
MsgBox "Le " & dep & " est le département de la Drôme." & vbCrLf & "Son chef-lieu est Valence."
ElseIf (dep = "27") Then
MsgBox "Le " & dep & " est le département de l' Eure." & vbCrLf & "Son chef-lieu est Evreux."
ElseIf (dep = "28") Then
MsgBox "Le " & dep & " est le département de l' Eure-et-Loire." & vbCrLf & "Son chef-lieu est Chartres."
ElseIf (dep = "29") Then
MsgBox "Le " & dep & " est le département du Finistère." & vbCrLf & "Son chef-lieu est Quimper."
ElseIf (dep = "30") Then
MsgBox "Le " & dep & " est le département du Gard." & vbCrLf & "Son chef-lieu est Nîmes."
ElseIf (dep = "31") Then
MsgBox "Le " & dep & " est le département de la Haute-Garonne." & vbCrLf & "Son chef-lieu est Toulouse."
ElseIf (dep = "32") Then
MsgBox "Le " & dep & " est le département du Gers." & vbCrLf & "Son chef-lieu est Auch."
ElseIf (dep = "33") Then
MsgBox "Le " & dep & " est le département de la Gironde." & vbCrLf & "Son chef-lieu est Bordeaux."
ElseIf (dep = "34") Then
MsgBox "Le " & dep & " est le département de l' Herault." & vbCrLf & "Son chef-lieu est Montpellier."
ElseIf (dep = "35") Then
MsgBox "Le " & dep & " est le département de l' Île-et-Vilaine." & vbCrLf & "Son chef-lieu est Rennes."
ElseIf (dep = "36") Then
MsgBox "Le " & dep & " est le département de l' Indre." & vbCrLf & "Son chef-lieu est Châteauroux."
ElseIf (dep = "37") Then
MsgBox "Le " & dep & " est le département de l' Indre-et-Loire." & vbCrLf & "Son chef-lieu est Tours."
ElseIf (dep = "38") Then
MsgBox "Le " & dep & " est le département de l' Isère." & vbCrLf & "Son chef-lieu est Grenoble."
ElseIf (dep = "39") Then
MsgBox "Le " & dep & " est le département du Jura." & vbCrLf & "Son chef-lieu est Lons-le-Saunier."
ElseIf (dep = "40") Then
MsgBox "Le " & dep & " est le département des Landes." & vbCrLf & "Son chef-lieu est Mont-de-Marsan."
ElseIf (dep = "41") Then
MsgBox "Le " & dep & " est le département du Loir-et-Cher." & vbCrLf & "Son chef-lieu est Blois."
ElseIf (dep = "42") Then
MsgBox "Le " & dep & " est le département de la Loire." & vbCrLf & "Son chef-lieu est Saint-Etienne."
ElseIf (dep = "43") Then
MsgBox "Le " & dep & " est le département de la Haute-Loire." & vbCrLf & "Son chef-lieu est Le Puy."
ElseIf (dep = "44") Then
MsgBox "Le " & dep & " est le département de la Loire-Atlantique." & vbCrLf & "Son chef-lieu est Nantes."
ElseIf (dep = "45") Then
MsgBox "Le " & dep & " est le département du Loiret." & vbCrLf & "Son chef-lieu est Orléans."
ElseIf (dep = "46") Then
MsgBox "Le " & dep & " est le département du Lot." & vbCrLf & "Son chef-lieu est Cahors."
ElseIf (dep = "47") Then
MsgBox "Le " & dep & " est le département du Lot-et-Garonne." & vbCrLf & "Son chef-lieu est Agen."
ElseIf (dep = "48") Then
MsgBox "Le " & dep & " est le département de la Lozère." & vbCrLf & "Son chef-lieu est Mende."
ElseIf (dep = "49") Then
MsgBox "Le " & dep & " est le département de la Maine-et-Loire." & vbCrLf & "Son chef-lieu est Gers."
ElseIf (dep = "50") Then
MsgBox "Le " & dep & " est le département de la Manche." & vbCrLf & "Son chef-lieu est Saint-Lô."
ElseIf (dep = "51") Then
MsgBox "Le " & dep & " est le département de la Marne." & vbCrLf & "Son chef-lieu est Châlons."
ElseIf (dep = "52") Then
MsgBox "Le " & dep & " est le département de la Haute-Marne." & vbCrLf & "Son chef-lieu est Chaumont."
ElseIf (dep = "53") Then
MsgBox "Le " & dep & " est le département de la Mayenne." & vbCrLf & "Son chef-lieu est Laval."
ElseIf (dep = "54") Then
MsgBox "Le " & dep & " est le département de la Meurthe-et-Moselle." & vbCrLf & "Son chef-lieu est Nancy."
ElseIf (dep = "55") Then
MsgBox "Le " & dep & " est le département de la Meuse." & vbCrLf & "Son chef-lieu est Bar-le-Duc."
ElseIf (dep = "56") Then
MsgBox "Le " & dep & " est le département du Morbihan." & vbCrLf & "Son chef-lieu est Vannes."
ElseIf (dep = "57") Then
MsgBox "Le " & dep & " est le département de la Moselle." & vbCrLf & "Son chef-lieu est Metz."
ElseIf (dep = "58") Then
MsgBox "Le " & dep & " est le département de la Nièvre." & vbCrLf & "Son chef-lieu est Nevers."
ElseIf (dep = "59") Then
MsgBox "Le " & dep & " est le département du Nord." & vbCrLf & "Son chef-lieu est Lille."
ElseIf (dep = "60") Then
MsgBox "Le " & dep & " est le département de l' Oise." & vbCrLf & "Son chef-lieu est Beauvais."
ElseIf (dep = "61") Then
MsgBox "Le " & dep & " est le département de l' Orne." & vbCrLf & "Son chef-lieu est Alençon."
ElseIf (dep = "62") Then
MsgBox "Le " & dep & " est le département du Pas-de-Calais." & vbCrLf & "Son chef-lieu est Arras."
ElseIf (dep = "63") Then
MsgBox "Le " & dep & " est le département du Puy-de-Dôme." & vbCrLf & "Son chef-lieu est Clermont-Ferrand."
ElseIf (dep = "64") Then
MsgBox "Le " & dep & " est le département des Pyrénées-Atlantiques." & vbCrLf & "Son chef-lieu est Pau."
ElseIf (dep = "65") Then
MsgBox "Le " & dep & " est le département des Hautes-Pyrénées." & vbCrLf & "Son chef-lieu est Tarbes."
ElseIf (dep = "66") Then
MsgBox "Le " & dep & " est le département des Pyrénées-Orientales." & vbCrLf & "Son chef-lieu est Perpignan."
ElseIf (dep = "67") Then
MsgBox "Le " & dep & " est le département du Bas-Rhin." & vbCrLf & "Son chef-lieu est Strasbourg."
ElseIf (dep = "68") Then
MsgBox "Le " & dep & " est le département du Haut-Rhin." & vbCrLf & "Son chef-lieu est Colmar."
ElseIf (dep = "69") Then
MsgBox "Le " & dep & " est le département du Rhône." & vbCrLf & "Son chef-lieu est Lyon."
ElseIf (dep = "70") Then
MsgBox "Le " & dep & " est le département de la Haute-Saône." & vbCrLf & "Son chef-lieu est Vesoul."
ElseIf (dep = "71") Then
MsgBox "Le " & dep & " est le département du Saône-et-Loire." & vbCrLf & "Son chef-lieu est Macon."
ElseIf (dep = "72") Then
MsgBox "Le " & dep & " est le département du Sarthe." & vbCrLf & "Son chef-lieu est Le Mans."
ElseIf (dep = "73") Then
MsgBox "Le " & dep & " est le département de la Savoie." & vbCrLf & "Son chef-lieu est Chambéry."
ElseIf (dep = "74") Then
MsgBox "Le " & dep & " est le département de la Haute-Savoie." & vbCrLf & "Son chef-lieu est Annecy."
ElseIf (dep = "75") Then
MsgBox "Le " & dep & " est le département de Paris." & vbCrLf & "Son chef-lieu est Paris."
ElseIf (dep = "76") Then
MsgBox "Le " & dep & " est le département de la Seine-Maritime." & vbCrLf & "Son chef-lieu est Rouen."
ElseIf (dep = "77") Then
MsgBox "Le " & dep & " est le département de la Seine-et-Marne." & vbCrLf & "Son chef-lieu est Melun."
ElseIf (dep = "78") Then
MsgBox "Le " & dep & " est le département des Yvelines." & vbCrLf & "Son chef-lieu est Versailles."
ElseIf (dep = "79") Then
MsgBox "Le " & dep & " est le département des Deux-Sèvres." & vbCrLf & "Son chef-lieu est Niort."
ElseIf (dep = "80") Then
MsgBox "Le " & dep & " est le département de la Somme." & vbCrLf & "Son chef-lieu est Amiens."
ElseIf (dep = "81") Then
MsgBox "Le " & dep & " est le département du Tarn." & avbcrlf & "Son chef-lieu est Albi."
ElseIf (dep = "82") Then
MsgBox "Le " & dep & " est le département du Tarn-Garonne." & vbCrLf & "Son chef-lieu est Montauban."
ElseIf (dep = "83") Then
MsgBox "Le " & dep & " est le département du Var." & vbCrLf & "Son chef-lieu est Draguignan."
ElseIf (dep = "84") Then
MsgBox "Le " & dep & " est le département du Vaucluse." & vbCrLf & "Son chef-lieu est Avignon."
ElseIf (dep = "85") Then
MsgBox "Le " & dep & " est le département de la Vendée." & vbCrLf & "Son chef-lieu est La Roche-sur-Yon."
ElseIf (dep = "86") Then
MsgBox "Le " & dep & " est le département de la Vienne." & vbCrLf & "Son chef-lieu est Poitiers."
ElseIf (dep = "87") Then
MsgBox "Le " & dep & " est le département de la Haute-Vienne." & vbCrLf & "Son chef-lieu est Limoges."
ElseIf (dep = "88") Then
MsgBox "Le " & dep & " est le département des Vosges." & vbCrLf & "Son chef-lieu est Epinal."
ElseIf (dep = "89") Then
MsgBox "Le " & dep & " est le département de l'Yonne." & vbCrLf & "Son chef-lieu est Auxerre."
ElseIf (dep = "90") Then
MsgBox "Le " & dep & " est le département du Territoire-de-Belfort." & vbCrLf & "Son chef-lieu est Belfort."
ElseIf (dep = "91") Then
MsgBox "Le " & dep & " est le département de l'Essonne." & vbCrLf & "Son chef-lieu est Evry."
ElseIf (dep = "92") Then
MsgBox "Le " & dep & " est le département des Hauts-de-Seine." & vbCrLf & "Son chef-lieu est Nanterre."
ElseIf (dep = "93") Then
MsgBox "Le " & dep & " est le département de la Seine Saint-Denis." & vbCrLf & "Son chef-lieu est Bobigny."
ElseIf (dep = "94") Then
MsgBox "Le " & dep & " est le département du Val-de-Marne." & vbCrLf & "Son chef-lieu est Créteil."
ElseIf (dep = "95") Then
MsgBox "Le " & dep & " est le département du Val d' Oise." & vbCrLf & "Son chef-lieu est Pontoise."
ElseIf (dep = "971") Then
MsgBox "Le " & dep & " est le département de la Guadeloupe." & vbCrLf & "Son chef-lieu est Point-à-Pitre."
ElseIf (dep = "972") Then
MsgBox "Le " & dep & " est le département de la Martinique." & vbCrLf & "Son chef-lieu est Fort-de-France."
ElseIf (dep = "973") Then
MsgBox "Le " & dep & " est le département de la Guyane." & vbCrLf & "Son chef-lieu est Cayenne."
ElseIf (dep = "974") Then
MsgBox "Le " & dep & " est le département de la Réunion." & vbCrLf & "Son chef-lieu est Saint-Denis."
ElseIf (dep = "975") Then
MsgBox "Le " & dep & " est le département de Saint-Pierre-et-Miquelon." & vbCrLf & "Son chef-lieu est Saint-Pierre."
End If
Unload Me
End Sub

9/10 tout de meme.

Continue comme ca !

TROUVER LE NOM D'UN DÉPARTEMENT GRACE À SON NUMÉRO

Votre réponse

Discussions similaires