Dim y As Byte, i As Long, f As Worksheet
Sub UserForm_Initialize()
C1.List = Sheets("Personnel section").Range("A2:BB" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value
C2.List = Array("LTN", "ADJ", "MCH", "SCH", "MDL", "SGT", "BC1", "BCH", "CCH", "BRI", "CPL", "1CL", "SDT")
Set f = Sheets("Personnel section")
End Sub
Private Sub CommandButton3_Click() 'modifier les données
If C1.ListIndex > -1 Then
With f
For y = 2 To 27: .Cells(C1.ListIndex + 2, y) = Me("c" & y).Value: Next y
For y = 28 To 33: .Cells(C1.ListIndex + 2, y) = IIf(Me("c" & y) = True, "Obtenu", "Non Obtenu"): Next y
End With
End If
End Sub
Private Sub C1_Click() 'visualiser une fiche
With f
For y = 2 To 28: Me("C" & y) = C1.List(C1.ListIndex, y - 1): Next y
For y = 28 To 33: Me("c" & y).Value = C1.List(C1.ListIndex, y - 1) = "Obtenu": Next y
End With
End Sub