Discussion :

[muzard]

Bonjour,

J'ai un document excel dans lequel j'ai placé un bouton bascule pour afficher/masquer certaines lignes.

J'ai trouvé une macro qui fonctionne bien pour une seule ligne :

Code :

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

1
2
3
4
5
6
7
8
Private Sub ToggleButton1_Click()
Dim Msg
 
  Msg = Array("Masquer les lignes", "Démasquer les lignes")
 
  Me.ToggleButton1.Caption = Msg(Abs(Me.ToggleButton1.Value))
  Rows("2:2").Hidden = Me.ToggleButton1.Value
End Sub

En fait, je voudrais l'adapter pour qu'il puisse afficher/masquer les lignes de la feuille contenant un mot précis, "test" par exemple.
Mais sans succès pour le moment...

Quelqu'un pourrait-il me donner un petit coup de main ?

Merci par avance.

Bonne journée.

Muzard

[mfoxy]

Bonjour ,

Fais a la va vite sans tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Private Sub ToggleButton1_Click()
 
 If ToggleButton1 = True Then
 
  With Worksheets("Sheet1") ' a modifié nom feuille
     With .Range("A1:A" & .Range("B65536").End(xlUp).Row) ' a modifié ta colonne
           .AutoFilter field:=1, Criteria1:="<>test" ' a modifié ta valeur a exclure
     End With
  End With
 
 Else
    If Worksheets("Sheet1").AutoFilterMode = True Then  Worksheets("Sheet1").AutoFilterMode = False
 
 End If
End Sub

[muzard]

Merci.

Je ne comprends pas comment adapté la ligne

Code :

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

1
2
 
With .Range("A1:A" & .Range("B65536").End(xlUp).Row) ' a modifié ta colonne

Merci

[mfoxy]

Juste modifié le A qui représente la lettre de ta colonne ou se trouve ta donnée cible

Code :

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

1
2
With .Range("A1:A" & .Range("A65536").End(xlUp).Row) ' a modifié ta colonne

[muzard]

Parfait, c'est exactement ce que je voulais.
Un grand merci.

[Philippe Tulliez]

Bonjour,
Attention que depuis la version 2007 les lignes contiennent plus de 65536 lignes.
Il est donc préférable d'utiliser Rows.count

Code :

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

With .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)

ou

Code :

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

With .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)

[muzard]

Modification apportée.
Merci.