Bonsoir VB et les amis du forum
code du CB1 du UF1:
Private Sub CommandButton1_Click()
Dim ws2 As Range
Set ws2 = Sheets("Feuil2").[A1]
If CheckBox1 = True Then
ws2 = CheckBox1.Caption
End If
If CheckBox2 = True Then
If ws2 = "" Then
ws2 = CheckBox2.Caption
Else
ws2.Offset(1, 0) = CheckBox2.Caption
End If
End If
If CheckBox3 = True Then
If ws2 = "" Then
ws2 = CheckBox3.Caption
Else
If ws2.Offset(1, 0) = "" Then
ws2.Offset(1, 0) = CheckBox3.Caption
Else
ws2.Offset(2, 0) = CheckBox3.Caption
End If
End If
End If
End Sub
J'espère que celà aboutira à ce que tu souhaites.
Bonne nuit à tous
jacquesderyes