Problême avec application.match

[satwaf]

Bonjour à tous,

voila mon petit soucis, je recherche une valeur dans une liste, j'utilise donc 'application match', lorsuqe la valeur est numérique pas de soucis, mais dans ce cas la cela ne fonctionne pas, quelqu'un pourrait-il me dire d'ou cela vient?

voic un exemple

 

[RENAUDER]

Re : Problême avec application.match

Bonjour,
Il faut mettre 1 pour Cells
Sheets("feuil1").Range("base_s400").Cells(lig, 1).Select

Sub Macro_coller_ftp_52()
    Dim lig As Variant
    Sheets("feuil1").Select
    lig = Application.Match(Sheets("Feuil1").Range("G5"), Sheets("Feuil1").Range("base_s400"), 0)
    If IsNumeric(lig) Then
        Sheets("feuil1").Range("base_s400").Cells(lig, 1).Select
    End If
End Sub

 

[satwaf]

Re : Problême avec application.match

Merci Renauder, parfois les erreurs tiennent à peu de choses, à présent tout fonctionne à merveille, encore merci