Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Améliration recherche de dates ( pour MichDenis )

6 réponses
Avatar
Infogroup
Bonjour à toutes et à tous,

Dans mon Post du 14 mai, MichDenis m'avait donné la procédure pour
rechercher une date dans un fichier qui reste fermé.

Dans un souci d'amélioration, je voudrais au lieu que la msgbox affiche le
nombre de dates trouvées, que le message comporte le nom, prénom et âge
correspondant


Je joints les 2 fichiers concernés
http://cjoint.com/?ftoydSoANV

Merci par avance pour votre patience,

Cdl

Infogroup

6 réponses

Avatar
MichDenis
Là : http://cjoint.com/?fto3a5EH8Z



"Infogroup" a écrit dans le message de groupe de discussion :

Bonjour à toutes et à tous,

Dans mon Post du 14 mai, MichDenis m'avait donné la procédure pour
rechercher une date dans un fichier qui reste fermé.

Dans un souci d'amélioration, je voudrais au lieu que la msgbox affiche le
nombre de dates trouvées, que le message comporte le nom, prénom et âge
correspondant


Je joints les 2 fichiers concernés
http://cjoint.com/?ftoydSoANV

Merci par avance pour votre patience,

Cdl

Infogroup
Avatar
MichDenis
Pour ton info. un msgbox ne peut pas contenir plus de 1024 caractères
dans son message. (incluant les espaces et les caractères Chr(10) & chr(13)
(Excel 2007)



"MichDenis" a écrit dans le message de groupe de discussion :
#
Là : http://cjoint.com/?fto3a5EH8Z



"Infogroup" a écrit dans le message de groupe de discussion :

Bonjour à toutes et à tous,

Dans mon Post du 14 mai, MichDenis m'avait donné la procédure pour
rechercher une date dans un fichier qui reste fermé.

Dans un souci d'amélioration, je voudrais au lieu que la msgbox affiche le
nombre de dates trouvées, que le message comporte le nom, prénom et âge
correspondant


Je joints les 2 fichiers concernés
http://cjoint.com/?ftoydSoANV

Merci par avance pour votre patience,

Cdl

Infogroup
Avatar
MichDenis
J'oubliais, pour avoir l'âge de la personne en plus,
utilise ce message au lieu de celui qui est
dans la procédure.

Message = Message & Rst(0).Value & " " & _
Rst(1).Value & " " & Rst(2).Value & " " & _
Year(Date) - Year(CDate(Rst(2).Value)) & "ans" & vbCrLf
Avatar
isabelle
bonjour Denis,

c'est un fichier sans extention que tu as mis sur ci-joint ?

isabelle

MichDenis a écrit :
Là : http://cjoint.com/?fto3a5EH8Z



"Infogroup" a écrit dans le message de groupe de discussion :

Bonjour à toutes et à tous,

Dans mon Post du 14 mai, MichDenis m'avait donné la procédure pour
rechercher une date dans un fichier qui reste fermé.

Dans un souci d'amélioration, je voudrais au lieu que la msgbox affiche le
nombre de dates trouvées, que le message comporte le nom, prénom et âge
correspondant


Je joints les 2 fichiers concernés
http://cjoint.com/?ftoydSoANV

Merci par avance pour votre patience,

Cdl

Infogroup




Avatar
MichDenis
Bonjour Isabelle,

http://cjoint.com/?ftpAJTE4MH

Le fichier a une extension .Rar (logiciel Winrar)
D'autres logiciels peuvent aussi le dézipper.

(au besoin, j'en publierai un avec un .zip.)



"isabelle" a écrit dans le message de groupe de discussion :
#
bonjour Denis,

c'est un fichier sans extention que tu as mis sur ci-joint ?

isabelle

MichDenis a écrit :
Là : http://cjoint.com/?fto3a5EH8Z



"Infogroup" a écrit dans le message de groupe de discussion :

Bonjour à toutes et à tous,

Dans mon Post du 14 mai, MichDenis m'avait donné la procédure pour
rechercher une date dans un fichier qui reste fermé.

Dans un souci d'amélioration, je voudrais au lieu que la msgbox affiche le
nombre de dates trouvées, que le message comporte le nom, prénom et âge
correspondant


Je joints les 2 fichiers concernés
http://cjoint.com/?ftoydSoANV

Merci par avance pour votre patience,

Cdl

Infogroup




Avatar
Infogroup
Bonjour MichDenis et merci encore une fois pour ton super boulot.

Tout est OK maintenant

Ça fonctionne super !

Cdl

Infogroup


"MichDenis" a écrit dans le message de
news:%
J'oubliais, pour avoir l'âge de la personne en plus,
utilise ce message au lieu de celui qui est
dans la procédure.

Message = Message & Rst(0).Value & " " & _
Rst(1).Value & " " & Rst(2).Value & " " & _
Year(Date) - Year(CDate(Rst(2).Value)) & "ans" & vbCrLf