CheckBox

Bonjour François
Dans ces conditions, logiquement, il vaudrait mieux opter pour un bouton
option.
Exemple à adapter ci-dessous
Cordialement
Pascal

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Range("H3") = "blablabla"
Range("H6").ClearContents
Else
Range("H3").ClearContents
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2 = True Then
Range("H6") = "popopo"
Range("H3").ClearContents
Else
Range("H6").ClearContents
End If
End Sub


"François" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:cd8501c3ba71$45255090$a601280a@phx.gbl...
Bonjour à tous,

Comment faire pour insérer 2 checkBox dans une feuille
excel, sachant que, lorsque la Cbox1 est coché, ,
s'affiche dans la cellule à coté "blablabla" et que le
Cbox2 se grise ??? Et de même, lorsque la Cbox2 est coché,
la Cb1 se grise, et dans la cellule à coté de la CB2
s'affiche "popopo" !!!

Merci pour votre aide.

Cordialement,

François

Bonjour,

Sub Caseàcocher1_QuandClic()
Range("C6").FormulaR1C1 = "wdwbbn"
ActiveSheet.Shapes("Check Box 2").Select
With Selection
.Value = xlMixed
End With
Range("C6").Select
End Sub

Idem pour la 2.
Camille

-----Message d'origine-----
Bonjour à tous,

Comment faire pour insérer 2 checkBox dans une feuille
excel, sachant que, lorsque la Cbox1 est coché, ,
s'affiche dans la cellule à coté "blablabla" et que le
Cbox2 se grise ??? Et de même, lorsque la Cbox2 est
coché,

la Cb1 se grise, et dans la cellule à coté de la CB2
s'affiche "popopo" !!!

Merci pour votre aide.

Cordialement,

François
.