Pour afficher des lignes

[aldebaran8]

Bonjour à tous,

Je fais appel à vos connaissances car après de multiple essai de mon côté, je ne trouve pas la solution.

J'aimerais afficher les lignes cachées de 6 à 12 quand la condition en C3 est VRAI (en VBA)

Merci par avance pour vos solutions,

Amicalement.

 

[david84]

Re : Pour afficher des lignes

Bonjour,
à tester :

Sub test()
If Range("C3").Text = "VRAI" Then Rows("6:12").EntireRow.Hidden = False
End Sub

A+

 

[aldebaran8]

Re : Pour afficher des lignes

Ne fonctionne pas. 🙁
Petite précision, les lignes doivent s'afficher quand la case à cocher est cochée donc quand la condition est vrai

 

[Efgé]

Re : Pour afficher des lignes

Bonjour aldebaran8, Bonjour david84 🙂,
Avec une vrai ChekBox (contrôle Active X pas formulaire)

Private Sub CheckBox1_Click()
Rows("6:12").Hidden = CheckBox1.Value = False
End Sub

Cordialement

 

[ralph45]

Re : Pour afficher des lignes

Hello le fil,

A tester...

Sub CaseàCocher2()
If Range("C3").Text = "VRAI" Then
    Sheets("Feuil1").Select
    Rows("6:12").Select
    Selection.EntireRow.Hidden = False
    Range("C3").Select
End If
If Range("C3").Text = "FAUX" Then
    Rows("6:12").Select
    Selection.EntireRow.Hidden = True
    Range("C3").Select
End If
End Sub

A plus !

 

[Pierrot93]

Re : Pour afficher des lignes

Bonjour,
Re David,

une autre approche, à utiliser dans le module de la feuille concernée, macro à affecter à l'objet :

Sub test()
Rows("6:12").Hidden = Not Range("C3").Value
End Sub

bon après midi
@+

Edition : bonjour fg🙂, Ralph, un peu en retard moi....

 

[david84]

Re : Pour afficher des lignes

Re, bonjour à tous🙂,

Ne fonctionne pas.

Il est préférable de dire que tu n'arrives pas à faire fonctionner ou adapter le code plutôt que de dire cela (cf.fichier).
A+

 

[aldebaran8]

Re : Pour afficher des lignes

Impeccable Efgé, merci beaucoup
Merci à tous pour vos solutions et bonnes fêtes

PS : il est vrai, david84, que j'aurais dû écrire que je n'arrivais pas à faire fonctionner ou adapter le code... MEA CULPA