Une simple case a coché (Macro)

Bonjour

Je souhaiterais savoir comment faire une case a coché qui me permet de changer le resultat d'une cellule 1 ou 0

je vous envoie le fichier et vous remercie d'avance

neoss

11classeur1.xlsx (11.26 Ko)

Bonsoir,

Tu lis une cellule à ta case à cocher, celle que tu veux, par exemple : H6 et en L6 tu mets la formule : =H6*1

Cordialement.

Bonsoir

Merci pour cette réponse rapide

Maintenant j'aimerais savoir si avec une case a coché on peut faire apparaître ou disparaître un graphique a l'endroit souhaité .

j'envoie le fichier

Ou mieux encore faire suivre un graphique sur un coin de l'ecran tout le long sur une page .

Merci d'avance

15classeur1.xlsx (15.19 Ko)

On peut avec ou sans...

C'est a dire?

car ca serait pour optmisez cela avec un bouton ou une case , On clique ca fait apparaitre un Graph et inversement

Oui on peut !

Pour faire apparaître ou disparaître un objet, il faut d'abord le mettre.

je suis un peu perdu ^^

J'essaye avec une macro du type

Sub test()

If CheckBox1.Value = True Then

ActiveSheet.Shapes("Graphique 2").Visible = True

[p20] = Target

Exit Sub

End If

ActiveSheet.Shapes("Graphique 2").Visible = False

End Sub

j'ai un bug 420 . Et sinon je vois pas ou tu veux en venir:(

Merci de ta patience

Résolu !

Je vous remercie

Tu n'as pas choisi un contrôle ActiveX pour ta CheckBox, ce n'est pas le même type d'objets, et la syntaxe est différente.

Voilà une possibilité :

Sub test()
    Dim vis As Boolean
    With ActiveSheet
        If .Shapes("Check Box 1").ControlFormat.Value = xlOn Then vis = True
        .Shapes("Graphique 2").Visible = vis
    End With
End Sub

NB- Utilise la balise Code dans le post et indente ton code (au bout d'un certain temps je ne lis plus le code non conforme aux normes d'écriture).

Rechercher des sujets similaires à "simple case coche macro"