Fonction Match VBA
Fermé
Maksime51
Messages postés
1
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
9 août 2013
-
9 août 2013 à 06:15
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 - 9 août 2013 à 07:32
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 - 9 août 2013 à 07:32
A voir également:
- Fonction Match VBA
- Voir match en direct gratuitement - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Fonction find vba - Astuces et Solutions
- Fonction si et - Guide
- Match canadien en direct streaming gratuit ✓ - Forum Internet / Réseaux sociaux
1 réponse
f894009
Messages postés
16905
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mars 2023
1 680
9 août 2013 à 07:32
9 août 2013 à 07:32
Bonjour,
Bonne suite
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