Bonjour tout le monde,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
WMemo_Date = CDate("01/" & G_MOIS & "/" & G_ANNEE)
WTrouve = False
WLig_Trouve = 0
Dim OBJ_FICCOM As Object
'cherche l'occurence dans la colonne 1
Set OBJ_FICCOM = Columns(1).Find(WMemo_Date, LookIn:=xlValues)
'Si elle est trouvé, renseigne WLig_Trouve avec le N° de ligne
If Not OBJ_FICCOM Is Nothing Then
WTrouve = True
WLig_Trouve = OBJ_FICCOM.Row
Else
WTrouve = False
WLig_Trouve = 0
End If
Voici donc le code que j'utilise pour retrouver une date dans la première colonne de ma feuille.
La variable G_MOIS contient "01", donc je cherche le 01/01/2011.
Mais, en mode débuggage, le SET me positionne systématiquement sur le 01/11/2011.
(La colonne est bien au format DATE).
Incompréhensible, vous dis-je
Bon, bref, j'espère que vous allez pouvoir m'aider, parce que je suis entrain de craquer.