probleme dtpicker toujours Résolu

Question

Bonjour, 
j'ai 2 soucis avec mon userform et les DTpicker je n'
arrive pas a transferrer les données des dates des 
DTpicker avec le bouton imprimer dans la feuille imprim ça marque toujours date  00/01/1900.
Dans la feuille Userform retour du vehicule si vous cliquez sur un nom puis sur restitué le
dans le textbox durée effective il me marque ex 2,353 au lieu de 3 jours 
je n'arrive pas a contourner ces 2 problemes malgré ma bonne volonté 

je vous mets le fichier   https://www.cjoint.com/?BJFnQupo19Q
merci de votre aide car je  désespére 
a bientôt

f894009 · Answer

Bonjour,

mis commentaire sur cellules modifiees

https://www.cjoint.com/?BJFo7D9w403

Bon courage

eriiic · Answer

Bonjour,

Pas tout regardé en détail mais puisque c'est la date que tu veux je verrais mieux :
DTPicker_Pris.Value = Date
que
DTPicker_Pris.Value = Now
qui inclus date et heure

La durée étant : DTPicker_Prev-DTPicker_Pris+1

eric

f894009 · Answer

Re, 

Apres quelques essais, pas normal que des datapickers au meme format shortdate deux donnent des heures non demandees et pas le troisieme.

J'ai change le format date des datapickers en custom et ensuite revenu a shortdate, plus d'heures avec les dates???? 

Imprim pret vehicule 
enlever le Unload Me en debut, parce la les valeurs des objets de lUF dur, dur de les avoir. 

Pareil que precedement affiche commentaire sur cellules modifiees. 

Eriiic: les datapickers ne sont pas initialises par Now() 

https://www.cjoint.com/?BJFsncbpNI5 

Regardez si cela convient???? 

A+

eriiic · Answer

Re,

Je me suis penché un peu plus sur le code.
Voici ce que j'ai trouvé :

1)  DTpicker avec le bouton imprimer dans la feuille imprim ça marque toujours date 00/01/1900. 
Private Sub CommandButton10_Click()
 Unload Me
Normal, tu décharges le formulaire au début, il se vide...
il faut le faire en fin de procédure.

2) Dans la feuille Userform retour du vehicule si vous cliquez sur un nom puis sur restitué le
dans le textbox durée effective il me marque ex 2,353 au lieu de 3 jours 
Private Sub DTPicker_Rest_Change()
'  If CDate(DTPicker_Rest.Value) < CDate(Pris1.Value) Then
'        MsgBox " Vous ne pouvez pas rendre avant d'avoir pris ", vbCritical, "                ATTENTION"
'        Exit Sub
'    End If
            
            TextBox138.Value = CDate(DTPicker_Rest.Value) - CDate(Pris1.Value) + 1
            TextBox138.Value = Left(TextBox138.Value, 6) & "  Jours" 
Pris1.Value a pour valeur une date-heure (nombre décimal).
Dans tous ces types de contrôle si tu veux seulement la date utilise Date et non Now à l'initialisation.
Sinon utilises int(Pris1) pour ne garder que la date

eric

surplus · Answer

bonjour
désolé de vous em..beter mais je n'y arrive pas du tout a le mettre sur mon planning original ça marche pas 
et en plus je regarde la différence avec celui envoyé et je vois rien aux dt picker
je vous mets le fichier original c'est peut être lui qui a un beug aussi 
car je voudrais le mettre en route lundi et il me manque ce problème et aussi cacher des lignes dans les 12 pages des mois si dans la feuille "vehic" la voiture en colonne H = N cacher les lignes correspondantes dans les 12 mois
si c'est fesable 
https://www.cjoint.com/?BKbeMlG1ZUB
merci je vais me coucher dépité
a bientôt

f894009 · Answer

Bonjour,

Felicitation et bon retablissement a la maman.

Peut-etre la fin de vos soucis de dates. Explications sur feuille BD

https://www.cjoint.com/?BKbjlkdJjsM

Merci Eriic pour le Date au lieu de Now pour les datapickers.

Pour le masquages des lignes Vehicule Non Dispo, je regarde.

A+

eriiic · Answer

Bonjour à tous,   

Bravo aux parents et au papi ;-)   
eric    

PS: il reste encore un =now dans  :
Private Sub MultiPage1_Change()  
...  
    Case 1  
      DTPicker_Rest.Value = Now  

@surplus :  
S'il est midi, now te retourne 01/11/2012 12:00 soit 41214.5  
Si tu le soustrait à une date sans les heures tu obtiens un nombre décimal inférieur au nombre de jour.  
DTPicker_Rest.Value = Date te retournera 41214 et tu peux effectuer tes différences de dates sans problème.  

eric  
    
Jamais tu ne répondras à un mp non sollicité...   
Bon, ça c'est fait.

Probleme dtpicker toujours

7 réponses

Discussions similaires

Newsletters