Discussion :

[ananar]

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.

[Corlo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Maxence HUBICHE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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