Case à cocher à faire disparaitre Fermé

Question

Bonjour, 

Je suis débutant en VBA. J'ai excel 365

Ma question toute bête (j'ai déjà regardé sur la forum mais je n'y arrive décidément pas)

Voilà le fichier en PJ. Il y a une case à cocher.

Je veux que si la cellule à gauche de la case à cocher est vide (enfin, vide au sens de "n'affiche rien", même s'il y a une formule dedans), la case à cocher n'apparaisse pas. 

Merci infiniment

https://e.pcloud.link/publink/show?code=XZ7a20Z0dHfW20EpH5NrOjD5WjpvV0pTvxy

Le Pingou · Answer

Bonjour,
Juste au passage pour pouvoir rendre invisible la case à cocher il faut utiliser  le contrôle ActiveX à la place du contrôle de formulaire. Et la si la cellule est vide alors vous définissez la propriété sur Visible=False.
Exemple de code si cellule est en [C6]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = "$C$6" And Target = "" Then    If Target = "" Then        CheckBox1.Visible = False    Else        CheckBox1.Visible = tre    End IfEnd Sub

ThelastAutarch · Answer

Bonjour Le Pingouin,

Je pense que le mieux est de vous montrer comment j'ai suivi vos recommandations :

Etape 1 : 


Etape 2 : 

Etape 3 : Copier / coller puis enregistrement (AM510 étant la cellule visée). 



Etape 4 : lancement de la macro :



Où ai-je merdé ?

Merci pour votre patience !

Le Pingou · Answer

Bonjour,
Merci de respecter mon pseudo : Le Pingou !
Je donnerai suite lorsque  Martin se manifestera !
Désolé.

ThelastAutarch · Answer

Bonjour Le Pingou,

Je suis Martin, j'ai dû ouvrir un compte pour poster des images :-)

Je vous prie de m'excuser pour la faute sur votre pseudo :-(

Merci beaucoup.

Le Pingou · Answer

Bonjour,
Merci du retour, pas de problème.
Je vais construire un classeur selon vos images  et vous donne réponse après-midi.
Note. ce n'est pas le code proposé, vous avez ajouté une commande incorrect Private Sub CheckBox1_Click()

Le Pingou · Answer

Bonjour,
J'ai modifier le code pour qu'il travaille sur les cellules [AM510 à AM514] avec 5 [CheckBox]
Je vous laisse la découverte.
Le classeur : https://www.cjoint.com/c/KHdmguMQT2n

Case à cocher à faire disparaitre

6 réponses

Discussions similaires

Newsletters