Microsoft 365 Application match et dates

eric72 · 4 Avril 2023

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

Cousinhub · 4 Avril 2023

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 · 4 Avril 2023

JM27 à dit:
Ben oui parce que tu pars de B1 et non pas de A1

et pour mon expérience, comment je peux récupérer les données rien qu'en saisissant une date dans planning en b1

eric72 · 4 Avril 2023

bhbh à dit:
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

Microsoft 365 Application match et dates

eric72

XLDnaute Accro

Cousinhub

eric72

XLDnaute Accro

eric72

XLDnaute Accro

Discussions similaires

Microsoft 365 Application match et dates

eric72

XLDnaute Accro

eric72

XLDnaute Accro

eric72

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency