Microsoft 365 Application match et dates

eric72

XLDnaute Accro
Bonjour à tous
j'essaie d'utiliser application match avec des dates comme cela:

If Sheets("Planning").Range("n4") = "" Or Sheets("Planning").Range("al4") = "" Then MsgBox "Vous devez sélectionner une année et une semaine": Exit Sub
colcible = Application.Match(Format(Sheets("Planning").Range(t7), "dd/mm/yyyy"), Sheets("Archives").Range("b1:m1"), 0)

Mais encore une fois cela ne fonctionne pas et je ne comprends pas pourquoi, auriez-vous une idée de ce dysfonctionnement.
Merci beaucoup
Eric
 
Solution
Bonjour,
Malgré les apparences, à partir de la colonne D, ce ne sont plus des dates, mais du texte...
Donc, quelque soit le code...
Maintenant, si tu mets les dates au bon format, tu peux essayer ainsi :
VB:
Sub Cherch_Col()
Dim ColCible As Long
ColCible = Application.Match(CLng(Sheets("Planning").Range("T7").Value), Sheets("Archives").Range("B1:NJ1"), 0)
End Sub
Bon courage

eric72

XLDnaute Accro
Re-,
Si tu veux la colonne exacte, il faut utiliser Rows(1)
Sinon, si tu veux ton Tableau Structuré, essaie ainsi :
VB:
Dim ColCible As Long
ColCible = Application.Match(Sheets("Planning").Range("T7").Text, Range("Tableau1[#Headers]"), 0)
Tu obtiendras le numéro de colonne du TS
Merci bhbh,
je vais eviter le TS car il me met que la méthode range a échoué, mais ça n'est pas grave, c'est déjà top comme ça
Merci 1000 fois
 

Discussions similaires

Réponses
28
Affichages
993

Statistiques des forums

Discussions
312 215
Messages
2 086 322
Membres
103 178
dernier inscrit
BERSEB50