Bonjour,
Je débute en VBA et bloque rapidement.
Voici mon problème :
J'ai plusieurs checkbox dans un UserForm. Je souhaite copier les Caption des Checkbox cochées, puis les coller à la suite dans une feuille.
J'ai essayé ceci mais ça ne marche pas correctement :
Sheets("Feuille1").Select
Range("a1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
Loop
If CheckBox1.Value = True Then
ActiveCell.Offset(1, 0) = UserForm.CheckBox1.Caption
End If
If CheckBox2.Value = True Then
ActiveCell.Offset(1, 0) = UserForm.CheckBox2.Caption
End If
ActiveCell.Select
Merci d'avance
Je débute en VBA et bloque rapidement.
Voici mon problème :
J'ai plusieurs checkbox dans un UserForm. Je souhaite copier les Caption des Checkbox cochées, puis les coller à la suite dans une feuille.
J'ai essayé ceci mais ça ne marche pas correctement :
Sheets("Feuille1").Select
Range("a1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
Loop
If CheckBox1.Value = True Then
ActiveCell.Offset(1, 0) = UserForm.CheckBox1.Caption
End If
If CheckBox2.Value = True Then
ActiveCell.Offset(1, 0) = UserForm.CheckBox2.Caption
End If
ActiveCell.Select
Merci d'avance