Re: Check Box
re thierry, forum,
j'ai réussi à trouver quelque chose me satisfaisant. C'est du type:
If CheckBox1.Value = True Then
Range("A1").Value = CheckBox1.Caption
Else
Range("A1").Value = ""
End If
If CheckBox1.Value = True Then
ActiveSheet.Cells(1, 2).Formula = "=d1+d2+d3+d4+d5"
Else
ActiveSheet.Cells(1, 2).Formula = "0"
End If
cependant, c'est là qu'un problème surgit.Je parviens à supprimer les cellules vides(je sélectionne le checkbox1 et 3, la ligne 2 est vide, je la supprime).
Préalablement, j'ai défini dans une autre cellule une formule:
A1/A3 qui correspond à Checkbox1/Checkbox3. 0r, si je n'ai pas sélectionné le checkbox2, la ligne 2 est supprimée, et la valeur qui aurait du se trouver dans A3 passe dans A2, rendant caduque ma formule....
ce que je voudrais, c'est attacher ma formule à mon checkbox et non à mon tableau excel.
encore merci pour votre aide (mention spéciale pour Thierry),
Alex
|