Bonjour tout le monde, je cherche une macro qui me permette de relier tous les départements avec les régions française.

Quelques chose du genre

InputBox(" Quel est le numéro de votre département ? ")

En fonction du nombre indiqué, une MsgBox s'ouvre et dit " Votre région est... "

Je ne sais pas comment relier les nombres avec les régions. J'ai essayé avec la fonction If, mais impossible à trouver.

J'aimerais quelques conseils s'il vous plait

Merci

Hello,

Tu as deux façons (a mon avis) de faire ton petit code.
1. Tu fais une table mémoire dans ton code
2. Tu utilises Excel (qui permet de construire des tables propres et facilement) pour construire cette table

J'ai opté pour la deuxième solution et j'ai donc fait une table toute bête dans une feuille avec en colonne A la liste des départements.

A1 : AIN
A2 : AISNE
A3 : ALLIER etc.

Puis j'ai fait ce petit code :

Public Sub Calcul_Dpt()

Dim NumDpt As String
NumDpt = "error"

Do While (IsNumeric(NumDpt) = False And Len(NumDpt) > 0)
NumDpt = InputBox("Quel est le numéro du département ?")
Loop

If IsNumeric(NumDpt) Then MsgBox ("Le département n° " & NumDpt & " est : " & Cells(NumDpt, 1))

End Sub

Je fais donc une petite boucle tant que je n'ai pas une réponse concluante c'est a dire un numéro ou l'appui sur la touche annuler.
Évidement, ça ne prends pas en compte le fait qu'un affreux peut taper 12311654566 en numéro de département mais ce genre d'utilisateur n'a pas a toucher a un ordinateur dans ce cas ^^

A+
Nico