Rechercher une date précise dans une liste

[C@thy]

Bonjour le forum,

je voudrais rechercher 31 décembre 2012 dans une colonne
comportant des dates au format jj/mm/aa
par macro afin de récupérer des données de la ligne et les copier
j'utilise Datevalue pour la transformer en date
la date 31/12/2012 se trouve bien dans ma colonne car c'est un jour ouvré
mais la recherche est infructueuse

En réalité c'est un peu + complexe, je recherche dans une liste
le dernier jour travaillé de l'année en cours (de lundi à vendredi)

Auriez-vous rencontré cd problème et trouvé une solution???

Un immense MERCI pour votre aide

Bises

C@thy

 

[C@thy]

Re : Rechercher une date précise dans une liste

Oups!

j'ai oublié de modifier a32 en a200, mais de toute façon le résultat est le même, a marche pô!...

Biz

C@thy

 

[MJ13]

Re : Rechercher une date précise dans une liste

Bonjour à tous

Cathy: Tu peux essayer ce code:

Sub TrouveDate2()
ActiveSheet.Cells.Find(Format(Date, "DD/MM/YY"), LookIn:=xlValues).Select
End Sub

 

[MJ13]

Re : Rechercher une date précise dans une liste

Re

On peut aussi tester en adaptant au contexte :

Sub TrouveDateAuj1()
dateAuj = Format(CDate(Date), "DD/MM/YY")
ActiveSheet.Cells.Find(dateAuj).Select
End Sub
Sub TrouveDateAuj2()
ActiveSheet.Cells.Find(Format(Date, "DD/MM/YY"), LookIn:=xlValues).Select
End Sub
Sub TrouveDate()
ActiveSheet.Cells.Find(Format(InputBox("date?"), "DD/MM/YY"), LookIn:=xlValues).Select
End Sub

 

[C@thy]

Re : Rechercher une date précise dans une liste

Merci MJ13, cela me convient parfaitement...

depuis le temps que je cherche à résoudre cette énigme!!!

Biz

C@thy

 

[C@thy]

Re : Rechercher une date précise dans une liste

Arf... si j'osais...

je ne suis pas très bonne (non plus) dans la gestion des erreurs :
on error msgbox "pas trouvé" ne fonctionne pas...

C@thy

 

[C@thy]

Re : Rechercher une date précise dans une liste

MJ13, cela fonctionne pour la date du jour, mais pas pour la date en D2

Bises

C@thy

 

[MJ13]

Re : Rechercher une date précise dans une liste

Re

Teste ce code :

Sub TrouveDateD2()
'ActiveSheet.Cells.Find(Format(InputBox("date?"), "DD/MM/YY"), LookIn:=xlValues).Select
ActiveSheet.Range("A2:A1000").Find(Format([D2], "DD/MM/YY"), LookIn:=xlValues).Select
End Sub

 

[C@thy]

Re : Rechercher une date précise dans une liste

toujours pas...

merci pour ton aide... et ta grande patience!...

C@thy

 

[MJ13]

Re : Rechercher une date précise dans une liste

Re

Alors peut-être, mais sans conviction .

Sub TrouveDateD2()
Dim DAteAt As Date
DAteAt = [D2]
ActiveSheet.Range("A2:A1000").Find(DAteAt, LookIn:=xlValues).Select
End Sub

 

[C@thy]

Re : Rechercher une date précise dans une liste

YAISSSSSSE!!!

On y est!!!

Un grand MERCI à toi.

Bises

C@thy

 

[C@thy]

Re : Rechercher une date précise dans une liste

Damned! je n'y arrive pas du tout,
dans un autre fichier (ils sont tous différents), ça ne marche pas à cause d'un problème de format

Arf! désolée de vous embêter encore très beaucoup!!!

je joins mon fichier pour plus de compréhension.

Un grand merci pour votre aide

Bises

C@thy

 

[PMO2]

Re : Rechercher une date précise dans une liste

Bonjour,

Remplacez la ligne de code

Selection.Find(dateAuj).Select

par

Selection.Find(what:=dateAuj, LookIn:=xlValues).Select

 

[MJ13]

Re : Rechercher une date précise dans une liste

Bonjour Cathy

Peut-être avec la zone à chercher nommée zone:

Sub test()
DAteAT = Range("D2").Text
Range("zone").Find(DAteAT, LookIn:=xlValues).Select
End Sub

 

[C@thy]

Re : Rechercher une date précise dans une liste

Oui, MJ13, ça marche en nommant la zone, et même en le nommant avec DECALER

Zone =DECALER(Feuil1!$C$7;;;NBVAL(Feuil1!$C:$C)-1)

S'il n'y a pas d'autre solution, je nommerai...
Patrick, ça n'a pas fonctionné

un grand MERCI à vous deux et bonne soirée

Bises

C@thy

 

[C@thy]

Re : Rechercher une date précise dans une liste

Merci Jean-Marcel,
ça ne fonctionne pas pour la colonne C
(pour la A non plus!)

Bises

C@thy