Fonction Match VBA Fermé

Question

Bonjour a tous,

Je voudrais chercher le numéro de colonne dans une ligne suivant un critère. En l'occurrence ce critère est une chaine de caractère.

J'utilise la fonction MATCH, voici mon code :

Sub essai()
Dim position As Long
Dim x As variant

Numsemaine = InputBox("Entrez le numéro de semaine à sélectionnner :", "Nouvelle semaine", "")

x = "w" & Numsemaine

With Workbooks("DSW Incoming Containers France-Thailand 2013").Worksheets("Thailand ")
position = Application.Match(x, .Range(.Cells(5, 1), .Cells(5, 500)), 0)
End With

Range("H2").Value = position

End Sub


Cela ne marche pas, il doit y avoir un problème avec la déclaration de la variable x. Est-ce possible d'avoir dans la fonction Match, un critère comme chaîne de caractère ?

J'ai essayé plusieurs solutions, mais j'arrive a saturation. 

Cordialement,

Maksime51.

f894009 · Answer

Bonjour,

Sub essai()
    Dim position As Long
    Dim x As Variant

    Numsemaine = InputBox("Entrez le numéro de semaine à sélectionnner :", "Nouvelle semaine", "")

    x = "w" & Numsemaine
    'mettre l'extension du fichier ici xlsx, pour vous .....
    With Workbooks("DSW Incoming Containers France-Thailand 2013.xlsx").Worksheets("Thailand ")
        position = Application.Match(x, .Range(.Cells(5, 1), .Cells(5, 500)), 0)
    End With

    Range("H2").Value = position

End Sub


Bonne suite

Fonction Match VBA

1 réponse

Discussions similaires

Newsletters