Bonjour à tous,

J'ai un soucis avec la méthode Find.
J'ai dans ma première ligne des dates au format mmm-aa
Je cherche à trouver la colonne qui correspond au mois de la date du jour
j'ai donc ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub test()
Dim  DC As Long
Dim C As Range
Set C = ThisWorkbook.Worksheets("Test").Range("A1:WW1").Find(Format(Date, "mmm-yy", vbMonday, vbFirstFourDays), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not C Is Nothing Then DC = C.Column: Set C = Nothing Else MsgBox "Date non trouvée, Etirer les dates de la feuille Test": Exit Sub
End Sub
le problème c'est que cela fonctionnait hier mais plus aujourd'hui. J'ai donc cherché a faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set C = ThisWorkbook.Worksheets("Test").Range("A1:WW1").Find(Format(Date -1, "mmm-yy", vbMonday, vbFirstFourDays), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
et la ca trouve bien novembre
ca marche aussi pour octobre mais pas pour septembre par exemple alors que le texte est exactement le même....

Savez-vous pourquoi svp?
merci d'avance