Discussion: Check Box
Afficher un message
Vieux 28/04/2003, 16h43   #6 (permalink)
Alex
Guest
 
Messages: n/a
Par défaut 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