Discussion :

[setepenre]

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 !

[Flo3301]

Bonjour,

ta date est dans quel format ? Rentrée manuellement du style 10/01/2001 ou bien en format excel c'est à dire un chiffre tel que 40567.4419258101 pour la date d'aujourd'hui qui à l'écran apparait "24/01/11" par exemple.

Vérifier cela constitue deja un premier élément de réponse car si tu lui demande de chercher "24/01/11" et que la vrai valeur de ta cellule est "40567.44" il ne va forcement pas la trouver. D'autre part tu peux renseigner des criteres de recherche concernant la fonction .Find afin d'affiner cette dernière. Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.Find(What:="xxxx", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)

Tout n'est pas utile, mais à mon avis précise dejà le Lookin:=XlValues ou bien XlFormulas suivant le type de donnée que tu cherches.

En espérant t'avoir aider un petit peu,

Bonne journée.

[Philippe Tulliez]

Bonjour,
J'ai déposé un classeur exemple disponible ici

[setepenre]

Merci à vous pour votre aide.

En fait, j'ai renoncé, dans ce programme, à me servir de la méthode Find et ai utilisé une bête boucle Do Until ... Loop.

Ce qui me désespère, c'est que ce programme défectueux fonctionne très bien dans un autre classeur. C'est exactement le même programme (copier-coller). Dans l'un ça fonctionne, dans l'autre non.
Frustrant, déstabilisant.

[Didier Gonard]

Bonjour,

Ce sont des traitement sensibles, attention aux points suivants :

• la méthode Find mémorise les paramètres de la précédente utilisation, il faut en tenir compte à tous niveaux.
  
• Pour les recherches, les tris, Excel utilise les Numéros de série sous-jacents aux dates, c'est signalé par Microsoft et sommes toutes logique quand on voit comment ça fonctionne...

voir aussi : Comprendre et gérer les dates sous Excel et en VBA

l'intérêt final est que Find si OK sera bien plus rapide qu'une boucle.

cordialement,

Didier

[setepenre]

Bonjour,

La rapidité d'exécution est en effet tout l'intérêt de cette méthode Find.
Toutefois son fonctionnement me paraît assez erratique.

En effet, il arrive parfois que, pour une raison qui m'échappe complètement, elle ne fonctionne pas. La zone de recherche est bien définie, et la valeur à chercher n'est pas trouvée.

Le sommum dans cette affaire est que j'ai un projet Excel qui utilise cette méthode pour rechercher dans une sélection de cellules une date. Elle fonctionne à merveille.
On m'a demandé la construction d'un autre projet qui ressemble assez au premier. J'ai tout naturellemnt repris la structure du premier (feuilles, zones de cellules...) et surtout un copier/coller de la routine de recherche de la date. Ca ne marche plus.
J'utilise la méthode Find avec comme seul paramètre le "What".
Que peut-elle mémoriser qui l'empêche de fonctionner ?