Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Afficher des Lignes en fonction d'une checkbox

grecooll

XLDnaute Nouveau
Bonjour à tous et à toutes,
J'aimerai savoir comment afficher des lignes en fonction de la coche d'une checkbox.
Dans mon exemple (simple) ci-joint, j'aimerai que les lignes 3;4;5 s'affichent quand ma checkbox est coché et qu'elle se masque quand la checkbox ne l'est pas.
J'ai bien essayé d'adapter des lignes de code VBA mais ce fut sans succès (je ne suis pas forcément un expert).
Merci d'avance pour vos réponses,
Bien Cordialement.
 

Pièces jointes

  • Exemple2.xlsx
    11.5 KB · Affichages: 9
Solution
Bonjour grecoll, sylvanu,

La macro affectée à la case à cocher :
VB:
Sub Afficher_Masquer()
With Feuil1 'CodeName à adapter
    .Rows("3:5").Hidden = .Shapes("Case à cocher 1").ControlFormat.Value <> 1
End With
End Sub
A+

job75

XLDnaute Barbatruc
Bonjour grecoll, sylvanu,

La macro affectée à la case à cocher :
VB:
Sub Afficher_Masquer()
With Feuil1 'CodeName à adapter
    .Rows("3:5").Hidden = .Shapes("Case à cocher 1").ControlFormat.Value <> 1
End With
End Sub
A+
 

Pièces jointes

  • Exemple2(1).xlsm
    18 KB · Affichages: 6

job75

XLDnaute Barbatruc
Fichier (2) avec modification du texte de la case à cocher :
VB:
Sub Afficher_Masquer()
With Feuil1.Shapes("Case à cocher 1") 'à adapter
    .Parent.Rows("3:5").Hidden = .ControlFormat.Value <> 1
    .TextFrame.Characters.Text = "Lignes 3 à 5 " & IIf(.ControlFormat.Value = 1, "affichées", "masquées")
End With
End Sub
Bonjour Phil69970.
 

Pièces jointes

  • Exemple2(2).xlsm
    19.1 KB · Affichages: 6

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…