VBA Application.match vers un autre classeur

[ConsultantJP]

Bonjour à tous,

J'ai un petit souci d'incompétence pour le coup lol, je cherche à avoir la position d'une valeur dans un autre classeu, j'ai donc tenté d'utiliser la fonction match mais j'ai pas réussi.

Dans le 1er classeur :
FeuilleA, cellule D1 est ma valeur cherché.

Le second classeur est : y:/Reporting/Function/Tdb.xls, la feuille TDB, les cellules E2 à AA2 sont ma zone de recherche.

Pourriez vous me donner un coup de pouce svp car c tout bete je suis sur et je bloque a cause du changement de classeur.

Merci

 

[ConsultantJP]

Re : VBA Application.match vers un autre classeur

Petite info supplémentaire, le second classeur sera ouvert donc le chemin d'acces n'est surement pas utile.

Merci

 

[ConsultantJP]

Re : VBA Application.match vers un autre classeur

Encore un autre test sans succès pfff

X = Application.Match(Myvalue, Workbooks("Tdb.xls").Sheets("TdB").Range("E2:AA2"), 1)

 

[mromain]

Re : VBA Application.match vers un autre classeur

bonjour ConsultantJP,

à tester:

Private Sub CommandButton1_Click()

Dim wbkSearch As Workbook, cellSearch As Range

Set wbkSearch = Application.Workbooks("Tdb.xls")

Set cellSearch = wbkSearch.Sheets("TDB").Range("E2:AA2").Find(what:=ThisWorkbook.Sheets("FeuilleA").Range("D1").Text, LookIn:=xlValues, lookat:=xlWhole)

If Not cellSearch Is Nothing Then MsgBox cellSearch.Address

End Sub

a+

 

[ConsultantJP]

Re : VBA Application.match vers un autre classeur

Merci pour ton code, j'ai essayé mais ça n'a pas marché, je vais tenter de bidouiller pour faire marcher ton code, mais je trouve incroyable de ne pas reussir avec match ...

Merci pour ton aide en tout cas !!

 

[vbacrumble]

Re : VBA Application.match vers un autre classeur

Bonjour


Ca fonctionne ainsi chez moi

Sub test()
Dim x
x = Application.WorksheetFunction.Match(Range("A1"), Workbooks("Classeur2").Sheets(1).Range("A1:F1"), 1)
MsgBox x
End Sub

 

[ConsultantJP]

Re : VBA Application.match vers un autre classeur

Merci VBACrumble, bon j'ai une erreur 1004 mais je pense que ça doit venir de mes classeurs vu que chez toi ça fonctionne, donc je vais fouiner ! mais comprend pas !!

Merci encore !

 

[ConsultantJP]

Re : VBA Application.match vers un autre classeur

ça marcheeeeee, milles excuses je suis un boulet, mon classeur actif excel était le 2 donc ça pouvais pas fonctionner.....