Bonjour j'ai crée un formulaire de saisie via Excel qui alimente une base de donnée, mon code fonctionne, mais j'aimerai qu'il gère les cases à cocher, de plus les données s'incrémentent à partir d'une sélection, je souhaiterai que ce soit à partir de la première colonne.



Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Valider_Click()
Dim i As Integer
If UserForm1.TextBox1 = "" Or UserForm1.ComboBox1 = "" Or   UserForm1.ComboBox2 = "" Then
    MsgBox "Veuillez saisir tout les champs"
    Else
    i = 2
    Do While Cells(i, 1) <> ""
    Cells(i, 1).Offset(1, 0).Select
    i = i + 1
    Loop
    ActiveCell.Value = UserForm1.TextBox1.Value
    ActiveCell.Offset(0, 1).Value = UserForm1.ComboBox1.Value
    ActiveCell.Offset(0, 2).Value = UserForm1.ComboBox2.Value
    Unload UserForm1
    End If
 
End Sub
 
 
Merci d'avance