Fonction Match Fermé

Question

Bonjour, 

Je veux avoir la position de la valeur de la cellule C4 du fichier A dans le fichier B.
J'ai écris le code suivant: 
-----------------------------

Sub rech()
Dim t As Long
Dim wb As Workbook, wb2 As Workbook
Dim sPath As String, sFilename As String

Application.ScreenUpdating = False

sPath = "d:\"       'Répertoire
sFilename = ("B")
Set wb2 = Workbooks.Open(sPath & sFilename)

t = Application.WorksheetFunction.Match(ThisWorkbook.Sheets(1).Range("C4").Value, wb2.Sheets(1).Range("A1:E500"), 0)
   MsgBox (t)
   
End Sub

-----------------------------
mais j'obtiens le message d'erreur suivant "Erreur définie par l'application ou par l'objet". Pourriez vous m'aider à corriger mon code?



     EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.

jordane45 · Answer

Bonjour,

Si c'est pour chercher dans un classeur excel... orientes toi plutôt vers la fonction "find"
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel

pijaku · Answer

Bonjour,

Essayez comme ceci :

Sub rech()
Dim t As Range
Dim wb As Workbook, wb2 As Workbook
Dim sPath As String, sFilename As String
Dim mot

Application.ScreenUpdating = False
mot = ThisWorkbook.Sheets(1).Range("C4").Value
sPath = "d:\"       'Répertoire
sFilename = ("B")
Set wb2 = Workbooks.Open(sPath & sFilename)
With wb2.Sheets(1).Range("A1:E500")
    Set t = .Cells.Find(mot)
End With
If Not t Is Nothing Then MsgBox t.Address
End Sub

Fonction Match

2 réponses

Discussions similaires