Private Sub CommandButton1_Click()
Dim I As Integer 'déclare la variable I (Incrément)
Dim T As String 'déclare la variable T (Texte)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
' vérification de la saisie champ1
If Me.TextBox1.Text = "" Then
MsgBox "Vous saisir le champ 1"
Me.TextBox1.SetFocus
Exit Sub
End If
' vérification de la saisie champ1
If Me.TextBox2.Text = "" Then
MsgBox "Vous saisir le champ 2"
Me.TextBox2.SetFocus
Exit Sub
End If
'ENREGISTREMENT CHAMP 1 -------------------------
Set DEST = Sheets("bdd data").Range("A65536").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
DEST.Value = TextBox1 ' Enregistrement du champ 1
'ENREGISTREMENT LIST A --------------------------
For I = 0 To Me.Comsprint1.ListCount - 1 'boucle sur tous les éléments de la listbox "Comsprint1"
'définit le texte T
If Me.Comsprint1.Selected(I) = True Then T = IIf(T = "", "- " & Me.Comsprint1.List(I), T & Chr(10) & "- " & Me.Comsprint1.List(I))
Next I 'prochain élément de la boucle
DEST.Offset(0, 1).Value = T ' Enregistrement tu texte T
T = "" 'réinitialise la variable T
'ENREGISTREMENT LIST B --------------------------
For I = 0 To Me.Comsprint2.ListCount - 1 'boucle sur tous les éléments de la listbox "Comsprint2"
'définit le texte T
If Me.Comsprint2.Selected(I) = True Then T = IIf(T = "", "- " & Me.Comsprint2.List(I), T & Chr(10) & "- " & Me.Comsprint2.List(I))
Next I 'prochain élément de la boucle
DEST.Offset(0, 2).Value = T ' Enregistrement tu texte T
T = "" 'réinitialise la variable T
'ENREGISTREMENT CHAMP 2 -------------------------
Set DEST = Sheets("bdd data").Range("A65536").End(xlUp).Offset(0, 3) 'définit la cellule de destination DEST
DEST.Value = TextBox2 ' Enregistrement du champ 1
End Sub