Checkbox

[Davys]

Bonjour à tous,

Je voudrais s'avoir comment faire pour qu'une checkbox de la boite à outils Contrôles ajouté sur une feuille de calcul affiche un resultat (selon true ou false)dans la cellule ou elle est citué ex:" si la valeur de chexkbox1=true cela affiche un X sinon rien"
Voici le modéle que j'ai trouvé mais le résultat ne s'affiche que dans un MsgBox

Sub CheckBoxes1()
'CheckBoxes de la boite à outils Contrôles sur une feuille de calcul (ActiveX)
Dim oleObj As OLEObject
For Each oleObj In ActiveSheet.OLEObjects
If TypeOf oleObj.Object Is MSForms.CheckBox Then
If oleObj.Object.Value Then
MsgBox oleObj.Name

Milles merci par avance pour vôtre aide

Davys

 

[wally]

Bonjour Davys et le forum,

Essaye ceci, en remplaçant A1 par la cellule dans laquelle le résultat doit s'afficher :

Sub CheckBoxes1()
'CheckBoxes de la boite à outils Contrôles sur une feuille de calcul (ActiveX)
Dim oleObj As OLEObject
For Each oleObj In ActiveSheet.OLEObjects
If TypeOf oleObj.Object Is MSForms.CheckBox Then
If oleObj.Object.Value Then
ActiveSheet.Range("A1") = "X"
Else
ActiveSheet.Range("A1") = ""
End If
'... suite du code


Slts

wally

 

[Davys]

Bonjour Wally et le forum,

Merci pour ta réponse, mais le faite que j'ai plusieurs checkbox sur ma
feuille un nombre invariable trés précisément:
une ligne = un checkbox et le résultat sur la même ligne serait mieux

merci encore par avance por vôtre aide

Davys