Bonjour,
je suis entrain de faire un formulaire et je vx stocker des variables concernant les checkbox coché dans un formulaire et les afficher dans des lignes dans un tableau excel en précisant biensur à partir de quelle ligne, voilà mon code:
rivate Sub OK_Click()
Dim Machine1 As String
Dim Mandant1 As String
Dim Mandant2 As String
Dim Mandant3 As String
Dim Mandant4 As String
Dim Mandant5 As String
Dim Mandant6 As String
Dim Mandant7 As String
Dim Mandant8 As String
Dim Mandant9 As String
If CheckBox1.Value = False Then
Machine1 = ""
Else
Machine1 = "DEV"
End If
If CheckBox2.Value = False Then
Mandant1 = ""
Else
Mandant1 = "110"
End If
If CheckBox3 = False Then
Mandant2 = ""
Else
Mandant2 = "111"
End If
If CheckBox3 = False Then
Mandant3 = ""
Else
Mandant3 = "211"
End If
CasesACocher.Hide
Dim listeMachineMandant1 As Variant
listeMachineMandant1 = Array(Machine1, Mandant1, Mandant2, Mandant3)
For i = 0 To 69
Range("A" & i).Value = listeMachineMandant1(i)
Next i
End Sub
