Discussion :

[johannj]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[johannj]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je teste avec du texte

[johannj]

apparemment,

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

Johann