créer un menu de recherche sur excel Résolu/Fermé

Question

Bonjour, 

je sollicite une aide précieuse pour moi, j'ai vista avec office 2007, je voudrais créer un menu qui me permettra de trouver l'adresse d'un composant dans mon atelier.
le menu se composé de deux champs, un champ à remplir par l'utilisateur et un autre qui contiendra la reponse, un bouton de validation et un pour annuler.
exemple : je cherche la 1N4000, la reponse sera dans le casier N° 1 à gauche!
je compte beaucoup sur vous merci de repondre.

Configuration: Windows Vista / Firefox 3.5.11

pijaku · Accepted Answer

Bonjour,
Voici ici joint un classeur exemple.
2 méthodes proposées, une avec champ de saisie, l'autre avec liste déroulante. Préférez la 2nde car limite les erreurs de saisie...

boukar dogo · Answer

bjr, merci de la proposition que vous m'aviez faite, je voudrais savoir comment le faire moi meme, d'autre part je souhaite  joindre une page pour vous donner une idée plus claire de ce que je cherche merci une fois de plus

pijaku · Answer

Salut,
Pour le réaliser vous même :

1- Ouvrez votre classeur Excel

2- Dans la feuille d'où vous voulez lancer les recherches, appelons la « index », dessinez un bouton de commande.

3- Double clic sur ce bouton de commande ---> une fenêtre Visual Basic s'ouvre avec ces 2 lignes de code :
Private Sub CommandButton1_Click()

End Sub
4- Entre ces deux lignes écrire :
Load UserForm1
UserForm1.Show
Résultat :
Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub
5- Sur la gauche de cette fenêtre, vous avez la fenêtre « propriétés » (si elle n'est pas présente : Affichage/fenêtre propriétés). Cherchez la propriété « caption » et changez commandbutton1 par ce que vous souhaitez indiquer sur votre bouton de commande (ex : Interface).
!!! ne changez pas la propriété Name sinon il faudra modifier le code et mettre au lieu de :
Private Sub CommandButton1_Click()
Ceci (par exemple) :
Private Sub Interface_Click()

6- toujours sous visual basic : Insertion/Userform

7- grâce à la boîte à outils « contrôles » (si elle n'est pas affichée : Affichage/boîte à outils) dessinez :
- 2 intitulés
- 2 zones de texte
- 2 boutons de commande

8- modifiez la propriété « caption » (comme indiqué à l'étape 5) de vos deux intitulés (Label1 et Label2) et de vos deux boutons de commande pour afficher :
Label1 : « donnez le nom du composant »
Label2 : « son adresse est : »
CommandButton1 : « valider »
CommanndButton2 : « annuler »

9- les codes suivants sont à affecter aux deux boutons. Pour se faire, double cliquez sur un des boutons, effacer les deux lignes de code qui apparaissent et à la place copiez/collez tout ceci :
Private Sub CommandButton1_Click()
Dim trouve As Range
Dim reference As String
If TextBox1.Value = "" Then
MsgBox "Vous n'avez indiqué aucune référence."
Exit Sub
End If
reference = TextBox1.Value
With Sheets("Feuil1") 'ici mettez le nom de la feuille dans laquelle vous cherchez votre référence
    Set trouve = .Columns(1).Cells.Find(reference)
End With
        If trouve Is Nothing Then
            MsgBox "La référence que vous cherchez n'existe pas."
            TextBox1.Value = ""
            TextBox2.Value = ""
        Else
            TextBox2.Value = trouve.Offset(0, 1).Value
        End If
Set trouve = Nothing
End Sub

Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
!!! Attention, si vous avez changé les propriétés « name » des boutons et/ou des textbox, il faudra modifier ce code en adaptant : TextBox1 (ou 2) sera à remplacer par le(s) nom(s) que vous avez donné...etc...

10- adaptations :
	- With Sheets("Feuil1") : Feuil1 est à remplacer par le nom de la feuille contenant vos références et leur adresse
	- TextBox2.Value = trouve.Offset(0, 1).Value : « trouve » est « l'adresse » de la cellule ou on a trouvé votre référence. Offset(0,1) décale donc de 0 ligne et de 1 colonne vers la droite à partir de cette cellule pour trouver l'adresse correspondante à la référence cherchée.
Exemples :
Votre réf est en Feuil1 A25, son adresse en B25 : TextBox2.Value = trouve.Offset(0, 1).Value
Votre réf est en Feuil1 B25, son adresse en A25 : TextBox2.Value = trouve.Offset(0, -1).Value
Votre réf est en Feuil1 A25, son adresse en F25 : TextBox2.Value = trouve.Offset(0, 5).Value
Etc...

Si vous aviez un souci dans la mise en oeuvre n'hésitez pas à revenir ici...

dogo · Answer

MERCI pour votre contribution

dogo · Answer

oui, c'est le meme individu

sebanbatagani · Answer

....Merci je dirais par contre je souhaite créer une interface comme je l'ai posté, une sorte d'exécutable, l'utilisateur n'accede pas aux données, mais peut faire des recherches.
avez vous vu le formulaire modèle que j'ai posté, merci de m'aider, l'essentiel je pense c'est l'aide pas autre chose....
merci

sebabatagani · Answer

bonjour la communauté, je reviens sur mon post, j'ai renvoyé un formulaire , l'avez vous dejà vu? 
merci de me proposer des reponses.

sebabatagani · Answer

slt pijaku, merci une fois de plus, mais j'ai office 2007, j'ai beaucoup de souci pour afficher ce quie vous me demander.
quelle est votre version de office pour executer tout cela merci de repondre

sebabatagani · Answer

Slt, 
j'ai un PC avec office 2007, j'ai une erreur 483 qui s'affiche et me demande de deboger, la ligne " set trouve ... se met en jaune ".
sinon pour le reste sans souci, je voudrais savoir s'il n'ya rien à configuer sur les 2 zones de textes, merci de vos éfforts

sebabatagani · Answer

Slt pijaku, 
 ça marche , merci pour tout, je voudrais savoir où trouver un bon cour pour perfectionner pour débuter et se perfectionner.
déjà ce resultat est acceptable, si je peux encore faire en sorte que l'utilisateur n'accede pas aux données c'est serait encore bien...
merci merci.

Créer un menu de recherche sur excel

10 réponses