Discussion :

[helloitsme]

Bonjour à tous,

J'essaie de créer un Userform avec un moteur de recherche. Je n'ai pas de formation en VBA mais j'arrive en général à copier des formules trouvées sur des forums ou des tutos pour les adapter à mes fichiers. Cette fois-ci, je n'y arrive vraiment pas, je m'en remets donc à vous. N'hésitez pas à me rediriger vers une discussion résolue qui traite du même sujet ou à me dire si je ne suis pas au bon endroit.

Je vais essayer de vous expliquer précisément ma problématique.

Je suis chargée de réorganiser le stockage des échantillons dans une entreprise.

Le stockage est organisé de la manière suivante: 2 niveaux, 36 armoires par niveau (3 armoires par mois) et 5 étagères par armoire. Cela nous donne un storage_number. Par exemple, D.02.03.B correspond à niveau downstairs, troisième armoire de février, étagère B.

Dans mon fichier Excel, ce storage_number se trouve dans la colonne A de mes feuilles "downstairs" et "upstairs".

Lorsque les échantillons arrivent, on les range dans les armoires, et on note leur reference_number dans les colonnes B à P du fichier Excel (on met maximum 15 échantillons par étagère). Cela nous donne: une ligne du fichier = une étagère avec quinze échantillons = 1 storage_number + 15 reference_number

Venons-en au Userform qui servira de moteur de recherche. Je veux pouvoir retrouver l'emplacement d'un échantillon dans le stockage en rentrant son numéro de référence. Autrement dit, en rentrant un reference_number, je veux obtenir storage_number.
Le Userform est constitué d'une TextBox1 dans laquelle on rentre le reference_number, d'un CommandButton1 qui lance la recherche, d'une TextBox2 dans laquelle s'affiche le storage_number et d'un CommandButton2 pour réinitialiser le formulaire. Mais comment coder cela ?

Je vous remercie d'avance pour votre aide,

Bien cordialement,

Storage_pour_forum.xlsm

[Menhir]

Lorsque les échantillons arrivent, on les range dans les armoires, et on note leur reference_number dans les colonnes B à P du fichier Excel (on met maximum 15 échantillons par étagère). Cela nous donne: une ligne du fichier = une étagère avec quinze échantillons = 1 storage_number + 15 reference_number

Il aurait été plus fonctionnel de créer une colonne "N° échantillon" avec des valeurs de 1 à 15.
Comme ça la référence des échantillons se retrouvait dans une seule colonne et ton problème se résumait à une fonction Excel simple de type RECHERCHEV() ou une combinaison de INDEX() et EQUIV().

Perso, je me contenterais de mettre un Filtre sur les données et ça suffirait largement.

Le Userform est constitué d'une TextBox1 dans laquelle on rentre le reference_number, d'un CommandButton1 qui lance la recherche, d'une TextBox2 dans laquelle s'affiche le storage_number et d'un CommandButton2 pour réinitialiser le formulaire. Mais comment coder cela ?

Tu peux faire ça avec une méthode Find de Range.
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)
Mais, comme je l'ai dit, la seule raison qui peut inciter à utiliser du VBA, c'est une mauvaise structuration des données.

[Thautheme]

Bonjour le fil, bonjour le forum,

Une proposition VBA :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
Dim OD As Worksheet
Dim OU As Worksheet
Dim TVD As Variant
Dim TVU As Variant
 
Set OD = Worksheets("Downstairs")
Set OU = Worksheets("Upstairs")
TVD = OD.Range("A1").CurrentRegion
TVU = OU.Range("A1").CurrentRegion
For I = 2 To UBound(TVD, 1)
    For J = 2 To UBound(TVD, 2)
        If CStr(TVD(I, J)) = Me.TextBox1.Value Then
            Me.TextBox2.Value = TVD(I, 1)
            OD.Activate
            OD.Cells(I, 1).Select
            Exit Sub
        End If
    Next J
Next I
For I = 2 To UBound(TVU, 1)
    For J = 2 To UBound(TVU, 2)
        If CStr(TVU(I, J)) = Me.TextBox1.Value Then
            Me.TextBox2.Value = TVU(I, 1)
            OU.Activate
            OU.Cells(I, 1).Select
            Exit Sub
        End If
    Next J
Next I
End Sub

[helloitsme]

Merci beaucoup à tous les deux pour votre réactivité et d'avoir pris la peine de me répondre !

Super Thauthème, c'est exactement ce que je voulais ! Je n'aurais pas pu trouver ça toute seule ^^

Menhir, ce que tu ne pouvais pas savoir parce que je ne l'ai pas dit et parce que je n'ai pas mis le fichier complet, c'est que j'utilise des Userforms car j'ai plusieurs utilisateurs:
- Celui qui rentre les numéros de référence
- Ceux qui effectuent des recherches à l'aide du moteur de recherche
Donc à l'ouverture du fichier s'ouvre uniquement un Userform de connexion qui dirige, en fonction du mot de passe, soit vers le fichier Excel pour ajouter les numéros de référence, soit vers le Userform moteur de recherche.

Encore merci à vous !!!