userform avec calcul heures

[amocco]

bonsoir le forum,
est il possible d'ouvrir un userform (a l ouverture du classeur) qui puisse calculer 2 horaires en fonction d'une selection .
je vous joins le fichier ce sera plus simple a comprendre
merci

 

[kjin]

Re : userform avec calcul heures

Bonsoir,
Je vois bien le fichier, le formulaire beaucoup moins !
A+
kjin

 

[amocco]

Re : userform avec calcul heures

bonjour ,

j ai rajouté quelques elements meric pour ton aide

 

[kjin]

Re : userform avec calcul heures

Re,
Dans le module de ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("CREW").Visible = xlVeryHidden 'cette version si tu veux réafficher("CREW") par VBA uniquement
'Sheets("CREW").Visible = false 'cette version si tu veux réafficher("CREW") par le menu
End Sub
Private Sub Workbook_Open()
affusf
End Sub

Penses quand même qu'il doit toujours y avoir une feuille visible dans ton classeur
A+
kjin

 

[amocco]

Re : userform avec calcul heures

super
par contre la case repos n a pas lieu d'etre dans le formulaire
ca ne bouge jamais 08:45
comment on fait pour annuler
merci

 

[amocco]

Re : userform avec calcul heures

c est bon j ai reussi
merci encore

 

[amocco]

Re : userform avec calcul heures

j ai juste un petit pb concernant mon userform
je voudrais que lorsque je modifie la valeur dans la textbox 1
(meme si je ne touche pas la liste combobox1) les valeurs de la textbox4 et 5
soient mises a jour

merci

 

[jeanpierre]

Re : userform avec calcul heures

Bonsoir amocco, kjin,

Merci beaucoup pour le :

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Application.Quit

Sympa.pour les fichiers sur lesquels on travaille pour d'autres réponses forum d'ailleurs. De quelques minutes, des fois, à énormément plus souvent.

Merci de supprimer ce genre de gadget avant de déposer.

Jean-Pierre

 

[amocco]

Re : userform avec calcul heures

désolé mais je ne comprend pas trop ta réponse

 

[kjin]

Re : userform avec calcul heures

Bonsoir,
Bonsoir jean pierre

Efface tous le module et insère ce code
Le calcul est réactualisé à la sortie de la textbox, donc touche "entrée" ou click à l'extérieur

Private Sub ComboBox1_Change()
If ComboBox1 <> "" & TextBox1 <> "" Then calcul

End Sub

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Application.Quit

End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1 <> "" & TextBox1 <> "" Then calcul

End Sub

Private Sub UserForm_Initialize()
    For Each cel In Sheets("CREW").Range("B13:B50")
        If cel <> "" Then ComboBox1.AddItem cel.Value
    Next

End Sub
Sub calcul()
    If ComboBox1.ListIndex <> -1 Then
        TextBox3 = Format(Sheets("CREW").Cells(ComboBox1.ListIndex + 13, 4), "hh:mm")
        TextBox1 = Format(TextBox1, "hh:mm")
        TextBox2 = Format(Sheets("CREW").Range("D7"), "hh:mm")
        x = TimeValue(TextBox1) + TimeValue(TextBox2) + TimeValue(TextBox3)
        TextBox4 = Format(x, "hh:mm")
        y = Format(Sheets("CREW").Range("D8"), "hh:mm")
        TextBox5 = Format(TimeValue(TextBox1) + TimeValue(y), "hh:mm")
        TextBox6 = Format(Sheets("CREW").Range("D8"), "hh:mm")
    End If
    
End Sub

A+
kjin

 

[kjin]

Re : userform avec calcul heures

Re,

désolé mais je ne comprend pas trop ta réponse

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Application.Quit
C'est dans ton fichier
Ferme excel et sans message préalable
Bonjour pour ceux qui comme jean pierre, avaient déjà des classeurs ouverts !!!
Tu comprends mieux maintenant ?
A+
kjin

 

[amocco]

Re : userform avec calcul heures

bonsoir kjin
bonsoir jean pierre


désolé pour le code inséré dans mon classeur .
j ai récupéré ca sur le forum tout content de moi .

je suis débutant et m'excuse pour la perte du travail

cordialement

 

[jeanpierre]

Re : userform avec calcul heures

Re,

Merci de tes excuses. Pas grave, c'est fini.

Tellement l'habitude de faire confiance que je ne vérifie pas.

Toutefois, cette remarque te concerne aussi, si tu travailles sur plusieurs fichiers, ou pour tes collègues si ton appli.doit circuler.

Bonne soirée.

Jean-Pierre

 

[kjin]

Re : userform avec calcul heures

Re,
Bin du coup, amocco a oublié de préciser si son fichier fonctionne maintenant
A+
kjin