Changer un checkbox

Bonsoir tout le monde

svp comment faire pour que lorsque je coche par exemple checkbox1 s'affichera dans la cellule A2 du Feuil1 le signe vert de vrai et si je ne la coche pas bien sur s'affichera le signe rouge faux .. les signes vert et rouges je veux expliquer sont comme celles qui sont dans l'image :

merci beaucoup pour l'aide

cordialement

MARTI

Bonsoir,

Modifie le code comme suivant pour le CheckBox1 par exemple :

Private Sub CheckBox1_Click() 'N°1
    If CheckBox1.Value = True Then 'Si coché ...
        With Range("A2")
            .Value = "OUI"
            .Interior.Color = vbGreen
        End With
    Else 'Si non coché ...
        With Range("A2")
            .Value = "NON"
            .Interior.Color = vbRed
        End With
    End If
End Sub

Bonsoir,

un essai de réponse...

@ bientôt

LouReeD

Bonsoir RAJA

Merci beaucoup pour votre fichier

Merci aussi pour votre formidable code avec des couleurs vert et rouge vraiment magnifique

Simplement svp si vous pouvez m'aider a finir ce fichier par changement de couleur vert et rouge par les deux signes vrai et faux comme j'ai expliqué dans l'image

Merci 1000 fois pour l'aide

Cordialement

MARTI

Bonsoir looReeD

Woooowww ... c'est magnifique .. c'est exactement ce que je veux .. simplement le petit truc de signe faux "X" ..je ne sais pas comment le faire et sera formidablement resolu

Merci 1000 fois pour l'aide

Cordialement

MARTI

Bonjour,

entrez dans la formule, mettre le curseur sur le X l'effacer, puis insérez le caractère spécial du faux, je n'ai pas pu le faire car je ne l'ai pas trouvé chez moi dans Wingdings....

@ bientôt

LouReeD

Bonjour LooReeD

Merci beaucoup pour votre aide

J'ai essayé de faire mais malheureusement j'ai pas pu

Je vais essaye encore

Merci une autre fois pour votre excellente suggestion

Cordialement

MARTI

Bonsoir,

le hic est que je n'ai pas ces caractère sur mon ordi...

Par contre vous vous les avez, et vous pouvez connaître le code associé dans la fenêtre d'insertion de caractères spéciaux, il se trouve en bas à gauche à coté du nom de la police. Regardez les deux codes de la police qu'il vous faut et modifier la formule en A1 comme ci dessous :

=SI(C1=VRAI;CAR(80);CAR(81))

mettez la cellule en format de police avec Wingdings

Ensuite il faut modifier la mise en forme conditionnelle de la cellule en modifiant également la formule :

pour le vert : =ET(A1=CAR(80))

pour le rouge : =ET(A1=CAR(81))

Attention 80 est OK 81 faut regarder

@ bientôt

LouReeD

Bonsoir LooReeD

Merci pour votre aide aussi pour vos codes et explications

J'ai trouvé la bonne solution .. j'ai rien fais simplement j'ai changé dans ta jolie formule au hasard le "X" par "V" ..et ça marche tre tres bien

merci beaucoup LooReeD

cordialement

MARTI

Content pour vous

@ bientôt

LouReeD