D
Davys
Guest
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
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