saisie de donnees

[oliv67]

je vous joins 1 fichier

mon pb : je souhaite saisir des donnees via le userform SaisieDEtail
que j'active par clic du bouton saisie.

je souhaiterai copier les donnees dans la ligne correspondant à la date du champ Txt date de mon userform dans la feuille SAISIE

je m'en sort pas

MERCI POUR VOTRE AIDE [file name=CoutsCollecte2005Test_20050926233215.zip size=50616]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CoutsCollecte2005Test_20050926233215.zip[/file]

 

[Hellboy]

Bonsoir oliv67

Je ne suis pas habitué avec les Date, mais je pense que j'ai trouvé. j'ai vue que tu avais essayer et pas a peu près.

Voila change cette ligne:

countTot = countTot + Application.CountIf(ws.UsedRange, '=' & strSearchString)

Pour :

countTot = countTot + Application.CountIf(ws.UsedRange, '=' & Format(strSearchString, 'dd-mm-yy'))

Et j'ai aussi changé les séparateur dans le format l'hors de l'initialisation du Userform.

Private Sub UserForm_Initialize()
txtDate.Value = Format(Date, 'dd-mm-yy')

End Sub

 

[oliv67]

merci de ta réponse aussi rapide, mais apres test j'ai toujours un message m'indiquant que la valeur 26/09/2005, par exemple, n'est pas enregistree.

si qqn as une idee ?

merci d'avance [file name=CoutsCollecte2005Test_20050927002248.zip size=49867]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CoutsCollecte2005Test_20050927002248.zip[/file]

 

[Hellboy]

re

désolé, une erreur de ma part.

strSearchString = txtDate
strSearchString = Format(strSearchString, 'dd/mm/yy')

For Each ws In Worksheets
countTot = countTot + Application.CountIf(ws.UsedRange, '=' & strSearchString)
Next ws

 

[oliv67]

malgre les chagements ci dessus

la date du txtDate n'est pas trouvée.

le format est tres particulier mais je ne connais pas la solution


olivier

 

[Hellboy]

Bonjour oliv67

Enfin j'ai trouvé, peut être que le résiltat ne sera pas comme tu le souhaiterais, mais ça fait la JOB. !

En premier cette petite lecture qui provient de l'aide sur la commande Format() :

Pour ce qui concerne le séparateur de date (/), d'heure ) et le littéral AM/PM, la sortie formatée réellement affichée par votre système dépend des paramètres régionaux avec lesquels le code s'exécute. Lorsque les heures et les dates sont affichées dans l'environnement de développement, ce sont les formats heure et date raccourcis des paramètres régionaux qui sont utilisés. Lorsqu'ils s'affichent par exécution du code, les formats heure et date raccourcis utilisés sont ceux des paramètres système, qui peuvent différer des paramètres régionaux. Pour cet exemple, les paramètres Français-France sont utilisés.

C'est la commande Format que je ne l'utilisate peut être pas comme il faut ou c'est elle qui me limite. alors je te présente ma solution, éliminé la source du problème:

Private Sub UserForm_Initialize()
txtDate.Value = Date
'txtDate.Value = Format(Date, 'dd-mm-yy')
End Sub

strSearchString = txtDate.Value
For Each ws In Worksheets
    countTot = countTot + Application.CountIf(ws.UsedRange, '=' & strSearchString)
Next ws

Cette fois c'est la bonne si le compromis est acceptable.

 

[oliv67]

merci pour la éponse, mais j'avais déjà essayé cette version mais le format date n'est pas reconnu.


lorsque j'ouvre le userform SAISIE DETAIL
et que je clique sur OK

Un message d'erreur apparaît : la valeur 28/09/2005 n'est pas enregistrée.

je ne comprend pas pourquoi cette valeur n'est pas reconnue
pourtant elle figure dan la feuille SAISIE.


Olivier

 

[Hellboy]

re

Encore moi. Je suis désolé de te contrarier, mais moi je l'ai essayer a la maison et au travail(shhhhut0 (Office 2003) et je n,ai pas de problème.

Essaie ce fichier, et si tu as toujours des problème, je lache la serviette et passe le défit a une autre personne.

a+ [file name=coutscollecte2005test.zip size=40931]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/coutscollecte2005test.zip[/file]

 

[oliv67]

je permets juste une petite question

lorsque tu dsi que cela fonctionne peux tu m'explique ce qui se passe?

merci pour les infos.


Olivier

 

[Hellboy]

re

Je comprend ta question. En fait tu as raison de te méfier, car je n'ai pas testé après que je n'ai plus eu le message qui indique qu'il ne trouve pas cette date. J'ai considéré, que il trouvais l'information qu'il cherchait.

 

[oliv67]

Apres reflexion, j'ai peu etre une piste.

les dates dans excel sont des chiffres
exemple : 38582 correspond à la date 18/08/2005

je pense qu'il faur rechercher dans cette voie

olivier