Discussion :

[wyzer]

Bonjour,

Je souhaiterais développer une macro qui effectue cette tache :

1) 1er fichier : je sélectionne une plage de données (sur une colonne)

2) Je lance la macro

3) Je lui indique dans quelle colonne se trouve la valeur à rechercher (dans une boite dialogue, en indiquant le n° de la colonne. Par exemple "3" pour la colonne C:C)

4) Elle cherche cette valeur dans le 2ème fichiers (même s'il y a plusieurs feuilles)


Ca fait des semaines que je recherche si cette macro existe mais j'ai rien trouvé


Merci par avance !!!

[sabzzz]

bonjour wyzer,

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
Sub RechercheDansAutreClasseur()
Dim wk2 As Workbook
Set wk2 = Workbooks("B.xls")
colrésultat = InputBox("Entrer le numéro de colonne ?")
For Each c In Range("A1:A3") 'ou Selection
  For Each f In wk2.Worksheets
  'recherche dans la colonne A et retourne le nom de la feuille et la valeur de la colonne B si trouvé.
  'Match est egal à la fonction EQUIV de la feuille de calcul.
    If Not IsError(Application.Match(c, wk2.Sheets(f.Name).Range("A:A"), 0)) Then
     x = x + 1
'     mets le ou les résultats dans les cellules à droite de la valeur cherchée
     Cells(c.Row, 1 + x) = f.Name & " - " & wk2.Sheets(f.Name).Cells(Application.Match(c, wk2.Sheets(f.Name).Range("A:A"), 0), Val(colrésultat))
    End If
  Next
  x = 0
Next
End Sub

[wyzer]

Salut sabzzz,

Ca fonctionne !!

Merci !!!

[wyzer]

Re,

J'ai une petite question, comment je pourrais faire pour qu'une boite de dialogue me demande de choisir le fichier à analyser ?