pb de recherche de fichier sous VBA

pb de recherche de fichier sous VBA - VB/VBA/VBS - Programmation

Marsh Posté le 07-02-2007 à 12:16:35    

slt à tous,
 
Voila je dispose d'un fichier excel contenant les références de divers articles, mon objectif est d'écrire une macro pouvant me permettre de rechercher la référence de l'article que je veux, et de m'afficher les informations associées à cet cette référence par exemple la date de commande, la quantité de pièces en stock,....
 
 
merci à tous

Reply

Marsh Posté le 07-02-2007 à 12:16:35   

Reply

Marsh Posté le 07-02-2007 à 12:20:45    

blondel66 a écrit :

slt à tous,
 
Voila je dispose d'un fichier excel contenant les références de divers articles, mon objectif est d'écrire une macro pouvant me permettre de rechercher la référence de l'article que je veux, et de m'afficher les informations associées à cet cette référence par exemple la date de commande, la quantité de pièces en stock,....
 
 
merci à tous


 
salut blondel66,
selon moi tu n'a même pas besoin d'une macro. Les fonctions recherche, recherchev et rechercheh devraient te suffire. ;)

Reply

Marsh Posté le 07-02-2007 à 12:41:20    

pour afficher les infos tu peux utiliser ca
 
Sub test()
produi = "agraphe"
pri = "12"
MsgBox ("produit: " + produi + vbCrLf + "prix: " + pri)
End Sub
 
et tu trouve les infos avec les fonctions de slr56
 
pour connaitre le code tu peux utiliser outils/macro/nouvellemacro ce qui permet d'enregistrer ce que tu fais avec Excel
 
bon courage

Reply

Marsh Posté le 07-02-2007 à 12:48:05    

ingenieurcesi a écrit :

pour afficher les infos tu peux utiliser ca
 
Sub test()
produi = "agraphe"
pri = "12"
MsgBox ("produit: " + produi + vbCrLf + "prix: " + pri)
End Sub
 
et tu trouve les infos avec les fonctions de slr56
 
pour connaitre le code tu peux utiliser outils/macro/nouvellemacro ce qui permet d'enregistrer ce que tu fais avec Excel
 
bon courage


 
 
slt,
 
ok merci je teste tout ça , et je te confirme si ça marche

Reply

Marsh Posté le 07-02-2007 à 13:34:34    

voila le code
a toi de l'ameliorer
 
Sub teet()
produi = InputBox("vous voulez les infos de quel produit ?" )
''================================
'les produits sont dans la colonne A
'les prix sont dans la colonne B
'les descriptions sont dans la colonne C
'==================================
c = 1
For l = 1 To 50000 Step 1
If Cells(l, 1).Value = produi Then
pri = Cells(l, 2).Value
pri = RTrim(LTrim(pri))
desc = Cells(l, 3).Value
desc = RTrim(LTrim(desc))
GoTo suite
End If
Next
suite:
MsgBox ("produit: " + produi + vbCrLf + "prix: " + pri)
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed