Dim Img
Private Sub Btn_Annuler_Click()
Unload Me
End Sub
Private Sub Btn_Valider_Click()
Sheets("BD").Unprotect Password:="test"
With Sheets("BD")
Dim L As Byte
For L = 1 To 30
If Cbx_MOTIF = "Transfert" Then
Me.Controls("Tbx_IND" & L).Visible = True
Else
Me.Controls("Tbx_IND" & L).Visible = False
End If
Next L
Derlign = .Range("A65000").End(xlUp).Row + 1
.Range("A" & Derlign) = Tbx_Fiche
.Range("B" & Derlign) = Tbx_HEURE
.Range("D" & Derlign) = Cbx_Nom
.Range("E" & Derlign) = Tbx_NUMDOS
.Range("F" & Derlign) = Tbx_Ref
.Range("G" & Derlign) = Tbx_Materiel
.Range("H" & Derlign) = Tbx_NumSerie
.Range("I" & Derlign) = Tbx_Qte
.Range("J" & Derlign) = Tbx_DATEN
.Range("K" & Derlign) = Tbx_DescriptionNC
.Range("L" & Derlign) = Tbx_CauseNC
.Range("O" & Derlign) = Tbx_IND
.Range("Q" & Derlign) = Tbx_DATEN
.Range("C" & Derlign) = Tbx_DATEDEM
.Range("R" & Derlign) = Cbx_MOTIF
If Cbx_Image <> "" Then
.Hyperlinks.Add Anchor:=.Range("L" & Derlign), Address:=Img, TextToDisplay:=Cbx_Image.Text
End If
For i = 2 To 7
If Me.Controls("OptionButton" & i).Value = True Then
Tbx_Temps = Me.Controls("OptionButton" & i).Caption
End If
Next
.Range("M" & Derlign) = Tbx_Temps
End With
Unload Me
Sheets("BD").Protect Password:="test"
End Sub
Private Sub Cbx_Image_Change()
Image1.Picture = LoadPicture("")
If Cbx_Image = "" Then Exit Sub
Img = ActiveWorkbook.Path & "\PJ\" & Cbx_Image
Image1.Picture = LoadPicture(Img)
End Sub
Private Sub Label17_Click()
End Sub
Private Sub Label12_Click()
End Sub
Private Sub Label16_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub Label8_Click()
End Sub
Private Sub OptionButton8_Change()
Tbx_Temps.Enabled = IIf(OptionButton8, 1, 0)
Tbx_Temps.BackColor = IIf(OptionButton8, &H8000000E, &H8000000F)
End Sub
Private Sub OptionButton8_Click()
End Sub
Private Sub UserForm_Initialize()
Me.Cbx_Image.Clear
FichImg = Dir(ActiveWorkbook.Path & "\PJ\*.jpg")
Do While FichImg <> ""
Me.Cbx_Image.AddItem FichImg
FichImg = Dir
Loop
With Sheets("Données")
For Each CelNom In .Range("A2:A" & .Range("A65000").End(xlUp).Row)
Cbx_Nom.AddItem CelNom.Value
Next
With Sheets("Données")
For Each CelNom In .Range("B2:B" & .Range("B65000").End(xlUp).Row)
Cbx_MOTIF.AddItem CelNom.Value
Next
End With
End With
If Sheets("BD").Range("A2") = "" Then
Tbx_Fiche = 1
Else
Tbx_Fiche = Sheets("BD").Range("A65000").End(xlUp) + 1
End If
Tbx_Temps.Enabled = False
Tbx_Temps.BackColor = &H8000000F
Tbx_Fiche.Enabled = False
End Sub
Private Sub UserForm_Activate()
Tbx_DATEDEM.Value = Format(Date, "dd/mm/yyyy")
Tbx_HEURE.Value = Format(Now, "hh:nn:ss")
End Sub
Private Sub Tbx_DATEN_Change()
Dim Valeur As Byte
Tbx_DATEN.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(Tbx_DATEN)
If Valeur = 2 Or Valeur = 5 Then Tbx_DATEN = Tbx_DATEN & "/"
End Sub