Problème dans un formulaire

[pat17]

Bonjour à tous,
J'ai un soucis lors de la saisie dans le formulaire (recherche automatique).
Lors de la saisie de l'heure de fin j'ai un message d'erreur que je n'arrive pas à corriger.
merci de votre aide

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Odesta]

Re : Problème dans un formulaire

Bonjour pat17

Le bug vient d'ici : CDbl(ComboHeureFin), si vous comparez avec la sub d'au dessus, le nom de la variable est différent, ce qui fait que pour l'heure de début, il n'y a pas de message d'erreur.
Private Sub ComboHeureFin_Change()
HeureDeFin = ComboHeureFin
ComboHeureFin = Format(CDbl(ComboHeureFin), "hh:mm")
End Sub

Pour corriger : remplacer CDbl(ComboHeureFin) par CDate(...) pour les deux variables, début et fin.

Plus loin, dans le code, vous faite la même transformation CDbl(ComboHeureFin) pou run test de cohérence, à remplacer également.

il reste des bugs, je ne me suis pas penché dessus.

En espérant vous avoir fait un peu avancer

Olivier

 

[pat17]

Re : Problème dans un formulaire

Merci pour ta rapidité de réponse.
J'ai remplacé tous les (CDbl(ComboHeureDeDébut) par CDate(ComboHeureDeDébut) et la même opération pour heure de fin, mais ça me provoque une erreur execution 1004. impossible de lire la propriété match worksheet function.

LigneDeDateDébut = Application.WorksheetFunction _
.Match(CLng(CDate(ComboDateDébut)), Worksheets(compteurFeuille).Range("A1:A368"), 0)

Que dois je faire??

 

[pat17]

Re : Problème dans un formulaire

résolu
merci à tous

 

[Odesta]

Re : Problème dans un formulaire

Oups, désolé, je n'avais pas vue que tu avais encore des problémes, ne m'étant pas connecté régulièrement
Bien joué en tout cas !