Discussion :

[Alex.d]

Bonjour,

Je suis débutant en vba sur excel et je tente de créer un code vba qui me permet de cacher des lignes au complet.

J'utilise présentement le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub Masque2()
Liste = Array("13:15")
  For n = 0 To UBound(Liste)
    If Rows(Liste(n)).Hidden = True Then
      Rows(Liste(n)).Hidden = False
    Else
      Rows(Liste(n)).Hidden = True
    End If
  Next n
End Sub

par contre, ce code m'est problématique, car je ne peux pas rajouter de ligne dans mon table parce qu'il décale le reste de mes boutons (qui sont nombreux).

J'aimerais donc créer un bouton effectuant le même type d'opération, mais qui permet de (cacher et faire apparaitre) une plage de donnée que j'ai préalablement nommée "Masque2".

J'aimerais savoir si vous auriez une piste de solution pour m'aider.

Merci! beaucoup!
Alex

[Philippe Tulliez]

Bonjour,

par contre, ce code m'est problématique, car je ne peux pas rajouter de ligne dans mon table parce qu'il décale le reste de mes boutons (qui sont nombreux).

Il faut modifier la propriété des boutons. Sans VBA cocher Ne pas déplacer ou dimensionner avec les cellules
Par VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes("Button 1").Placement = xlFreeFloating

J'aimerais donc créer un bouton effectuant le même type d'opération, mais qui permet de (cacher et faire apparaitre) une plage de donnée que j'ai préalablement nommée "Masque2".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Dim liste As String
 With Range("masque2")
  liste = .Row & ":" & .Row + .Rows.Count - 1
 End With
 Rows(liste).Hidden = Not (Rows(liste).Hidden)

[Alex.d]

Merci beaucoup!

Alex!