Case à cocher à faire disparaitre

Martin -  
Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   -
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

6 réponses

  1. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 477
     
    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 If
    End Sub

    0
  2. ThelastAutarch Messages postés 2 Statut Membre
     
    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 !
    0
  3. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 477
     
    Bonjour,
    Merci de respecter mon pseudo : Le Pingou !
    Je donnerai suite lorsque Martin se manifestera !
    Désolé.
    0
  4. ThelastAutarch Messages postés 2 Statut Membre
     
    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.
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 477
     
    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()

    0
  7. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 477
     
    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

    0