Erreur code WorksheetFunction.Match

Bonjour,

Si quelqu'un pourrais jeter un coup d'oeil sur mon projet pour corriger mon code, car je ne comprend pas ou viens mon erreur.

voici le liens pour récupérer mon fichier excel car étant trop lourd je suis obliger de le faire passer via ce liens:

Bonsoir,

La valeur retournée par ListBox1 est du texte ( "43")

Or tu cherches du numérique dans la Feuil1

Essaie en mettant Val(ListBox1) dans la formule

Peut-être?

Bon courage

Merci de votre aide mais maintenant cela me surligne en jaune ma ligne :

Else

.Range("K" & i).Hyperlinks(1).Follow

End If

Pensé vous pourvoir m'indiquer mon erreur?

Re-,

J'ai refait ton code de recherche, car la fonction "EQUIV" (Application.Match en VBA) te donne la première occurrence dans la colonne de recherche, donc si tu cherches 63, tu auras forcément la cellule F10...

De plus, dans ton extrait de fichier, il n'y a pas de lien hypertexte dans la cellule K10...

essaie avec ce code :

Private Sub CommandButton2_Click()
Dim FRech As Worksheet
Dim PlgCat As Range, PlgFourn As Range, PlgProd As Range, C As Range
Set FRech = Sheets("Feuil1")
With FRech
    Set C = .Columns(3).Find(Me.ComboBox1, , , xlWhole)
        If Not C Is Nothing Then Set PlgCat = .Cells(C.Row, 3).MergeArea
    Set C = PlgCat.Resize(PlgCat.Rows.Count, 2).Find(Me.ComboBox2, , , xlWhole)
        If Not C Is Nothing Then Set PlgFourn = FRech.Cells(C.Row, 4).MergeArea
    Set C = PlgFourn.Resize(PlgFourn.Rows.Count, 2).Find(Me.ComboBox3, , , xlWhole)
        If Not C Is Nothing Then Set PlgProd = FRech.Cells(C.Row, 5).MergeArea
    Set C = PlgProd.Resize(PlgProd.Rows.Count, 2).Find(Me.ListBox1, , , xlWhole)
        If Not C Is Nothing Then
            If C.Offset(, 5).Hyperlinks.Count > 0 Then
                C.Offset(, 5).Hyperlinks(1).Follow
            End If
        End If
End With
End Sub

Ici, on détermine les plages de recherche en fonction des valeurs des ComboBox 1, 2 et 3....

bon courage

Bonjour,

J'ai essayé votre code mais cela ne fonctionne pas .

Sinon dans ma feuille 1 en colonne K j'ai des lien hypertexte vers des fichier PDF de mon ordinateur

Bonjour,

Le code fourni fonctionne dans le fichier exemple que tu as fourni....

Maintenant, en disant juste "cela ne fonctionne pas", ça va pas être simple pour t'aider...

Développe un peu, qu'est-ce qui ne fonctionne pas?

La recherche, l'ouverture du fichier "pdf", ....?

@ te relire avec plus de précisions

Bonjours

Autant pour moi je vous pris de m'excuser cela fonctionne très bien. je faisais le test avec le seul produit qui n'avais pas encore de liens vers les PDF je vous pris de m'excuse d'avoir remis votre code en question.

Je vous remercie beaucoup pour votre aide.