[VBA-E]Editer UserForm Recherche

Bonsoir à toutes et à tous,

Dans une feuille Excel, j'ai dans la colonne A des noms de gares.
Dans la colonne B les codes correspondants.
L'ensemble de ces données représente environ 10 000 noms de gares.
Ex : Colonne A : LONGUEAU - Colonne B : FRCQL

Totalement dédutant en VBA, je souhaite éditer un UserForm qui permette à partir d'un champ à renseigner, de renvoyer la réponse correspondante.

Je m'explique : si je tape FRCQL, j'obtiens comme réponse LONGUEAU et inversement.

J'espère avoir était assez explicite ;-)

D'avance merci pour les réponses qui me seront apportées et longue vie au forum.

Bien cordialement.

Fais 2 combobox contenant :
- le 1er : l'ensemble des gares
- le 2nd : l'ensemble des codes

Récupère dans une variable le choix qui aura été fait (dans mon cas, tu peux faire un choix sur les gares ou bien sur les codes).
Ensuite grace à cette variable (ex : on a choisi Longueau), on parcourt la colonne A grace à un while.
(Exemple : la ligne est la 10ème)

Code:

---

1 2 3 4

i = 0 while feuil.range("A" & i).text <> "Longueau" i = i + 1 wend

---

Tu n'as plus qu'à faire feuil.range("B" & i) et tu récupères le code correspondant à ton choix.

Un petit truc tout simple serait de faire une combobox (zone de liste déroulante) dans ton userform.

Modifier quelques propriétés :

• Match Required = True
• ColumnCount = 2
• ColumnWidths = ;0
• (Name) = cboGares

par exemple ...


Faire un code qui remplisse ta liste à l'ouverture du Userform :

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Me.MonCombobox.RowSource=MaFeuille.Range(CelluleEnHautADroite).currentRegion.Address(false,false,xlA1,true) End Sub

---

Donc, maintenant, tu as une liste avec deux colonnes, mais une seule visible : celle des codes.
Pour faire apparaitre la gare à côté, tu peux, par exemple, faire une étiquette... un label quoi ;)


Création d'un label

• (Name) = lblGare
• Value=""

Maintenant, tu peux créer la procédure d'évènements sur cboGares :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub cboGares_Change() on error goto cboGares_Err lblGare.Caption=cboGares.Columns(1) FinProg: Exit Sub cboGares_Err: Select case err.number Case 381 lblGare.Caption ="Code invalide" Case else msgbox "Erreur n°" & err.number & vbcrlf & err.description, vbCritical,"Oups !" End Select resume Finprog End Sub

---

C'était juste un exemple !
A toi d'adapter ;)