Fonction Match
Céline
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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:
-----------------------------
-----------------------------
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?
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:
- Fonction Match
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
- Fonction somme excel - Guide
2 réponses
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
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
Bonjour,
Essayez comme ceci :
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
