Discussion :

[Olivierporcinet]

Bonjour,

J'ai UserForm avec liste déroulante dans laquelle apparaissent les noms des onglets du classeur. "MENU", "DK"

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
Private Sub UserForm_Initialize()
 Call ComboBox1_Initialize
End Sub
 
Private Sub ComboBox1_Change()
  ThisWorkbook.Worksheets(ComboBox1.Value).Activate
End Sub
 
Private Sub ComboBox1_Initialize()
Dim wsh As Worksheet
  ComboBox1.Clear
  For Each wsh In ThisWorkbook.Worksheets
    ComboBox1.AddItem wsh.Name
  Next wsh
End Sub

Comment faire pour :
1° Si l'on rajoute ou supprime des feuilles, la mise à jour se fasse dans la liste déroulante ?

2° Lorque je choisis une feuillle (ex. "MENU") UNIQUEMENT cette feuille apparaisse à l'écran (toues les feuilles doivent toujours être dans la liste déroulante) ?

Merci

[Docmarti]

Pour avoir une liste à jour, tu pourrais ré-initialiser ta liste déroulante chaque fois que l'événement

Code :

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

Workbook_SheetActivate

est déclenché.

[jfontaine]

Bonjour,

1°) la mise à jour se fera lors de l'initialisation de la Userform

2°) c'est ce que fait ton code dans l'évenement ComboBox1_Change

J'ai du mal à cerner ton problème car ton code fait déjà ce que tu souhaites

[Ashireon]

Si tu supprimer ou ajouter une feuille quand tu ouvres ton userform tu auras la liste exacte des feuilles presentes dans le classeur vu que tu scannes Les feuilles pour le mettre dans combobox.
kk chose dans le gout pour la seconde question

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub ComboBox1_Change()
If Combobox1.listindex<>-1 then
	Dim sh as variant
	For each sh in sheets
		sh.visible= false			
	next
	ActiveWorkbook.sheets(combobox1.value).visible = true
        ActiveWorkbook.sheets(combobox1.value).select
End if
 
End Sub

[Olivierporcinet]

Merci, je vais voir tout cela

[Fvandermeulen]

Bonjour à tous,

Je me permets une incursion car masquer toutes les feuilles sauf celle choisie à plusieurs impacts (D'ailleurs, (désolé) Ashireon, ton code ne peut pas fonctionner car il faut au moins une feuille visible)

De plus, ça t'oblige à prévoir le code de suppression par UF pour les mêmes raisons (je veux dire sélectionner la feuille que tu veux supprimer pour la supprimer entrainera une erreur)

Sans quoi, pour gérer la sélection de la feuille et le 'masquage' des autres j'aurais plutôt fait comme ceci (tout le code dans l'UF)

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
Private Sub UserForm_Initialize()
Dim Ws As Worksheet
 
For Each Ws In ActiveWorkbook.Sheets
    Me.ComboBox1.AddItem Ws.Name
Next Ws
 
End Sub
 
Private Sub ComboBox1_change()
Dim Ws As Worksheet
Dim WsSelected As String
 
WsSelected = Me.ComboBox1.Value
Sheets(WsSelected).Visible = xlSheetVisible
 
For Each Ws In ActiveWorkbook.Sheets
    If Ws.Name <> WsSelected Then
        Ws.Visible = xlSheetVeryHidden
    End If
Next Ws
 
End Sub

Dernière remarque, pense à renommer tes UF et objets dans ton UF pour faciliter le code (par exemple, j'aurais renommé la combo Obj_CB_ListFeuil)

A+

[Ashireon]

Merci je ne savais pas qu'une feuille devait obligatoirement être visible pour excel.
On se couche moins bête tous les jours