Créer un menu de recherche sur excel

Résolu
sebabatagani Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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.

10 réponses

Réponse 1 / 10
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
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...
4
Réponse 2 / 10
boukar dogo
 
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
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Pour nous joindre une page :
https://www.cjoint.com/
ou http://www.cijoint.fr/
0
boukar dogo
 
http://www.cijoint.fr/cjlink.php?file=cj201008/cij62R5eGg.jpg
0
Réponse 3 / 10
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
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...
0
Réponse 4 / 10
dogo
 
MERCI pour votre contribution
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
dogo et sebabatagani sont une seule et même personne?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
dogo
 
oui, c'est le meme individu
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Donc je place le sujet en "résolu".
Essayez, pour éviter ce genre de confusion, de n'utiliser que votre pseudo "sebabatagani" sous lequel, en plus, vous êtes un membre inscrit!!!
Bonne continuation
0
crapoulou Messages postés 28195 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   8 013
 
Salut,

Personnellement, je demanderais au membre sebabatagani de confirmer... !
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
C'est pas faux.
Dogo peux tu nous rendre ce service?
0
Réponse 6 / 10
sebanbatagani
 
....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
0
crapoulou Messages postés 28195 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   8 013
 
sebanbatagani, connectes-toi, ce sera plus facile pour pijaku afin qu'il t'aide toi en priorité ;-).

Bonne continuation.
0
Réponse 7 / 10
sebabatagani Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour la communauté, je reviens sur mon post, j'ai renvoyé un formulaire , l'avez vous dejà vu?
merci de me proposer des reponses.
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Salut,
Je reprends donc. Oui j'ai vu la photo de ton formulaire.
Vous avez un classeur exemple ici et l'explication qui va avec ici.
N'hésitez pas pour les questions précises.
0
Réponse 8 / 10
sebabatagani Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour tou(te)s,
J'ai tester le classeur de pijaku sur le 2000 et 2007, le classeur fonctionne parfaitement sur les 2 versions.
Sur PC ou MAC ?
A+
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Salut,
Idem, testé sur 2003 et 2007...
j'ai beaucoup de souci pour afficher ce quie vous me demander Il faudrait que vous développiez un peu. Qu'est ce qui ne fonctionne pas?
0
Réponse 9 / 10
sebabatagani Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 10 / 10
sebabatagani Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Salut,
Tant mieux.
Pour que l'utilisateur n'accède pas aux données, tu peux déjà, dans un premier temps masquer la feuille qui les contient...
0