Cyber-parc : appel du km précédent dans multipages

[CAPRI_456]

Le Forum, bonjour,

En m'inspirant du gestionnaire de Cyber-café de @+Thierry de 2004 , fil :

https://www.excel-downloads.com/thr...tion-manager-v01-01-timecharter-report.29377/

j'ai réalisé (l'ai transformé en un gestionnaire de véhicules) , base sur :
1- le temps
2- le kilométrage

Mes souhaits : dans le multipage

pour les temps : --- afficher le temps en seconde

pour les kilomètres : ---- avant de lancer le chrono, afficher le km de départ ( soit le km de retour de la sortie précédente) et propre à chaque véhicule (donc ici onglets Report)

+ une alerte qui avertit l'utilisateur de l'oubli d'introduire un km de retour au moment où il interrompt le chrono

Merci pour votre aide

CAPRI_456

 

[CAPRI_456]

Re : Cyber-parc : appel du km précédent dans multipages

Quelques précisions au sujet du post précédent,

pour les temps ,afficher le temps en seconde

bien entendu uniquement dans le textBox "durée" car déjà présent dans les autres.

pour les kilomètres

une alerte qui avertit l'utilisateur de l'oubli d'introduire un km de retour au moment où il interrompt le chrono

ou bien impossibilité d'interrompre le bouton arret chrono si on n'a pas introduit de km dans le textbox km retour

CAPRI_456

 

[CAPRI_456]

Re : Cyber-parc : appel du km précédent dans multipages

Bon dimanche le Forum, @+Thierry,

Voilà le code que j'ai tenté d'introduire dans Userform Initialize pour afficher le kilométrage de la course précédente à l'ouverture d'une nouvelle course... dans le TxtBox (Start)
With Worksheets("Report572")
'=========' km indiqué en fin de dernière course
Set Rng = .Range("K2:K" & .Range("K65536").End(xlUp).Row - 1)
End With
With UserForm1
====== et dans le TxB WS1TxbStartKM
.WS1TxbStartKM = Worksheets("Report572").Cells(L, 11)
End With

Hélàs cela bug
Merci pour votre aide précieuse


CAPRI_456

 

[CAPRI_456]

Re : Cyber-parc : appel du km précédent dans multipages

Bonjour le Forum,


A l'initialisation : Private Sub UserForm_Initialize() j'ai tenté de placer un code pour lors de l'ouverture de UserForm1 faire en sorte que le kilométrage précédent (fin de la dernière course) soit celui qui s'affiche automatiquement dans les Textbox (Start).

Code qui devrait agir:

With Worksheets("Report572") '========='start km
Set Rng = .Range("K2:K" & .Range("K65536").End(xlUp).Row - 1)
End With
.......soit aller dans la colonne K et appeler le km précédent
With UserForm1
.WS1TxbStartKM = Worksheets("Report572").Cells(L, 11)
End With

Mais qui n'agit pas .

Merci pour l'aide

CAPRI_456