Aide pour mon DM ..

[maax62]

Bonjours a tous

pour les cours je doit créer un userform pour une fiche de maintenance..

j'ai créer la plupart des zone de texte calendrier etc.. mais me manque quelque éléments :/

Mon bouton Annuler fonctionner .. mais n’efface pu tous, avec la fonction " Unload me" et ".listindex=-1" pour mes zone déroulante..


Je doit calculer le temps de travail de l'intervention.. je peut afficher la date grâce au calendrier mais je n'arrive pas a calculer avec mon bouton calculer..

a chaque ouverture de saisie, un numéro de fiche doit apparaître automatiquement mais je n'arrive pas après plusieurs essai..

J'ai deux listbox qui ce suivent selon le choix du premier listbox, mon choix ce réduit pour la deuxième listbox..


Je vous remercie d'avance, pour vos réponse qui m'avancerai =) même si vous avait des code a me donné pour essayer je veux bien les recevoir =)

 

[jp14]

Re : Aide pour mon DM ..

Bonjour

Ci dessous un début de code pour information.
Pour plus d'explication concernant le code il faut utiliser l'aide de visual Basic

Private Sub Annuler_Click()
'' raz combobox ou listbox
Equipement.ListIndex = -1
Responsable.ListIndex = -1
Date_a_valider.ListIndex = -1
type_dintervention.ListIndex = -1

' raz textbox
numero_de_fiche = ""
     

End Sub



Private Sub Heure1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = False
If Not IsDate(Heure1) Then
    Call MsgBox("L'heure doit être sous la forme" _
                & vbCrLf & "HH:MM ou 00:MM" _
                & vbCrLf & "" _
                & vbCrLf & "" _
                , vbExclamation, "Heure non conforme")
    
    Cancel = True
End If
Exit Sub
End Sub


Private Sub Quitter_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
' Le programme tiendra compte de l'ajout de nouvelle machines
Equipement.RowSource = "Equipement!A2:A" & Sheets("Equipement").Range("A" & Sheets("Equipement").Rows.Count).End(xlUp).Row

End Sub

Private Sub Valider_Click()
'ecrire dans les colonnes
Dim Dl1 As Long ' dernière ligne
' controle des données, on vérifie si les controles sont remplis
If Equipement.ListIndex = -1 And Equipement.Value = "" Then
    Call MsgBox("Vous devez indiquez la machine concernée." _
                & vbCrLf & "" _
                & vbCrLf & "" _
                , vbExclamation, "Equipement")
    
    Equipement.SetFocus = True
    Exit Sub
End If




' inscrire les données dans la feuille
With Sheets("fiches")
    Dl1 = .Range("A" & .Rows.Count).End(xlUp).Row + 1 ' première ligne non vide
    .Range("A" & Dl1) = Equipement.Value
    ' a compléter

End With
End Sub

Avant d'écrire un programme il faut faire la fiche d'intervention manuellement, ainsi que les calculs.
Quelle serait la durée si l'intervention porte sur deux jours ?

JP

 

[maax62]

Re : Aide pour mon DM ..

Merci de ton aide =)

pour ce qui est du temps

il nous propose un commencement d'intervention le 16, a 10H pour finir le 18, a 5H ce qui nous fait 43H ..
Donc pour deux jours sa doit être 48H ^^