Problême avec application.match

satwaf · 6 Décembre 2011

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 · 6 Décembre 2011

Re : Problême avec application.match

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

Code:

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 · 6 Décembre 2011

Re : Problême avec application.match

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

Problême avec application.match

satwaf

XLDnaute Occasionnel

Pièces jointes

RENAUDER

Nous a quitté

satwaf

XLDnaute Occasionnel

Discussions similaires

Problême avec application.match

satwaf

XLDnaute Occasionnel

Pièces jointes

RENAUDER

Nous a quitté

satwaf

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency