macro pour masquer des lignes

[zumye]

bonsoir

est il possible d'avoir un programme vba que j'associerai a un bouton de: pouvoir masquer des lignes. le programme doit me demander à partir de quel ligne je voudrai masquer et finirai tjs à la ligne 67. ou bien je clique sur mon bouton et celui attend que je clique sur le numero de ligne ensuite tout se masquerai jusqu'a la ligne 67.

merci

[bhbh]

Bonsoir,
avec le code suivant, en double cliquant sur A1, tu démasques toutes les lignes, et double cliquant sur une cellule entre A2 et A65, tu masques les lignes, de la ligne suivante à la ligne 67. A coller dans le code de la feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Cells.EntireRow.Hidden = False
ElseIf Target.Column = 1 And Target.Row > 1 And Target.Row < 66 Then
Range(Cells(Target.Row + 1, 1), Cells(67, 1)).EntireRow.Hidden = True
Cancel = True
End If
End Sub

[zumye]

merci c'est excelent

[zumye]

mais peut on aussi a la suite de ce programme faire la même chose mais pouvoir masquer de 68 à 116
merci

[bhbh]

Re-,
essaie en rajoutant les deux lignes en rouge :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Cells.EntireRow.Hidden = False
ElseIf Target.Column = 1 And Target.Row > 1 And Target.Row < 66 Then
Range(Cells(Target.Row + 1, 1), Cells(67, 1)).EntireRow.Hidden = True
ElseIf Target.Column = 1 And Target.Row > 67 And Target.Row < 114 Then
Range(Cells(Target.Row + 1, 1), Cells(115, 1)).EntireRow.Hidden = True
Cancel = True
End If
End Sub

plutôt :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Cells.EntireRow.Hidden = False: Cancel = True
ElseIf Target.Column = 1 And Target.Row > 1 And Target.Row < 66 Then
Range(Cells(Target.Row + 1, 1), Cells(67, 1)).EntireRow.Hidden = True: Cancel = True
ElseIf Target.Column = 1 And Target.Row > 67 And Target.Row < 114 Then
Range(Cells(Target.Row + 1, 1), Cells(115, 1)).EntireRow.Hidden = True: Cancel = True
End If
End Sub

[zumye]

merci ca marche tres bien