Recherche d'une date via methode FIND

mutzik

XLDnaute Barbatruc

• 31 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Mars 2005

• #3

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Mars 2005

• #4

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 31 Mars 2005

• #5

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]

 

Pièces jointes

• Classeur6.zip

  11 KB · Affichages: 36
• Classeur6.zip

  11 KB · Affichages: 34
• Classeur6.zip

  11 KB · Affichages: 36

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 31 Mars 2005

• #6

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Mars 2005

• #7

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 31 Mars 2005

• #8

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

Cliquez pour agrandir...

A suivre...

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Mars 2005

• #9

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

 

Vote positif 0 Vote négatif

R

Romain

Guest

• 31 Mars 2005

• #10

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

 

Pièces jointes

• Rechercher date_20050331153002.zip

  37.9 KB · Affichages: 46

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Mars 2005

• #11

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

 

Vote positif 0 Vote négatif

R

Romain

Guest

• 8 Avril 2005

• #12

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 9 Avril 2005

• #13

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

 

Vote positif 0 Vote négatif