Discussion :

[perchman]

Bonjour à tous,

Voilà, je viens de me remettre au VBA pour un besoin professionnel et j'ai un petit soucis. Le but du logiciel est de gérer le parc automobile de l'entreprise.

Voici mon problème:

J'ai un premier userform qui me permet par l'intermédiaire d'une ComboBox de sélectionner 1 voiture. En cliquant sur le bouton OK, je dois accéder à la fiche technique du véhicule qui apparait alors sur un 2nd userform.

C'est là que j'ai mon problème.

Sachant qu'à chaque voiture correspond une feuille excel, comment puis-je récupérer les informations poues afficher sur le 2nd userform ?

********************************************************************************************************************

J'ai penser à une solution qui parait être assez propre mais j'ai un autre soucis dessus ^^

Ma solution:

Créer une feuille avec une correspondance entre le nom de la voiture de la ComboBox et le nom de la feuille correspondante.

Nom_ComboBox Nom_feuille
Voiture n°1 FT_Voiture n°1
Voiture n°2 FT_Voiture n°2
Voiture n°3 FT_Voiture n°3
Voiture n°4 FT_Voiture n°4
Voiture n°5 FT_Voiture n°5
Voiture n°6 FT_Voiture n°6
Voiture n°7 FT_Voiture n°7
Voiture n°8 FT_Voiture n°8
Voiture n°9 FT_Voiture n°9
Voiture n°10 FT_Voiture n°10

Et là, je voudrais savoir comment je peux arriver à cette étape là:

Code :

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

TB_FT_titre.Caption = Worksheets("FT_voiture n°1").Cells(1, 1)

[sabzzz]

bonjour perchman,

Code :

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

1
2
x = Application.Index(Sheets("LaFeuille").Range("B:B"), Application.Match(Me.ComboBox1, Sheets("LaFeuille").Range("A:A"), 0))
TB_FT_titre.Caption = Worksheets(x).Cells(1, 1)

[perchman]

Code :

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

1
2
x = Application.Index(Sheets("LaFeuille").Range("B:B"), Application.Match(Me.ComboBox1, Sheets("LaFeuille").Range("A:A"), 0))
TB_FT_titre.Caption = Worksheets(x).Cells(1, 1)

Merci de cette réponse

Je vais la tester sans la comprendre, puis :

- si ça marche, je vais chercher à comprendre la syntaxe.

- si ça ne marche pas, ben je vais chercher à comprendre la syntaxe pour me corriger...

Bonne journée Isabelle

[perchman]

Code :

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

1
2
x = Application.Index(Sheets("LaFeuille").Range("B:B"), Application.Match(Me.ComboBox1, Sheets("LaFeuille").Range("A:A"), 0))
TB_FT_titre.Caption = Worksheets(x).Cells(1, 1)

Bon, j'ai testé, et ça n'a pas marché...

J'ai voulu comprendre, et ça n'a pas marché...

J'ai voulu allumer mon neurone, mais ça n'a pas marché !!

Bon, en étant plus sérieux:

1) Qu'est-ce qui se cache derrière Application.Index ?

2) "LaFeuille": c'est une variable quelconque ?

3) Pourquoi tu utilises Range("B:B") ?

4) Qu'est-ce qui se cache derrière Application.Match ? (ça doit me permettre de comprendre le 0 en bout de ligne)

5) C'est quoi ME ?

Je suis désolé pour toutes ces questions, mais là... je suis perdu

[sabzzz]

bonjour perchman,

c'est une reprise en vba des fonctions de feuille de calcul INDEX et EQUIV,

Code :

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

=INDEX(retourné la valeur de la plage y à la même ligne de x;EQUIV(valeur_cherché;chercher_dans la plage x;0))

"LaFeuille" ou "Feuil1" doit être remplacer par le nom de la feuille ou se trouve les données de ton tableau

cette formule retourne le numéro de ligne trouvé

Code :

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

x = Application.Match(Me.ComboBox1, Sheets("Feuil1" Range("A:A"), 0))

sur la feuille de calcul on écrit la fonction Match comme ceci, si "mot" = Me.ComboBox1

Code :

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

=EQUIV("mot";Feuil1!A:A;0)