Discussion :

[Novice72]

Bonjour à tous,

J'ai un programme qui me permet de créer des feuilles par catégorie ( que je préfère au filtre ) et qui en plus affiche la catégorie comme nom de feuille.


Voici mon problème :
Je souhaite donc créer une boite de dialogue ( Userform par exemple ) dans lequel je récupère les noms des feuilles ainsi crées et les afficher dans une listBox ( si sélectionnée donc imprimée )

Comment récupérer les noms des feuilles crées afin de les mettre dans autant de cellules d'une autre feuille ( qui me permet de créer la liste ).


Merci d'avance

Novice72

[Philippe Tulliez]

Bonjour,
Il me semble que tu te répètes dans tes questions.
Pour parcourir la collection des feuilles d'un classeur, il suffit d'utiliser la boucle For Each ... In ...
Si toutes feuiles ne doivent pas être reprises dans cette liste, il suffit d'utiliser un If ou un Select Case
Petit exemple rapide

Code :

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

1
2
3
4
5
6
7
Sub t()
 Dim sht As Worksheet, msg As String
 For Each sht In ThisWorkbook.Worksheets
  msg = msg & vbCrLf & sht.Name
 Next
 MsgBox msg
End Sub

Le même exemple qui affiche toutes les feuilles exceptées celle qui se nomme liens

Code :

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

1
2
3
4
5
6
7
8
9
Sub t()
 Dim sht As Worksheet, msg As String
 For Each sht In ThisWorkbook.Worksheets
  If Trim(LCase(sht.Name)) <> "liens" Then
   msg = msg & vbCrLf & sht.Name
  End If
 Next
 MsgBox msg
End Sub

[Pierre Fauconnier]

Salut.

Perso, je ne m'amuserais pas à essayer de créer la liste dans une feuille pour connecter la combobox sur cette liste. J'alimenterais directement la combobox à l'initialisation du userform...

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
  Dim ws As Worksheet
 
  ComboBox1.Clear
  For Each ws In ThisWorkbook.Worksheets
    ComboBox1.AddItem ws.Name
  Next ws
End Sub

[Novice72]

Bonjour à tous et merci à Philippe et à Pierre,

En espérant ne pas me répéter, j'ai résolu une partie de mon problème. En effet, comme mes feuilles étaient créees à l'aide d'une plage de cellules d'une autre feuille, je l'ai réutilisée afin de remplir une listBox ( et non d'une ComboBox comme me le disait Pierre ).
Pour Pierre : L'avantage d'une ListBox est qu'on peut avoir une sélection multiple contrairement à la ComboBox. N'est-ce pas ?

En attendant, je vais maintenant essayer d'adapter vos codes au mien et je reviens vers vous pour dire si mon problème est entièrement résolu ou non.


Encore Merci à tous les 2

Novice72

[Novice72]

Bonjour,
Il me semble que tu te répètes dans tes questions.
Pour parcourir la collection des feuilles d'un classeur, il suffit d'utiliser la boucle For Each ... In ...
Si toutes feuiles ne doivent pas être reprises dans cette liste, il suffit d'utiliser un If ou un Select Case
Petit exemple rapide

Code :

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

1
2
3
4
5
6
7
Sub t()
 Dim sht As Worksheet, msg As String
 For Each sht In ThisWorkbook.Worksheets
  msg = msg & vbCrLf & sht.Name
 Next
 MsgBox msg
End Sub

Le même exemple qui affiche toutes les feuilles exceptées celle qui se nomme liens

Code :

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

1
2
3
4
5
6
7
8
9
Sub t()
 Dim sht As Worksheet, msg As String
 For Each sht In ThisWorkbook.Worksheets
  If Trim(LCase(sht.Name)) <> "liens" Then
   msg = msg & vbCrLf & sht.Name
  End If
 Next
 MsgBox msg
End Sub

Bonjour Philippe,
Je viens juste d'essayer ton 2ème code que je préfère au premier car il permet de n'ouvrir que certaine(s) feuille(s).
J'ai donc remplacé le mot liens par le nom d'une feuille à moi BDD et la boite d'affichage affiche toutes les feuilles existante ( donc "BDD" ainsi que les feuilles cachées mais ça dès que j'ai trouvé à bien sélectionner, je penserai aux feuilles cachées... )

N'y a-t-il pas une erreur ?

Cordialement.

Novice72

[Novice72]

Bonjour Philippe,
Je viens juste d'essayer ton 2ème code que je préfère au premier car il permet de n'ouvrir que certaine(s) feuille(s).
J'ai donc remplacé le mot liens par le nom d'une feuille à moi BDD et la boite d'affichage affiche toutes les feuilles existante ( donc "BDD" ainsi que les feuilles cachées mais ça dès que j'ai trouvé à bien sélectionner, je penserai aux feuilles cachées... )

N'y a-t-il pas une erreur ?

Cordialement.

Novice72

Je viens de regarder pourquoi ça ne marchait pas en plaçant ce code

Code :

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

1
2
3
4
 
 Dim test As Variant
 test = Trim(LCase(sht.Name))
 MsgBox "test = " & test

entre la ligne 3 et 4.

J'ai remarqué que toutes les feuilles affichées étaient en minuscules.
En remplaçant BDD par bdd, maintenant ça fonctionne.


Merci à toi philippe.


Il ne me reste maintenant plus qu'à continuer mon code..... et remplacer la boite d'affichage par du code qui me permettra d'imprimer toutes les feuilles sélectionnées ( je vais essayer de me débrouiller..... ).

Novice72