Problème fonction Match

Bonjour le forum,

J'ai une erreur 1004 avec la fonction Match (impossibilité de lire la propriété Match de la classe Worksheetfunction).

Voici ce que je souhaite faire:
j'ai un résumé de data en feuille 2, avec des cases à cocher. En feuille 3, j'ai l'intégralité de mes data.
Si une ou plusieurs cases sont cochées en feuille 2, je souhaite récupérer la data en colonne A (ligne identique que la case cochée) et la retrouver dans ma feuille B.

Voici un exemple de code que j'ai essayé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub testcheckbox()   Dim WB As Workbook, feuille As Worksheet   Set WB = ThisWorkbook Set feuille = ThisWorkbook.Worksheets(2)   With feuille For i = 2 To 6   If feuille.CheckBoxes("check" & i).Value = 1 Then samplename = .Cells(i, 1).Value End If   test = Application.WorksheetFunction.Match(samplename, ThisWorkbook.Worksheets(3).Range("B2:B20"), 0) .Cells(i, 8).Value = test Next i End With End Sub

---

Je dois avouer que çà marche pas terrible et que j'ai toujours cette erreur 1004!!

Quelqu'un a une idée??

Vous remerciant par avance,
Johann

Si je cherche une valeur entière, çà marche si je mets:

Code:

---

test = Application.WorksheetFunction.Match(CInt(samplename), ThisWorkbook.Worksheets(3).Range("B2:B20"), 0)

---

Je teste avec du texte :D

apparemment,

en mettant une Fonctions de conversion de types de données dans ma fonction Match, çà semble marché :ccool:!

Johann