Case à cocher à faire disparaitre
Martin
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 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
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
A voir également:
- Supprimer case à cocher excel
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Supprimer page word - Guide
- Fichier impossible à supprimer - Guide
- Word et excel gratuit - Guide
6 réponses
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]
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
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 !
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 !
Bonjour,
Merci de respecter mon pseudo : Le Pingou !
Je donnerai suite lorsque Martin se manifestera !
Désolé.
Merci de respecter mon pseudo : Le Pingou !
Je donnerai suite lorsque Martin se manifestera !
Désolé.
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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()
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
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