Dim f, RngBD, TblBD(), LigneEnreg
Private Sub CheckBox1_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub Enreg_Change()
End Sub
Private Sub Image1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ComboBox2.AddItem ws.Name
Next
Set f = Feuil1
Set RngBD = f.Range("A3:M" & f.[A65000].End(xlUp).Row)
RngBD.Sort key1:=Application.Index(RngBD, 1, 1) ' Tri alpha
TblBD = RngBD.Value
If f.[A65000].End(xlUp).Row > 1 Then Me.ComboBox1.List = TblBD
B_ajout_Click
End Sub
Private Sub ComboBox1_click()
EnregBD = Me.ComboBox1.ListIndex + 1
LigneEnreg = Me.ComboBox1.ListIndex + RngBD.Row
Me.Enreg = LigneEnreg - 1
If TblBD(EnregBD, 8) = "OUI" Then Me.CheckBox6 = True
If TblBD(EnregBD, 8) = "NON" Then Me.CheckBox6 = False
If TblBD(EnregBD, 8) = "" Then Me.CheckBox6 = False
If TblBD(EnregBD, 9) = "OUI" Then Me.CheckBox3 = True
If TblBD(EnregBD, 9) = "NON" Then Me.CheckBox3 = False
If TblBD(EnregBD, 9) = "" Then Me.CheckBox3 = False
If TblBD(EnregBD, 10) = "OUI" Then Me.CheckBox4 = True
If TblBD(EnregBD, 10) = "NON" Then Me.CheckBox4 = False
If TblBD(EnregBD, 10) = "" Then Me.CheckBox4 = False
If TblBD(EnregBD, 11) = "OUI" Then Me.CheckBox5 = True
If TblBD(EnregBD, 11) = "NON" Then Me.CheckBox5 = False
If TblBD(EnregBD, 11) = "" Then Me.CheckBox5 = False
Me.TextBox1 = TblBD(EnregBD, 1)
Me.TextBox2 = TblBD(EnregBD, 2)
Me.TextBox3 = TblBD(EnregBD, 3)
Me.TextBox4 = TblBD(EnregBD, 4)
Me.TextBox5 = TblBD(EnregBD, 6)
Me.TextBox6 = TblBD(EnregBD, 7)
Me.TextBox8 = TblBD(EnregBD, 12)
Me.Chemin = TblBD(EnregBD, 13)
If Dir(Me.Chemin) <> "" Then
Me.Image1.Picture = LoadPicture(Me.Chemin)
Else
Me.Image1.Picture = LoadPicture
End If
End Sub
Private Sub B_photo_Click()
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If Not nf = False Then
Me.Chemin = nf
Me.Image1.Picture = LoadPicture(nf)
End If
End Sub
Private Sub B_valid_Click()
If Me.TextBox1 <> "" Then
LigneEnreg = Me.Enreg + 1
If Me.CheckBox6.Value = True Then f.Cells(LigneEnreg, 8) = "OUI"
If Me.CheckBox6.Value = False Then f.Cells(LigneEnreg, 8) = "NON"
If Me.CheckBox6.Value = "" Then f.Cells(LigneEnreg, 8) = ""
If Me.CheckBox3.Value = True Then f.Cells(LigneEnreg, 9) = "OUI"
If Me.CheckBox3.Value = False Then f.Cells(LigneEnreg, 9) = "NON"
If Me.CheckBox3.Value = "" Then f.Cells(LigneEnreg, 9) = ""
If Me.CheckBox4.Value = True Then f.Cells(LigneEnreg, 10) = "OUI"
If Me.CheckBox4.Value = False Then f.Cells(LigneEnreg, 10) = "NON"
If Me.CheckBox4.Value = "" Then f.Cells(LigneEnreg, 10) = ""
If Me.CheckBox5.Value = True Then f.Cells(LigneEnreg, 11) = "OUI"
If Me.CheckBox5.Value = False Then f.Cells(LigneEnreg, 11) = "NON"
If Me.CheckBox5.Value = "" Then f.Cells(LigneEnreg, 11) = ""
f.Cells(LigneEnreg, 1) = Me.TextBox1
f.Cells(LigneEnreg, 2) = Me.TextBox2
f.Cells(LigneEnreg, 3) = Me.TextBox3
f.Cells(LigneEnreg, 4) = Me.TextBox4
f.Cells(LigneEnreg, 6) = Me.TextBox5
f.Cells(LigneEnreg, 7) = Me.TextBox6
f.Cells(LigneEnreg, 12) = Me.TextBox8
f.Cells(LigneEnreg, 13) = Me.Chemin
UserForm_Initialize
End If
End Sub
Private Sub B_ajout_Click()
LigneEnreg = f.[A65000].End(xlUp).Row + 1
Me.Enreg = LigneEnreg - 1
raz
Me.ComboBox1 = ""
Me.Image1.Picture = LoadPicture
Me.Chemin = ""
Me.TextBox1.SetFocus
End Sub
Sub raz()
For i = 1 To 6
Me("Textbox" & i) = ""
Next i
Me.CheckBox6 = False
Me.CheckBox3 = False
Me.CheckBox4 = False
Me.CheckBox5 = False
End Sub
Private Sub B_sup_Click()
Enreg = Me.Enreg + 1
If MsgBox("Etes vous sûr de suppimer " & f.Cells(Enreg, 1) & "?", vbYesNo) = vbYes Then
f.Cells(Enreg, 1).Resize(, UBound(TblBD, 2)).Delete Shift:=xlUp
raz
Me.Enreg = ""
UserForm_Initialize
End If
End Sub