Afficher un message
Vieux 09/12/2002, 02h13   #14 (permalink)
@+Thierry
Guest
 
Messages: n/a
Par défaut Re: Graphique et regression linéaire sans point abérrants


Bonsoir Vériland et Cyd-cd et le Forum (ou bonjour vu l'heure)

Pour les checkbox c'est simple, elles ne retournent que du Boolean (sauf en cas de "TripleState" mais c'est une autre histoire "Null" ...)

J'ai survolé le fichier, dans ce cas, je pense que l'évènement click peut convenir comme suit :

Private Sub CheckBox1_Click()
If CheckBox1 = True Then Range("C23").Formula = "=C3"
If CheckBox1 = False Then Range("C23").Value = ""
End Sub

Mais juste pour l'info les checkbox ont aussi l'évènement Change (entre autre)
Dans les UserForms par exemple ceci peut-être très interressant :
Private Sub CheckBox1_Change()
CheckBox1.Enabled = False
CheckBox2.Value = True
TextBox1.Enabled = CheckBox2.Value
CommandButton1.show
etc.... 'un ptit click et plein d'action....
End Sub

Et si donc le user click sur le CheckBox il bloque définitivement le checkbox lui-même et agit sur d'autres contrôles... (Peut être utiles dans des formulaires en cascades où l'on ne doit pas permetre au User de revenir en arrière...)

Voilà pour les CheckBox...

VouMfré 500 Lignes...

Bonne Nuit / Bonne Journée (vu l'heure !)
@+Thierry