jeromeN95
XLDnaute Impliqué
Bonsoir le forum,
j'ai fait un USF avec 4 questions, (des cases a cocher avec un label).
J'aimerai récuperer la phrase mise en label dans le commentaire de la cellule.
J'ai fait ceci mais j'ai un petit soucci... :
Range("A7").Comment.text text:=CheckBox1 & " " & CheckBox2.Caption & " " & CheckBox3.Caption & " " & CheckBox4.Caption & Chr(10) & ""
For Each CheckBox In Ws.Range("A7").Comment.text
'Si l'USF est coché, on modifier le commentaire en 17
If CheckBox.Value = True Then commenet.text.Value = Range("A7").Comment.text
Next
Il y a 4 cases.
Les valeurs à récuperer sont a mettre en commentaire en A7.
Il me le fait mais pour tout ou rien...
Comment faire?
j'ai fait un USF avec 4 questions, (des cases a cocher avec un label).
J'aimerai récuperer la phrase mise en label dans le commentaire de la cellule.
J'ai fait ceci mais j'ai un petit soucci... :
Range("A7").Comment.text text:=CheckBox1 & " " & CheckBox2.Caption & " " & CheckBox3.Caption & " " & CheckBox4.Caption & Chr(10) & ""
For Each CheckBox In Ws.Range("A7").Comment.text
'Si l'USF est coché, on modifier le commentaire en 17
If CheckBox.Value = True Then commenet.text.Value = Range("A7").Comment.text
Next
Il y a 4 cases.
Les valeurs à récuperer sont a mettre en commentaire en A7.
Il me le fait mais pour tout ou rien...
Comment faire?