Code vb CheckBox1_Click()".

Bonjour,

La Checkbox est liée à une cellule qui affiche VRAI/FAUX par défaut. Je n'ai pas trouvé de moyen pour modifier ces valeurs VRAI/FAUX par OUI/NON.
Peux-tu masquer cette colonne et faire un test dans ton tableau ?
=SI(H10=VRAI;"OUI";"NON")

Rico

Salut Rico,

j'ai bien pensé faire ce que tu écrit mais ca ne va pas. j'ai pri une cellule vide pour ma checkbox en cachant la cellule. après je fais une fct si dans ma cellule ou je veux oui/non mais ca me decalle d'une ligne vue que je rempli mon tableau par le dessus.

je c pas trop coment faire, le mieu serai de trouvé un code vba qui gér cette conversion

Aurel51,

Et si tu places la cellule liée à la case à cocher complètement à droite de ton tableau, que tu lies ton tableau à cette celulle et que tu masques la colonne complètement à droite ?
Tu es habituée à utiliser Excel ? C'est pas un reproche, juste une question pour pouvoir t'aider

Rico

coco49rico@orange.fr si tu veux que je te reformate ton tableau

slt,

je suis pas un expert excel mais je me débrouille. j'ai fais comme tu m'a dit. j'ai prit une cellule vierge à l'écart de mon tableau que j'ai masqué et qui est lié a ma "Checkbox". ensuite j'ai mis une condition si ton la cellule de mon tableau ou je veux recupéré Oui/Non.

G11=SI(H1=VRAI;"Oui";"Non")

le problème est que j'insert les lignes par le haut du tableau donc ca decale ma formule avec la cellule G11 donc G12. j'arrive pas a figer la formule en G11.

tu m'a donné ton adresse mail pour que je t'envoi le tableau et que tu essai deçu?

Bonjour,

Envoie ton tableau, je verrai ce que je peux faire

Rico

ca y est rico, je t'ai envoyé ca par mail.

merci

Re Salut,

La solution a ton problème :

1/ Modifie la case à cocher en enlevant le champ "control source" (clic droit sur Checkbox1 et enlève la référence à tableau!G11)

2/ Rajoute le petit bout de code (clic droit sur Checkbox1) :
Private Sub CheckBox1_Click()

If CheckBox1 = 0 Then
TextBox7 = "0"
Sheets("tableau").Range("G11").FormulaR1C1 = "NON"
Else: TextBox7 = ""
Sheets("tableau").Range("G11").FormulaR1C1 = "OUI"
End If

End Sub

Et voilà !
Par rapport à ta nouvelle question dans le mail : Qu'est ce que tu veux faire comme graphique ?

Rico

Déjà ca marche. merci Rico.
j'avai pas pensé faire comme ca, bien joué.

je veux faire des graphiques avec le nb d'accidents par an (avec et sans arrêt), les secteurs des accidents en %, le type de blessure...

je pensai faire des histogrammes