Bonjour,

J'ai un problème avec la méthode Find.
Lorsque je l'utilise pour rechercher une chaîne de caractères dans une liste, elle fonctionne très bien.
Toutefois, il semble qu'elle regimbe lorsque la valeur recherchée est une date.
Elle refuse de trouver la valeur cherchée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Application.Goto Reference:="Dte_Obs"
Set O_Cell = Selection.Find(Dte)
La variable Dte contient bien une date. La liste nommée Dte_Obs contient bien des dates. J'ai vérifié, en affichant les valeurs en format standard ou nombre, qu'elles ne comportaient pas de chiffre après la virgule correspondant aux heures non affichées dans un format date.
J'ai aussi essayé en servant tous les paramètres de la méthode Find.
Rien n'y fait, ma variable objet O_Cell reste désespérément "Nothing".

Merci d'avance des lumières que vous pourriez m'apporter.

En continuant ma recherche pour comprendre pourquoi cela ne marche pas, j'ai entré manuellement des dates dans ma liste. La méthode a fonctionné.
Dès lors que j'y ai remis des formules comme
=AS1+1
, la méthode n'a plus fonctionné, même si je la libelle comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set O_Cell = Selection.Find(Dte, , xlValues)
.
.
J'ai voulu réessayer avec des dates saisies à la main. Ca ne marche encore une fois plus ?????
J'y perds mon VBA !