Regrouper des lignes

jopersonne · 11 Mars 2014

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 · 11 Mars 2014

Re : Regrouper des lignes

Bonjour,

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

Code:

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

bonne journée
@+

natorp · 11 Mars 2014

Re : Regrouper des lignes

Bjr Jopersonne et Pierrot

Comme ça ?

Code:

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 · 11 Mars 2014

Re : Regrouper des lignes

Gérard ton code marche, un grand merci.

Pierrot93 merci pour ton poste.

Jopersonne

Regrouper des lignes

jopersonne

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

natorp

XLDnaute Accro

jopersonne

XLDnaute Nouveau

Discussions similaires