Recherche d'une date via methode FIND

[ChTi160]

Bonjour le 'Forum'
dans un TextBox je tape une date à rechercher dans mon classeur afin d'afficher des infos dans une ListBox,
la procèdure est
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
j'adapte
Set C = .Find(Text, LookIn:=xlValues, LookAt:=xlWhole,..ici...)
quel argument dois je y inclure pour permettre la recherche d'une date
entrée dans mon textBox sous forme 31/03/2005
un petit exemple s'il vous plait
Merci d'avance
Jean Marie

 

[mutzik]

Salut Chti160, le fil, le forum

Excel stocke les dates en format nombre et les REPRESENTE en format date suivant le format que tu choisis. Pour retrouver une date, il faut d'abord convertir ta valeur de textebox en numérique via la fonction dateval(MaDateEnFormatTexte)

ensuite tu fais ta recherche et hop

Bertrand

 

[ChTi160]

Salut'Bertrand'
tout d'abord merci
il faut donc convertir avant la recherche bien reçu
je vais tester
bonne journée
Jean Marie

 

[ChTi160]

re avant de tester je me pose la question
via ce TextBox je veux tout aussi bien pouvoir rechercher une date qu'un nom il me faudra donc prévoir le cas ou mon TexBox contiendra ou du texte ou une Date?
il n'existe pas dans la méthode FIND de critere exemple
SearchFormat =argument qui prendrai tout les formats ?????
merci

 

[Hervé]

Bonjour

Chti, une proposition en pièce jointe.


A plus

[file name=Classeur6.zip size=11258]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur6.zip[/file]

 

[Hervé]

re

Avant de poster je n'ai pas vu ton dernier message, je pense que mon exemple tombe à l'eau (plouf).

je recherche pour searchformat.

a plus

 

[ChTi160]

Salut ' Hervé '
je te remercie pour ta participation à la résolution de mon petit problème
effectivement je veux pouvoir Chercher du texte ou une date
A bientôt

 

[Hervé]

re

Et en testant la valeur de de la textbox1 :

If IsDate(TextBox1) Then
valeur = CDate(TextBox1)
Else
valeur = TextBox1.Text
End If

With ActiveSheet.Range('a2:a21')
Set c = .Find(valeur, LookIn:=xlValues) ', LookAt:=xlWhole) ',..ici...)
If c Is Nothing Then
MsgBox 'Pas de donnée correspondante.', , 'Attention...'
Exit Sub
End If
End With

A suivre...

 

[ChTi160]

re 'Hervé'
je te remercie
celà me convient très bien
j'avais mais sans succès tenté un Select Case
encore merci
Jean Marie

 

[Romain]

Bonjour,

En PJ un exemple tiré d'une appli sur laquelle j'avais passé pas mal de temps. La date est recherchée sur une feuille et la/les ligne(s) contenant la date recherchée est copiée sur une autre feuille.
Salutations à toutes et à tous. [file name=Rechercher date_20050331153002.zip size=38793]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Rechercher date_20050331153002.zip[/file]

Romain

 

[ChTi160]

Salut Romain'
j'ai testé je pense pourvoir me servir des fonctionnalités pour celà
peux tu me fournir le mot de passe car le projet est protégé
Merci d'avance
Jean Marie

 

[Romain]

Bsr Jean-Marie,
Désolé pour le retard mais j'avais déserté le forum. Le mot de passe est 'dpa'
Bonne soirée

Romain

 

[ChTi160]

Salut' Romain '
bonjour le Forum

bon week End à tous
Merci Romain mieux vaut tard que jamais
tu sais il y a des posts ou l'on met des propositions qui ne sont jamais lus ou relus
ça c'est désolant ,mais je vois que toi tu suis et c'est tant mieux pour moi Lol
Encore merci
Amicalement
Jean Marie