XL 2016 Afficher des Lignes en fonction d'une checkbox

grecooll · 21 Avril 2021

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.

job75 · 21 Avril 2021

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+

sylvanu · 21 Avril 2021

Bonjour Grecooll,
Simplement avec :

Code:

Sub Caseàcocher1_Clic()
    If Rows("3:5").Hidden = False Then Rows("3:5").Hidden = True Else Rows("3:5").Hidden = False
End Sub

job75 · 21 Avril 2021

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+

Phil69970 · 21 Avril 2021

Bonjour @grecooll , Sylvain
Edit : Bonjour Job

Une autre manière de faire.....

@Phil69970

job75 · 21 Avril 2021

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.

grecooll · 21 Avril 2021

job75 à dit:
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+

Bonjour,
Ca marche nickel merci beaucoup

grecooll · 21 Avril 2021

Phil69970 à dit:
Bonjour @grecooll , Sylvain
Edit : Bonjour Job

Une autre manière de faire.....

@Phil69970

Merci Phil69970

XL 2016 Afficher des Lignes en fonction d'une checkbox

grecooll

XLDnaute Nouveau

Pièces jointes

job75

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

grecooll

XLDnaute Nouveau

grecooll

XLDnaute Nouveau

Discussions similaires