Masquer case à cocher avec lignes

Bonjour

Je cherche à masquer certaines lignes (10:14), mais les cases à cocher présentes à cet emplacement ne se masquent pas (2 cases à chocher).

j'ai fais ce code là, mais ça marche pas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Rows("10:14").Hidden = True Then

case_à_cocher1.Visible = False

case_à_cocher2.Visible = False

Else

case_à_cocher1.Visible = True

case_à_cocher2.Visible = True

End If

End Sub

55a1.xlsm (18.23 Ko)

soleil75, le forum,

Il y a deux types de cases à cocher dans une feuille Excel :

cases à cocher de Contrôles de formulaire

cases à cocher de Contrôles ActiveX

Tu as utilisé des cases à cocher de Contrôles de formulaire; il faut donc que tu lies chacune à une cellule.

Bouton de droite de la souris sur une case à cocher, Format de contrôle, onglet Contrôle, Cellule liée

Supposons que l'on lie la première à D12, on peut écrire :

If range("D12").Value = True Then range("D12").Value = False et la case à cocher passe de coché à décoché

ou de cette façon :

If Cells(12, 4).Value = True Then Cells(12, 4).Value = False

LaCéline

merci pour votre réponse, mais je cherche à ce que les cases à cocher se masquent au fur et à mesure des lignes .

je masque les lignes et les cases restes affichées

soleil75, le forum,

Désolé, mais je ne trouve pas comment masquer les cases à cocher de Contrôles de formulaire.

Par contre, il est aisé de masquer les cases à cocher de Contrôles ActiveX, lesquelles n'ont pas besoin d'être liées à une cellule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Rows("10:14").Hidden = True Then
CheckBox1.Visible = False
CheckBox2.Visible = False
Else
CheckBox1.Visible = True
CheckBox2.Visible = True
End If
End Sub

LaCéline

soleil75, le forum,

J'ai enfin trouvé comment faire.

Par contre, comme le code est dans "Worksheet_SelectionChange", il faut changer de cellule pour que le code s'active.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Rows("10:14").Hidden = True Then
    ActiveSheet.Shapes("Case à cocher 1").Visible = False
    ActiveSheet.Shapes("Case à cocher 2").Visible = False
Else
    ActiveSheet.Shapes("Case à cocher 1").Visible = True
    ActiveSheet.Shapes("Case à cocher 2").Visible = True
End If
End Sub

LaCéline

Merci infiniment

le code est très bien pensé, mais je dois activé une cellule (sélectionner une cellule) pour que la manipulation s'active. je voudrais utiliser ça dans un questionnaire. exp fichier joint (ligne 24 à 27)

soleil75, le forum,

Fonctionnel pour la question "Appartenance à un écosystème?"

Les macros sont dans la feuille même (éditeur VBE)

LaCéline

Excellent, c'est exactement ce que je cherche

Merci beaucop

je vous souaite une très bonne journée

je reviens vers vous encore une fois,

svp, il me reste le cas suivant:

si la case automobile (cellule B27) est cochée je veux que les lignes 33, 34 et 35 s'affichent avec leurs cases, sinon (case décoché) je veux que ces lignes restent masquées et cases aussi.

merci infiniment

PJ : questionnaire

soleil75, le forum,

Voir si ça convient.

J'ai lié la case à cocher Automobile à la cellule B27 pour avoir l'action.

LaCéline

Le forum,

Le message de Torao09 est inadmissible.

Torao09 est un gros Troll pas fin du tout.

EDIT ADMIN : le message de Torao09 était une publicité déguisée, ça n'avait rien de personnel, c'était juste pour spammer son lien

LaCéline

c'est exactement ça

Je sais pas quoi vous dire

Merci infiniment pour votre aide et pour le temps que vous m'avez consacré

Merci mille fois

soleil75,

LaCéline

Merci beaucoup

Mais je c pas pq quand j'ouvre et je ferme plusieurs fois le fichier les cases en rouge se désordonnent

Merci infiniment de votre aide

soleil75,

Ce phénomène ne se produit pas sur ma machine.

LaCéline

Bonjour

moi si

Je c pas pourquoi, peut être que si je change le nom du fichier ou si je protège le fichier

Même parfois les cases disparaissent

Bonjour,

j ai deux versions d'excel 2007 et 2010, chez moi à la maison je travaille sur 2007 et au travail je suis sur le 2010. peut être qu il y a une incompatibilité entre les deux versions

soleil75, le forum,

Théoriquement, entre les versions 2007 et 2010, il ne devrait pas y avoir de problème.

Le phénomène d'objets qui se déplacent ou disparaissent se produit-il sur les deux machines ?

LaCéline

sur le 2010

je suis entrain d'essayer , j'ai changer les cases avec excel 2010, j'ai liée les celllules...le problème persiste

les cases se déplacent. ce qui est bizare c'est seulement les cases automobile et cuir, je vous donne un exemple en fichier joint

soleil75, le forum,

Ici, sur Excel 2016, le fichier fonctionne bien.

Si ce n'est que sur la version 2010, peut-être qu'une réparation de Excel 2010 (Office 2010) est nécessaire. Car, je ne crois pas que ce soit le fichier lui-même qui soit en cause.

https://support.office.com/fr-fr/article/R%C3%A9parer-une-application-Office-7821d4b6-7c1d-4205-aa0e-a6b40c5bb88b

Bon courage.

LaCéline

Rechercher des sujets similaires à "masquer case cocher lignes"