Fonction Match

Céline -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 4 janv. 2016 à 12:44

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.

A voir également:

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

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

Céline

J'ai essayé la fonction "find" mais ça ne marche pas aussi

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

La fonction FILTRE n'est plus reconnue

[Excel 2010] Remplir cellule d'après contenu d'une autre

Excel : Remplir une cellule en fonction d'une autre

Votre réponse

Discussions similaires