Bonjour,
j'ai 4 check box et j'aimerai récupérer les réponses de l'utilisateur
par exemple, ce que j'aimerais, ce serait que si la case est cochée, le
caption soit copié dans une cellule spécifié...
Est ce possible??
Merci d'avance..
Private Sub CheckBox1_Change() With ActiveSheet If .[A1] = "" Then .[A1].Value = CheckBox1.Caption Else .[A1] = "" End With End Sub
AV
CAP2
Salut,
je ne sais pas si tu peux avoir ou pas plusieurs cases à cocher cochées en même temps ou non, donc j'affine pas trop, mais la ligne de code principale pour affecter le caption d'un checkbox à une cellule (A1 sur mon exemple) si elle est cochée est (par exemple) :
If CheckBox1 = True Then [A1] = CheckBox1.Caption End if
A adpter à ton cas...
Ca marche ?
CAP2
Salut,
je ne sais pas si tu peux avoir ou pas plusieurs cases à cocher cochées en
même temps ou non, donc j'affine pas trop, mais la ligne de code principale
pour affecter le caption d'un checkbox à une cellule (A1 sur mon exemple) si
elle est cochée est (par exemple) :
If CheckBox1 = True Then
[A1] = CheckBox1.Caption
End if
je ne sais pas si tu peux avoir ou pas plusieurs cases à cocher cochées en même temps ou non, donc j'affine pas trop, mais la ligne de code principale pour affecter le caption d'un checkbox à une cellule (A1 sur mon exemple) si elle est cochée est (par exemple) :
If CheckBox1 = True Then [A1] = CheckBox1.Caption End if
