[Catégorie modifiée .Net -> VBA] listbox et fonction heure

Signaler
Messages postés
1
Date d'inscription
samedi 16 janvier 2010
Statut
Membre
Dernière intervention
11 janvier 2012
-
Bonjour a tous ! (on ne peut pas mettre de pièce jointe ? si non, donnez votre mail je vous l'envoie !)

J'ai un petit problème, je suis en train de faire un Userform pour des saisies d'interventions de maintenance et j'ai quelques problème auxquels je ne trouve pas de solution !

Voicie:

Pour les ListBox situées en bas du userform (pièces hydro, méca, élec...) comment faire pour ne pas être obliger de cliquer sur celle ci pour que mes listes apparaissent ( verins, contacteur, engrenage....) ??

Ensuite, j'ai intégré un calendrier pour avoir les durées de pannes, on sélectione la date de début et de fin (a l'aide de la combobox et du calendrier) on entre manuellement des heures de début et de fin, on clique sur "calculer", et Bim le résultat et correct ! néanmoins, la valeur qui est renvoyée dans excel dans la colonne "i" est toujours 00:00 Pourquoi ?

Dernière chose, mon incrémentation du n° de fiche est bonne, mais dans le userform, je n'arrive pas a l'afficher dans la case qui correspond...

Si vous pouviez m'aider, ça serai vraiment gentil car je suis débuttant et dois être a environ 20h de taf la dessus et je commence a avoir les nerfs!

je vous remercie d'avance et espère avoir des réponses très bientôt !

Private Sub Calendar1_Click()
If ComboBoxDatVal.Text ("Date de début") Then TextBoxDatDeb.Value Calendar1.Value
If ComboBoxDatVal.Text ("Date de fin") Then TextBoxDatFin.Value Calendar1.Value
Exit Sub
End Sub

Private Sub CommandButtonQui_Click()
UserForm1.Hide

End Sub

Private Sub CommandButtonAnn_Click()
'     TextBox18.Text = ""
'     TextBox3.Text = ""
'     TextBox2.Text = ""
'     TextBox8.Text = ""
'     TextBox7.Text = ""
'     TextBox15.Text = ""
'     TextBox17.Text = ""
'     ComboBox1.Text = ""
'     ComboBox2.Text = ""
'     ComboBox3.Text = ""
'     ComboBox4.Text = ""
'     TextBox11.Text = ""
'     ListBox1.Value = ""
'     ListBox7.Value = ""
'     ListBox5.Value = ""
'     ListBox3.Value = ""
'     ListBox10.Value = ""
'     ListBox8.Value = ""
'     ListBox6.Value = ""
'     ListBox4.Value = ""
'     ListBox2.Value = ""
'     ListBox11.Value = ""
End Sub

Private Sub CommandButtonVal_Click()
UserForm1.Hide
Worksheets("Saisie").Select
Range("A3").Select
Rows(ActiveCell.Row).Select
Selection.Insert
Selection.Interior.ColorIndex = xlNone
Range("A3").Select
Range("A" & ActiveCell.Row).Formula = Val(Range("A" & ActiveCell.Row + 1)) + 1
Range("B" & ActiveCell.Row).Formula = ComboBoxNomEqui.Value
Range("C" & ActiveCell.Row).Formula = ComboBoxNomRes.Value
Range("D" & ActiveCell.Row).Formula = TextBoxNbPers.Value
Range("E" & ActiveCell.Row).Formula = TextBoxDatDeb.Value
Range("F" & ActiveCell.Row).Formula = TextBoxDatFin.Value
Range("G" & ActiveCell.Row).Formula = TextBoxHeuDeb.Value
Range("H" & ActiveCell.Row).Formula = TextBoxHeuFin.Value
Range("I" & ActiveCell.Row).Formula = TextBoxDurCal.Value
Range("J" & ActiveCell.Row).Formula = ComboBoxTypInt.Value
Range("K" & ActiveCell.Row).Formula = TextBoxCauInt.Value
Range("L" & ActiveCell.Row).Formula = TextBoxTraRea.Value
Range("M" & ActiveCell.Row).Formula = ListBoxTypP1.Value
Range("N" & ActiveCell.Row).Formula = ListBoxRefP1.Value
Range("O" & ActiveCell.Row).Formula = ListBoxTypP2.Value
Range("P" & ActiveCell.Row).Formula = ListBoxRefP2.Value
Range("Q" & ActiveCell.Row).Formula = ListBoxTypP3.Value
Range("R" & ActiveCell.Row).Formula = ListBoxRefP3.Value
Range("S" & ActiveCell.Row).Formula = ListBoxTypP4.Value
Range("T" & ActiveCell.Row).Formula = ListBoxRefP4.Value
Range("U" & ActiveCell.Row).Formula = ListBoxTypP5.Value
Range("V" & ActiveCell.Row).Formula = ListBoxRefP5.Value
'TextBoxNumFic.Value = Cells(3, 2).Value + 1

Worksheets("Saisie").Rows(2).Select

End Sub

Private Sub CommandButtonCalDur_Click()

TextBoxDurCal.Value = DateDiff("h", Format(TextBoxDatDeb & " " & TextBoxHeuDeb, "DD-MM-YY HH.mm.ss"), Format(TextBoxDatFin & " " & TextBoxHeuFin, "DD-MM-YY HH.mm.ss"))

End Sub

Private Sub ListBoxTypP1_Click()
If ListBoxTypP1.Text = "Pièces hydrauliques" Then
ListBoxRefP1.RowSource = "Pièce_hydraulique!Pièces_hydrau"
End If
If ListBoxTypP1.Text = "Pièces mécaniques" Then
ListBoxRefP1.RowSource = "Pièce_mécanique!Pièces_méca"
End If
If ListBoxTypP1.Text = "Pièces électriques" Then
ListBoxRefP1.RowSource = "Pièce_électrique!Pièces_élec"
End If
End Sub

Private Sub ListBoxTypP5_Click()
If ListBoxTypP5.Text = "Pièces hydrauliques" Then
ListBoxRefP5.RowSource = "Pièce_hydraulique!Pièces_hydrau"
End If
If ListBoxTypP5.Text = "Pièces mécaniques" Then
ListBoxRefP5.RowSource = "Pièce_mécanique!Pièces_méca"
End If
If ListBoxTypP5.Text = "Pièces électriques" Then
ListBoxRefP5.RowSource = "Pièce_électrique!Pièces_élec"
End If
End Sub

Private Sub ListBoxTypP4_Click()
If ListBoxTypP4.Text = "Pièces hydrauliques" Then
ListBoxRefP4.RowSource = "Pièce_hydraulique!Pièces_hydrau"
End If
If ListBoxTypP4.Text = "Pièces mécaniques" Then
ListBoxRefP4.RowSource = "Pièce_mécanique!Pièces_méca"
End If
If ListBoxTypP4.Text = "Pièces électriques" Then
ListBoxRefP4.RowSource = "Pièce_électrique!Pièces_élec"
End If
End Sub

Private Sub ListBoxTypP3_Click()
If ListBoxTypP3.Text = "Pièces hydrauliques" Then
ListBoxRefP3.RowSource = "Pièce_hydraulique!Pièces_hydrau"
End If
If ListBoxTypP3.Text = "Pièces mécaniques" Then
ListBoxRefP3.RowSource = "Pièce_mécanique!Pièces_méca"
End If
If ListBoxTypP3.Text = "Pièces électriques" Then
ListBoxRefP3.RowSource = "Pièce_électrique!Pièces_élec"
End If
End Sub

Private Sub ListBoxTypP2_Click()
If ListBoxTypP2.Text = "Pièces hydrauliques" Then
ListBoxRefP2.RowSource = "Pièce_hydraulique!Pièces_hydrau"
End If
If ListBoxTypP2.Text = "Pièces mécaniques" Then
ListBoxRefP2.RowSource = "Pièce_mécanique!Pièces_méca"
End If
If ListBoxTypP2.Text = "Pièces électriques" Then
ListBoxRefP2.RowSource = "Pièce_électrique!Pièces_élec"
End If
End Sub

Private Sub TextBoxHeuFin_Change()
If Len(TextBoxHeuFin) 2 Then TextBoxHeuFin TextBoxHeuFin & ":"
End Sub

Private Sub TextBoxHeuDeb_Change()
If Len(TextBoxHeuDeb) 2 Then TextBoxHeuDeb TextBoxHeuDeb & ":"
End Sub

Private Sub UserForm_Initialize()
Calendar1.Value = Now
End Sub