Checkbox et VBA

[VB@D]

Bonjour le forum

Voici ma question:

Lorsque je clique sur le bouton feuil1 une fenetre apparait.
Dans cette fenetre il y a trois checkboxs qui porte le nom de mes trois cellules feuil 1

Les cases qui seront cocher devront etre copier en feuil 2

Pour mieux comprendre le probleme voir fichier ci joint

Merci d'@vance

@+

VB@D

 

[jacquesderyes]

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

 

[VB@D]

Bonjour

Merci beaucoup jacquesderyes c'est parfait

@+ sur le forum

VB@D