Rechercher une date précise dans une liste

C@thy

XLDnaute Barbatruc
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
 
Dernière édition:

Roland_M

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

bonjour

par code, pour avoir ton format, essaies avec une variable !?

----------
Dim MaDate As Date

MaDate = Cells(Lign,Col)
-----------
 

Pierrot93

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Bonjour Cathy:)

sans voir le code utilisé, difficile à dire.... regarde peut être également du coté de la méthode Find, devrait pouvoir le faire...

bon après midi
@+

Edition : bonjour Roland
 

C@thy

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Merci a vous 2
Oui c'est justement avec find que je veux le faire
mais même sans macro la recherche ne marche pas :(

Biz

C@thy
 

Roland_M

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

re

oui mais, comme le dis très justement Pierrot
un petit fichier serait plus simple !
 

PMO2

XLDnaute Accro
Re : Rechercher une date précise dans une liste

Bonjour,

Je pense qu'il faut inverser le quantième et le mois lorsqu'on utilise DateValue (voir exemple joint).
 

C@thy

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Yesss, merci Partick,
c'est bien ça!!! Ca marche SUPER!!!

Il fallait le savoir... (depuis le temps que je cherche!!!)

Mille mercis

Bizz

C@thy
 

hoerwind

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Bonjour C@thy, salut les autres,

mais même sans macro la recherche ne marche pas

=SERIE.JOUR.OUVRE(DATE(ANNEE(AUJOURDHUI())+1;1;1);-1;fer)
En principe le ;fer n'est pas nécessaire, uniquement au cas où le 31/12 serait férié !
 

C@thy

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Merci hoerwind pour cette précision utile,
mais cette recherche vient s'intégrer dans une procédure,
d'où la nécessité de le faire en macro

Bises

C@thy
 

C@thy

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Merci à toi Bebere c'est Géant aussi!!

Bravo vous êtes tous des chefs!!!

Bises

C@thy
 

C@thy

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Arf! j'ai compris pourquoi ça ne marche pas chez moi :

la 1ère date est le 2/01/2012
les lignes suivantes sont obtenues par formule :
= A1+1+2*(JOURSEM(B85)=6)
du coup la recherche ne fonctionne pas, même si on la fait par valeur au lieu de par formules!

Bizz

C@thy
 

hoerwind

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Bonjour C@thy,

Comme tu es nouvelle sur ce forum (lol), un petit conseil : mets un exemple de ton problème en pièce jointe, bien plus facile pour comprendre et essayer de résoudre ta question.
 

C@thy

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Bonjour à tous

Cathy: Tu peux essayer ce code:

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

MJ13

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Re

On peut aussi tester en adaptant au contexte :):

Code:
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

XLDnaute Barbatruc
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!!!:eek:

Biz

C@thy
 

C@thy

XLDnaute Barbatruc
Re : Rechercher une date précise dans une liste

Arf... si j'osais...

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

C@thy
 

Haut Bas