Regrouper des lignes

[jopersonne]

Bonjour à tous.

Pour regrouper des colonnes j'utilse ce code:

Private Sub CommandButton1_Click()
If Range("C1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
Range("C1, D1, E1, F1, G1, H1").EntireColumn.Hidden = False ' je les montre
Else
Range("C1, D1, E1, F1, G1, H1").EntireColumn.Hidden = True ' je les cache
End If

End Sub

Maintenant je souhaiterais avoir un bouton sur ma feuille pour regrouper les lignes de 6 à 21.

Comment construire mon code.

merci pour vos réponses et bonne journée.

 

[Pierrot93]

Re : Regrouper des lignes

Bonjour,

regarde ceci, sans plus de détails.... A voir...

Option Explicit
Sub test()
Rows(6).Resize(16).Hidden = Not Rows(6).Hidden
End Sub

bonne journée
@+

 

[natorp]

Re : Regrouper des lignes

Bjr Jopersonne et Pierrot

Comme ça ?

Private Sub CommandButton2_Click()
If Range("A6").EntireRow.Hidden = True Then ' La colonne est deja cachée
Range("A6:A21").EntireRow.Hidden = False ' je les montre
Else
Range("A6:A21").EntireRow.Hidden = True ' je les cache
End If

End Sub

Cordialement, Gérard

 

[jopersonne]

Re : Regrouper des lignes

Gérard ton code marche, un grand merci.

Pierrot93 merci pour ton poste.

Jopersonne