Cacher des lignes par une macro via bouton

Tybo · 25 Mai 2007

Bonjour à toutes et à tous,

j'aimerai que via un bouton, on puisse cacher les lignes 5 à 10 de ma feuille (parce qu'elles contiennent des données utilisées dans les formules mais sans intérêt pour l'utilisateur lambda) et qu'avec ce même bouton on puisse les faire réapparaître.

J'ai testé, sans succès :

Code:

Sub Cache_Liste_Personnes()
    If Range("1").EntireRow.Hidden = True Then
        Range("1, 2, 3, 4, 5, 6, 7, 8, 9, 10").EntireRow.Hidden = False
    Else
        Range("1, 2, 3, 4, 5, 6, 7, 8, 9, 10").EntireRow.Hidden = True
    End If
End Sub

Que faire ???????

wilfried_42 · 25 Mai 2007

Re : Cacher des lignes par une macro via bouton

Bonjour tybo

Sub Cache_Liste_Personnes()
If Range("1").EntireRow.Hidden = True Then
Range("1, 2, 3, 4, 5, 6, 7, 8, 9, 10").EntireRow.Hidden = False
Else
Range("1, 2, 3, 4, 5, 6, 7, 8, 9, 10").EntireRow.Hidden = True
End If
End Sub

essaie cela, sans conviction

Sub Bouton1_QuandClic()
If Range("1:10").EntireRow.Hidden = True Then
Range("1:10").EntireRow.Hidden = False
Else
Range("1:10").EntireRow.Hidden = True
End If
Range("G17").Select
End Sub

Spitnolan08 · 25 Mai 2007

Re : Cacher des lignes par une macro via bouton

Bonjour Tybo, Wilfried🙂
Si j'ai bien compris la solution de Wilfried marche impec à un bémol près😉😛

Code:

Sub Cache_Liste_Personnes()
    If Range([B]"1:1"[/B]).EntireRow.Hidden = True Then
        Range("1:10").EntireRow.Hidden = False
    Else
        Range("1:10").EntireRow.Hidden = True
    End If
End Sub

Cordialement

wilfried_42 · 25 Mai 2007

Re : Cacher des lignes par une macro via bouton

re:

bonjour spitnolan 🙂

merci à toi, je me demande encore d'ou vient ce : Range("G17").select surtout que je n'aime pas les select

Cacher des lignes par une macro via bouton

Tybo

Guest

wilfried_42

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Cacher des lignes par une macro via bouton

Tybo

Guest

wilfried_42

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency