Range.Select ne fonctionne pas depuis une procédure de formulaire

Bonjour à tous,

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

Code:

---

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:

---

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 :D

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

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:

---

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.

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.

Bonjour,

Citation:

---

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

Citation:

---

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:

---

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:

---

1 2 3

Private Sub ListBox1_Click() Worksheets(ListBox1.Value).Activate End Sub

---

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

Code:

---

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:

---

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.

J'ai fini par comprendre, à côté de mon tableau de référencement de feuille avec leur groupe associé, j'avais aussi mon tableau Groupe qui alimentait la combo box, donc à priori quand je filtrait le tableau de liste de feuille, je rendais les données du tableau Groupe invisible. Cela créé une erreur sur un tableau A alors que le problème se situe plutôt sur le tableau B. C'est bizarre, mais c'est comme ça!
Il a suffit de mettre le tableau B sur des lignes non utilisées par le tableau A, au dessus tant qu'à faire ;)