Discussion :

[neila7]

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

[illight]

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

[neila7]

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

[edelweisseric]

Bonjour à tous
Bonjour neila7, illight

Essaie ce code, mais il est à adapter

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
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

[Bigalo]

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.

pourquoi tu fais as une rechercheV directe dans ton fichier ?

[fred65200]

bonsoir à tous,

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

[Bigalo]

Merci.

[Bigalo]

Bonsoir, neila7

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

Merci.

[Bigalo]

Bonsoir,

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

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
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.