Case à cocher - Modification valeur VRAI/FAUX

Bonjour,

Je ne parviens pas (depuis des heures... ) à modifier la valeur attribuer à la case à cocher lorsqu'elle est cochée.

En effet, à la place de VRAI quand celle-ci est cochée, je souhaiterais attribuer un chiffre.

A contrario, à la place de FAUX, je souhaiterais attribuer 0.

L'objectif de ce formulaire est d'attribuer un point en fonction de la case cochée.

Merci par avance pour votre aide !

Ci-joint le fichier :

Bonjour,

La case à cocher est tombée du fichier en cours de transfert.

ric

Bonjour toutes et tous

coucou Ric

Idem,

un début ci-joint

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then
    Sheets("Feuil1").Range("e4") = "X"
    CheckBox1.Caption = "VRAI"
    Else
        Sheets("Feuil1").Range("e4") = " "
        CheckBox1.Caption = "FAUX"
    End If
End Sub

crdlt,

André

Bonjour à tous,

une case à cocher ne peut te retourner que VRAI/FAUX.

Vu que VRAI=1 et FAUX=0, à toi de le transformer en numérique avec par exemple :

=--B2

ou

=B2*1

donnent 0 ou 1

et tu peux mettre le poids que tu veux : =B2*5

eric

ric a écrit :

Bonjour,

La case à cocher est tombée du fichier en cours de transfert.

ric

Au temps pour moi, j'ai rafraîchi mon fichier joint avec la case à cocher

Andre13 a écrit :

Bonjour toutes et tous

coucou Ric

Idem,

un début ci-joint

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then
    Sheets("Feuil1").Range("e4") = "X"
    CheckBox1.Caption = "VRAI"
    Else
        Sheets("Feuil1").Range("e4") = " "
        CheckBox1.Caption = "FAUX"
    End If
End Sub

crdlt,

André

Merci pour votre retour !

Je reçois un message d'erreur, j'ai sûrement dû mal fait quelque chose...

Re,

j'ai utilisé les Contrôles Active X des cases à cocher

Quel est le message d'erreur en cliquant sur Déboguer (ok ==>Erreur 424 objet requis)

Tu es sur un MAC d'ou l’erreur j'pense

par contre l'idée est de suivre celle de Ric

Bonjour à tous,

Peut-être à l'aide d'une cellule intermédiaire...

En F4 ... =SI(E4=VRAI;33;0)

Ou une valeur lue dans une cellule ...

En F4 ... =SI(E4=VRAI;G4;0)

ric

Andre13 a écrit :

Re,

j'ai utilisé les Contrôles Active X des cases à cocher

Quel est le message d'erreur en cliquant sur Déboguer (ok ==>Erreur 424 objet requis)

Tu es sur un MAC d'ou l’erreur j'pense

par contre l'idée est de suivre celle de Ric

Voici le message d'erreur qui apparaît quand je clique sur Déboguer (j'ai créé une 2ème case à cocher pour réessayer).

ric a écrit :

Bonjour à tous,

Peut-être à l'aide d'une cellule intermédiaire...

En F4 ... =SI(E4=VRAI;33;0)

Ou une valeur lue dans une cellule ...

En F4 ... =SI(E4=VRAI;G4;0)

ric

Je pense que je vais opter pour cette solution pour plus de simplicité

Merci à tous pour votre aide !

Vous avez libéré ma soirée !

Je vais opter pour la solution de @Ric !

Bonne soirée à tous !

Bonjour à tous,

La cellule, où l'affichage de Vrai ou Faux s'effectue, peut être en dehors du plan de travail ... ou être dans une ligne ou une colonne masquée.

Ou encore, mettre l'affichage de la police en blanc.

ric

ric a écrit :

Bonjour à tous,

La cellule, où l'affichage de Vrai ou Faux s'effectue, peut être en dehors du plan de travail ... ou être dans une ligne ou une colonne masquée.

Ou encore, mettre l'affichage de la police en blanc.

ric

Tout à fait, j'ai opté pour la colonne masquée.

L'objectif était d'automatiser un cahier des charges comportant un scoring et la solution fait le job !

DelphineAnh a écrit :

Andre13 a écrit :

Re,

j'ai utilisé les Contrôles Active X des cases à cocher

Quel est le message d'erreur en cliquant sur Déboguer (ok ==>Erreur 424 objet requis)

Tu es sur un MAC d'ou l’erreur j'pense

par contre l'idée est de suivre celle de Ric

Voici le message d'erreur qui apparaît quand je clique sur Déboguer (j'ai créé une 2ème case à cocher pour réessayer).

Capture d’écran 2020-03-05 à 20.21.26.jpg

@DelphineAnh ==> E5 et non E4 pour la seconde case à cocher

merci à Ric

bonne fin de soirée

Je vois que j'avais ma cape d'invisibilité...

Voir https://forum.excel-pratique.com/viewtopic.php?p=844525#p844525

eric

eriiic a écrit :

Je vois que j'avais ma cape d'invisibilité...

Voir https://forum.excel-pratique.com/viewtopic.php?p=844525#p844525

eric

Ta cape fonctionnait plutôt bien

Effectivement je n'avais pas bien étudié la proposition, cette solution fonctionne aussi bien mais ne me permettait pas de mettre des conditions.

En tout cas, merci pour le coup de main !

Je ne vois pas en quoi tu ne pourrais mettre ce que tu veux en complément de la formule, y compris des conditions ?

Le but était surtout de te montrer qu'un booléen (vrai/faux) est un numérique (1/0), et en tant que tel utilisable dans un calcul (et accessoirement dans des conditions...)

eric