RECHERCHEV VBA Macro

Bonjour,je suis debutante en vba/excel c'est pour cela que je m'aidiez
j'ai deux classeurs excel le premier "information.xls "et il contient dans la colonne A la liste des references des produits, la colonne B contient le nom du produit correspondant a chaque reference et le dernier C contient le prix de chaque produit alors que le deuxieme classeur "devis.xls" est vide. Mon probleme et que je veux creer un macro qui lit de la valeur reference que je tape par exemple dans la colonne A (cellule a1 ) du second classeur "devis.xls" puis recherche cette valeur dans le premier fichier s'il la trouve il copie le nom et le prix unitaire correspond du produit dans le deuxieme classeur "devis.xls ". J'ai pensé à utiliser la Fonction RECHERCHEV dans un macro VBA mais le probleme et que je suis novice et j'ai pas reussi à develloper ce code en tous cas voiçi mes fichiers presentes sur ce lien http://cjoint.com/?bFmkBR8oTm. N'hesitez pas à m'aider:cry:

pourquoi tu veux utiliser une macro ? 8O pourquoi tu fais as une rechercheV directe dans ton fichier ?

je veux pas utiliser REHERCHEV car le fichier information n'est pas dans un ordre croissant et je veux le trier car il est utilisé par des autres employés et j'ai pas le droit de le modifier. donc j'ai besoin d'un macro

Bonjour à tous
Bonjour neila7, illight

Essaie ce code, mais il est à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub recherche_01() Dim c Dim ligne As Integer mavar = 253 ' tu récupères la valeur référence   With Workbooks("Information.xls").Worksheets("Feuil1").Range("a:a") 'colonne où récupérer la valeur référence   Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole) '   ligne = c.Row ActiveWorkbook.Sheets("Feuil1").Range("b2").Value = Workbooks("Information.xls").Worksheets("Feuil1").Range("H" & ligne) 'b2 est la cellule dans laquelle il faut inscrire la valeur trouvée en colonne "H" ActiveWorkbook.Sheets("Feuil1").Range("c2").Value = Workbooks("Information.xls").Worksheets("Feuil1").Range("I" & ligne)   End With   End Sub

---

code à mettre dans un "module", dans "Private Sub Worksheet_SelectionChange", .... tout dépend ce que tu veux faire

Eric

Bonsoir, neila7

Je n’arrive pas à ouvirirton fichier .rar. Peux-tu le remettre en tant que document Excel ?

Merci.

Bonsoir,

Si elle utilise une fonction, RECHERCHEV(), ou INDEX() et EQUIV(), elle va se retrouver avec une liaison externe, ce qui selon moi est à éviter comme la peste.

Personnellement, je préfère infiniment un traitement par macro, qui va chercher l’info quand on le souhaite.

Citation:

---

Envoyé par illight

pourquoi tu fais as une rechercheV directe dans ton fichier ?

---

bonsoir à tous,

Fichiers zippés ajoutés au premier post.
Fred

Merci.

Bonsoir,

Dans le module de la Feuill1 du classeur devis2008.xls,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Worksheet_Change(ByVal Target As Range) Dim Wb As Workbook, c As Range, f As Worksheet, Ref As Range, NumLigne As Integer, Nom$, Prix As Single On Error Resume Next Set Wb = Workbooks("Informations.xls") If Wb Is Nothing Then Exit Sub On Error GoTo 0 Set f = Wb.Sheets(1) Set Ref = Intersect(f.Range("B:B"), f.UsedRange) If Not Intersect(Target, Range("A:A")) Is Nothing Then For Each c In Intersect(Target, Range("A:A")) On Error Resume Next NumLigne = Application.Match(c, Ref, 0) On Error GoTo 0 If NumLigne <> 0 Then Application.EnableEvents = False c.Offset(0, 1) = f.Range("C" & NumLigne) c.Offset(0, 2) = f.Range("I" & NumLigne) Application.EnableEvents = True End If Next End If End Sub

---

Le principe est que SI le classeur Informations.xls est ouvert, on va chercher les infos, ET SI la référence existe, on reporte le nom et le prix correspondants.