Comment rechercher/trouver des valeurs dans un autre classeur ?

Il peut être un peu confus de configurer le chemin de sauvegarde, le nom de fichier et la feuille de calcul dans la fonction RECHERCHEV. Cette méthode présente une solution VBA pour résoudre cela facilement.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans la fenêtre de module qui s'ouvre.

VBA : Recherche de données et retour de valeurs depuis un autre classeur fermé

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub

RemarqueCette VBA retournera des valeurs dans une colonne située 2 colonnes après la colonne sélectionnée. Par exemple, si je sélectionne la colonne B lors de l'application de cette VBA, les valeurs seront retournées dans la colonne D. Si vous devez changer la colonne de destination, veuillez trouver le code xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row et remplacer 2 par un autre nombre selon vos besoins.

3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter cette VBA.

4. Dans la boîte de dialogue qui s'ouvre, veuillez spécifier la plage de données dans laquelle vous effectuerez la recherche, puis cliquez sur le bouton OK bouton.

5. Maintenant, veuillez sélectionner le classeur dans lequel vous effectuerez la recherche dans la boîte de dialogue Sélectionner un classeur qui s'ouvre, puis cliquez sur le bouton Ouvrir bouton.

Maintenant, toutes les valeurs sélectionnées sont recherchées dans le classeur fermé spécifié, et les valeurs correspondantes sont retournées dans la colonne spécifiée. Voir la capture d'écran :