Discussion :

[Guillaume_PMO]

Bonjour,

J'essaye de faire quelque chose d'un peu tordu et je plante un peu...

J'ai un fichier 1 avec des valeurs dans la colonne A.
J'ai un fichier 2 avec plusieurs onglets qui contiennent ou non dans la colonne A ces mêmes valeurs.

Dans mon fichier 1, je voudrais renvoyer dans la colonne B dans quel onglet du fichier 2 la valeur se trouve, ou NA si elle n'y est pas.

Merci d'avance pour le coup de pouce!!

Guillaume

[casefayere]

Bonsoir,
Une idée à 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
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim wB1 As Workbook, wB2 As Workbook, trouve As Range
Dim Ws1 As Worksheet, Ws2 As Worksheet, plage2 As Range
Dim i1 As Long, i2 As Long, plage1 As Range, cel As Range
Set wB1 = Workbooks("a_sup1.xlsm") 'nom fichier à completer
Set wB2 = Workbooks("a_sup2.xlsm") 'nom fichier à ausculter
Set Ws1 = wB1.Worksheets("feuil1")
i1 = Ws1.Range("A" & Ws1.Rows.Count).End(xlUp).Row
Set plage1 = Ws1.Range("A2:A" & i1)
Ws1.Range("B2:B" & i1) = "NA"
For Each cel In plage1
   For Each Ws2 In wB2.Worksheets
      i2 = Ws2.Range("A" & Ws2.Rows.Count).End(xlUp).Row
      Set plage2 = Ws2.Range("A2:A" & i2)
      Set trouve = plage2.Find(cel)
      If Not trouve Is Nothing Then
         cel(1, 2) = Ws2.Name
      End If
   Next Ws2
Next cel
End Sub