Faire apparaitre une case à cocher si cellule non vide Résolu/Fermé

Question

Bonjour,


je cherches à écrire une macro qui me permettrait d'afficher une case à cocher uniquement si la cellule à sa gauche n'est pas vide. Je ne sais pas si c'est possible mais bon.



Merci !

Mike-31 · Answer

Bonsoir,

tes case à cocher sont bien des cases de la barre formulaire, pas des activex CheckBox

 et cela concerne combien de contrôles (de cases à cocher)
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Thmoney-team · Answer

Oui, se sont ceux dans l'onglet développeur sous l'option contrôle de formulaire. Pour ce qui est du nombre, je dirais une vingtaine. 


Merci !

Mike-31 · Answer

Re, il est possible d'écrire un code plus technique, mais certainement plus difficile à adapter. en supposant que ta colonne de saisie est le colonne B et que sur la ligne 3 tu crées une case à cocher nommée Case à cocher 3 (mais tu peux les renommer à ta guise la ligne de code serait If Target.Address(0, 0) = "B3" And Target <> "" Then Shapes("Case à cocher 3").Visible = True ' If Target.Address(0, 0) = "B3" And Target = "" Then Shapes("Case à cocher 3").Visible = False si dessous un exemple pour gérer les cellules B3, B4, B5 et B6 pour des cases à cocher nommées Case à cocher 3, Case à cocher 4, Case à cocher 5 et Case à cocher 6 ce code est à placer dans les propriétés feuille (clic droit sur l'onglet de la feuille concernée/Visualiser le code Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address(0, 0) = "B3" And Target <> "" Then Shapes("Case à cocher 3").Visible = True ' If Target.Address(0, 0) = "B3" And Target = "" Then Shapes("Case à cocher 3").Visible = False If Target.Address(0, 0) = "B4" And Target <> "" Then Shapes("Case à cocher 4").Visible = True ' If Target.Address(0, 0) = "B4" And Target = "" Then Shapes("Case à cocher 4").Visible = False If Target.Address(0, 0) = "B5" And Target <> "" Then Shapes("Case à cocher 5").Visible = True ' If Target.Address(0, 0) = "B5" And Target = "" Then Shapes("Case à cocher 5").Visible = False If Target.Address(0, 0) = "B6" And Target <> "" Then Shapes("Case à cocher 6").Visible = True ' If Target.Address(0, 0) = "B6" And Target = "" Then Shapes("Case à cocher 6").Visible = False End Sub A+ Mike-31 Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

il faut commencer par créer tes cases à cocher et repérer leur noms ou les nommer ensuite tu colle ce code dans les propriétés de ta feuille et tu affectes dans le code une case à cocher à une référence de cellule

Thmoney-team · Answer

Lorsque je ferme la fenêtre du vba, les cases à cocher ne disparaisse. Es ce que je dois les effacer ou ma formule est mal écrite ?

 Voici mon classeur : https://www.cjoint.com/?3JjsoZ5uZPI



Merci !

Mike-31 · Answer

Re,

plusieur erreur, pour commencer ta première case à cocher n'est pas Case à cocher 1, mais la Case à cocher 274, le nom de la case s'affiche dans la barre d'adresse en haut à gauche de ta feuille lorsque tu fais un clic droit sur la case.

ensuite tu utilise la syntaxe 
Private Sub Worksheet_Activate()

ce qui ne va pas avec le code fait pour la syntaxe
Private Sub Worksheet_Change(ByVal Target As Range) 

alors que veux tu faire, que la case s'affiche ou se masque lorsque tu interviens colonne F ou faut il faire une boucle pour contrôler chaque cellule de la colonne F et agir en conséquence lorsque tu actives la feuille ou lancer la procédure avec un bouton

Thmoney-team · Answer

Wow, merci beaucoup ! Sa fonctionne parfaitement ! 



Bonne journee

Mike-31 · Answer

Re,

Si tes attentes sont satisfaites passe le statut de la discussion en résolu, ou confirme le moi que je le fasse pour toi

swande · Answer

Bonjour, 

J'ai sensiblement besoin de la même macro, mais j'ai une variante différente. 
Je m'explique: 
Cette macro fonctionne très bien en temps normal (cad que si j'entre manuellement dans la cellule cible B3 "1" la case à cocher apparaît et que si j'entre manuellement "0" dans la cellule B3, la case à cocher disparaît). Cependant, ma cellule B3 contient une formule "si" qui envoie comme réponse "1" ou "0" et pour une raison que j'ignore cette formule ne fait pas fonctionner la macro, malgré le fait que la formule renvoie le résultat 1 si vrai et 0 si faux.

Auriez-vous une autre solution à proposer?

Merci,

swande · Answer

voici un exemple de ce que j'essaie de faire

Mike-31 · Answer

Re,

Oui mais à part que tu n'as pas joint ton fichier, clic sur ce lien, puis sur parcourir pour sélectionner ton fichier, sur créer le lien et coller dans une réponse le lien généré
https://www.cjoint.com/

Mike-31 · Answer

Re,

Si je comprends bien ta demande, essaye avec ce code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address(0, 0) = "C3" And Target = 1 Then Shapes("Case à cocher 1").Visible = True '
If Target.Address(0, 0) = "C3" And Target <> 1 Then Shapes("Case à cocher 1").Visible = False
End Sub
 
si ce n'est pas ce que tu cherches, explique tes attentes

Mike-31 · Answer

Re,

ton code ne peut fonctionner parce que l'action Worksheet_Change(ByVal Target As Range) qui se fait sur la cellule C3, C5 comme D5 n'est le résultat d'une formule, pas de l'action Change

Mike-31 · Answer

RE,

ce n'as rien à voir avec le code, Ctrl et Z correspond à Annuler dernière action et Ctrl et Y correspond à rétablir dernière action
encore une fois le code VBA n'a rien à voir avec ce problème redémarre ton ordi voir

Mike-31 · Answer

Re,

Modifie le code comme cela voir
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C3]) Is Nothing Then
If [C5] <> "" Then Shapes("Case à cocher 1").Visible = True  '
If [C5] = "" Then Shapes("Case à cocher 1").Visible = False
End If
End Sub

Faire apparaitre une case à cocher si cellule non vide

15 réponses

Discussions similaires