Discussion :

[sharox]

Bonjour a tous !!
Je vient vous voir car j'ai un petit problème
qui me turlupine, pour ceux qui m'on déjà vue, mon projet avance^^ grâce a vous.

Donc je vous explique mon problème :
Avant toute chose j'ai remarqué que il pouvais y a voir que 1 filtre par page, est-ce que l'on peu contourner ceci ?

Ensuite donc j'ai plusieurs tableaux dans une feuille
Dans cette feuilles j'ai mis un bouton de filtre général dont voici sont code :

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
18
19
20
21
22
23
24
25
26
27
Private Sub ToggleButton40_Click()
' -_-_-_-_-_-_ FILTRE GENERAL
Dim actif As Boolean
actif = ToggleButton40.Value
    If actif Then
        With ToggleButton40
            .Caption = "VISION REDUITE +"
            .Font.Size = 15
            .Font.Bold = True
            Dim plage As Range
            Dim xlWs As Worksheet
            Range("B18:B44", "B670:B680").Select
            Selection.AutoFilter
            Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
        End With
    Else
        With ToggleButton40
            .Caption = "VISION GLOBAL -"
            .Font.Size = 15
            .Font.Bold = True
            Range("B18,B670").Select
            Selection.AutoFilter Field:=1
        End With
    End If
    Application.CutCopyMode = False
    Range("O16").Select
End Sub

donc ce bouton met un filtre sur tout mes tableaux a la fois, c'est un peu dangereux mais ca marche ^^

Ensuite j'ai mis une multitude de petit bouton qui servent a réduite les différents tableaux et qui ont un code similaire a celui la :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub ToggleButton1_Click()
' -_-_-_-_-_-_ DIMINUTION 1
Dim actif As Boolean
actif = ToggleButton1.Value
    If actif Then
    'ICI SE SONT LES OPTIONS DU BOUTON QUAND IL EST ENFONCE
        With ToggleButton1
            .BackColor = vbBlack
            .Caption = "+"
            .Font.Size = 15
            .Font.Bold = True
            Range("B18").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.EntireRow.Hidden = True
        End With
    Else
    'ICI SE SONT LES OPTIONS DU BOUTON QUAND IL EST NON-ENFONCE
        With ToggleButton1
            .BackColor = vbBlack
            .Caption = "-"
            .Font.Size = 20
            .Font.Bold = True
            Range("B17").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.EntireRow.Hidden = False
        End With
    End If
    Application.CutCopyMode = False
    Range("O16").Select
End Sub

Et enfaite quand mon premier bouton (celui du filtre) est actif et que j'appuie sur les autres petit (diminution) et bas mes tableaux disparaisse ainsi que les boutons, mais je sais pourquoi.
(c'est a cause des tableaux dynamique, a cause du Ctrl + Shift + fleche du bas)

Mais je voudrait y remédier, et je sais pas du tout comment faire pour que quand j'appuie(j'active) le bouton de diminution, celui du filtre se désactive

[Oliv-]

Salut,
pas sûr d'avoir tout compris ;-)

mais ToggleButton40.enable = false

[sharox]

oui c'est normal que tu es pas tout compris ^^
comme je suis un peu novice en VB je ne nomme pas les choses par leur vrai nom ^^
mais j'ai trouvé ^^ rien de tel que le MsgBox pour te dire ce que tu recherche ^^

moi j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
If ToggleButton40.Value = True Then
                With ToggleButton40
                    .Caption = "VISION GLOBAL -"
                    .Font.Size = 15
                    .Font.Bold = True
                    Range("B18,B670").Select
                    Macro5
                End With

bon ca fait des copier coller un peu de partout mais ca fonctionne ^^
après tout tant que le tableur est beau, le vb les gens s'en foute c'est juste pour moi

Merci quand meme Oliv ^^

Cordialement

[sharox]

bon par contre le VB va être dégelasse
mais bon pour un novice comme moi je pense que ca va le faire !!

Et je t'explique mon problème tu ais quand même envie de comprend
en gros j'ai deux bouton :

Le premier qui met un filtre sur toooouuuuuut mes tableaux
Le deuxième qui réduit le premier tableau (bouton réduction)
(ce sont tout les deux des toogle bouton )

et quand le filtre est actif et que j'appuie sur l'autre bouton, et bah le programme du bouton de réduction réduit des cellules qui ne devrait pas être réduite, enfin c'est a cause du (Ctrl + Shift + flèche du bas) que j'ai fait en macro

Et comme les utilisateurs ne sont pas forcement très futfut, il risque de cliqué plein de fois et en gros de masquer tout le classeur ^^ (utilité 0)
et ce problème ne parvient que quand le filtre est actif donc il me suffi d'enlever le filtre quand ils appuie sur ce bouton..

voila si tu as pas compris (ce qui est probable vu mon explication) pose moi des questions précises, je serait plus a même d'y répondre

Cordialement

[Oliv-]

oui c'est normal que tu es pas tout compris ^^
comme je suis un peu novice en VB je ne nomme pas les choses par leur vrai nom ^^
mais j'ai trouvé ^^ rien de tel que le MsgBox pour te dire ce que tu recherche ^^

non rien de tel que le mode arrêt la fenetre variables et les espions !!

moi j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
If ToggleButton40.Value = True Then
                With ToggleButton40
                    .Caption = "VISION GLOBAL -"
                    .Font.Size = 15
                    .Font.Bold = True
                    Range("B18,B670").Select
                    Macro5
                End With

bon ca fait des copier coller un peu de partout mais ca fonctionne ^^
après tout tant que le tableur est beau, le vb les gens s'en foute c'est juste pour moi

Merci quand meme Oliv ^^

Cordialement

je suppose que ta solution est dans macro5 que tu n'as pas joint ?

[sharox]

pas du tout !!
La solution c'est que j'ai copier une partie du programme du bouton de filtre dans le bouton de rétrécissement

La macro 5 c'est juste

Code :

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

Selection.AutoFilter Field:=1

que j'avais mis dans mon premier post ^^