Discussion :

[weetoz]

Bonjour à tous,

voici une procédure appelé depuis un module standard:

Code :

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

1
2
3
4
5
6
7
8
 
Sub filtreList()
activeSysEvent
Sheets("Paramètres classeur").Range("A10").Select
Range("T_lstFeuilles[Feuilles]").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy Destination:=Range("T_lst_Feuilles").Item(1, 1)
End Sub

Elle fonctionne très bien et fait ce que j'attends d'elle, à savoir copier les cellules visibles d'une sélection dans un tableau structuré.
Lorsque je veux le faire depuis un formulaire avec un évènement "Change d'une combo box, les sélections ne se font pas, et je n'ai aucune idée du pourquoi...
Voici le code de l'évènement:

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
 
Option Compare Text
Dim groupe, plage As Range
Dim memoUnPassage As Boolean
Private Sub CBox_Groupe_Change()
 
If Not memoUnPassage Then
memoUnPassage = True
    Range("T_lstFeuilles").AutoFilter _
                    Field:=2, Criteria1:=CBox_Groupe.Value, Operator:=xlAnd
End If
Worksheets("Paramètres classeur").Range("A10").Select
Range("T_lstFeuilles[Feuilles]").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy Destination:=Range("T_lst_Feuilles").Item(1, 1)
'filtreList
memoUnPassage = False
End Sub

Qu'est-ce qui pourrait poser problème ?
Merci d'avance pour vos lumière

[Philippe Tulliez]

Bonjour,
Il n'y a aucune raison d'utiliser cette méthode ni Activate même dans un module Standard sauf cas exceptionnel où l'on souhaite forcer la sélection d'une cellule particulière pour l'utilisateur

[weetoz]

Bonjour monsieur Tulliez,

J'ai essayé sans sélection, mais j'ai eu un message qui ressemble à : "Impossible de lire la propriété SpecialCells de la classe Range". voici le 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
 
Option Compare Text
Dim groupe, plage As Range
Dim memoUnPassage As Boolean
Private Sub CBox_Groupe_Change()
 
If Not memoUnPassage Then
memoUnPassage = True
    Range("T_lstFeuilles").AutoFilter _
                    Field:=2, Criteria1:=CBox_Groupe.Value, Operator:=xlAnd
End If
Range("T_lstFeuilles[Feuilles]").SpecialCells(xlCellTypeVisible).Copy _
    Destination:=Range("T_lst_Feuilles").Item(1, 1)
'filtreList
memoUnPassage = False
End Sub

Merci pour votre attention.

[weetoz]

Je dois aussi préciser mon intention, je souhaite pouvoir remplir une ListBox filtré par l'intermédiaire d'une combobox avec des noms de feuilles et lorsque l'on clique dessus, afficher la feuille sélectionné.
Pour cela, les feuilles sont listées dans le tableau "T_lstFeuilles", contenant trois colonnes: Feuilles, Groupe, Année.
La colonne groupe est la colonne sur laquelle le filtre est appliqué selon la valeur de la combo box, la troisième colonne, est pour filtrer sur les années seulement si un groupe en particulier est sélectionné, mais je n'en suis pas encore là...

Le nombre de feuilles dans le classeur est variable et peut être conséquent, d'où l'utilité de proposer une "navigation" plus aisé.
Je précise aussi que chaque feuille est créé selon un modèle contenant quelques "Shapes" servant à exécuter des actions dont une pour créer une feuille selon le modèle, et qu'il ne sera pas compliqué d'y ajouter une input box pour ajouter à quel groupe on veut affecter la nouvelle feuille.

[Philippe Tulliez]

Bonjour,

J'ai essayé sans sélection, mais j'ai eu un message qui ressemble à : "Impossible de lire la propriété SpecialCells de la classe Range"

Je n'ai pas le temps de vérifier votre code mais si la plage que vous référencez n'est pas située dans la feuille active, il est normal que le système se plante.
Il est important de préciser la parentalité des objets que l'on manipule. Voir mon billet sur ce sujet Excel VBA - La parentalité d’un objet

Je dois aussi préciser mon intention, je souhaite pouvoir remplir une ListBox filtré par l'intermédiaire d'une combobox avec des noms de feuilles et lorsque l'on clique dessus, afficher la feuille sélectionné

Vous pouvez dans ce cas, utiliser la méthode Activate de l'objet Worksheet

Voici un exemple ci-dessous

Dans un module standard, je charge le nom des feuilles du classeur à l'exception de la feuille dont la propriété CodeName est shtMenu dans un ListBox nommé ListBox1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Main()
  Dim sh As Worksheet
  With UserForm1
    With .ListBox1
      For Each sh In ThisWorkbook.Worksheets
        If sh.CodeName <> "shtMenu" Then .AddItem sh.Name
      Next
    End With
  .Show
  End With
  Set sh = Nothing
End Sub

Code dans le UserForm

Code :

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

1
2
3
Private Sub ListBox1_Click()
  Worksheets(ListBox1.Value).Activate
End Sub

[weetoz]

Voici le même code avec parentalité, qui me donne la même erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CBox_Groupe_Change()
 
If Not memoUnPassage Then
memoUnPassage = True
    Range("T_lstFeuilles").AutoFilter _
                    Field:=2, Criteria1:=CBox_Groupe.Value, Operator:=xlAnd
End If
 
ThisWorkbook.Worksheets("Paramètres classeur").Range("T_lstFeuilles[Feuilles]").SpecialCells(xlCellTypeVisible).Copy _
    Destination:=ThisWorkbook.Worksheets("Paramètres classeur 2").Range("T_lst_Feuilles").Item(1, 1)
 
memoUnPassage = False
End Sub

Si j'ajoute ceci (Proposé par Pierre Fauconnier dans ce post)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If Not memoUnPassage Then
memoUnPassage = True
    Range("T_lstFeuilles").AutoFilter _
                    Field:=2, Criteria1:=CBox_Groupe.Value, Operator:=xlAnd
End If
 
Debug.Print ThisWorkbook.Worksheets("Paramètres classeur").Range("T_lstFeuilles").SpecialCells(xlCellTypeVisible).Adress
 
ThisWorkbook.Worksheets("Paramètres classeur").Range("T_lstFeuilles[Feuilles]").SpecialCells(xlCellTypeVisible).Copy _
    Destination:=ThisWorkbook.Worksheets("Paramètres classeur 2").Range("T_lst_Feuilles").Item(1, 1)
End Sub

J'ai encore la même erreur, mais cette fois ci sur Debug.Print ThisWorkBook.Worksheets("Paramètres classeur").Range("T_lstFeuilles").SpecialCells(xlCellTypeVisible).Adress
En fait, ce n'est pas la méthode Select qui est le problème, mais la méthode SpecialCells. Pourquoi?

Merci encore.