Discussion :

[esse2016]

Bonjour au forum,

mon problème va vous paraitre simple à vos yeux (et sans doute problème répétitif), mais je n'arrive pas à remplir convenablement ma combobox1 (activeX) sur mal feuille1.

j'ai jonglé avec les événements et je pense que je gère mal ou comprends pas bien les événements. l'aide en ligne ou autre forum ne me donne pas la logique à tenir.

Dans mon cas je souhaite:
-> lorsque je clique sur ma combo, qu'il efface le contenu, remplit les onglets actuels (sauf feuille1)
En somme rafraichir la combobox en fonction des onglets supprimés ou ajouttés

j'ai ceci comme code mais ça fait pas du tout le job . Je ne sais pas si ma demande est claire ?!
j'ai essayé avec les événements "enter" et/ou "Dropbuttonclick"

dans feuil1 j'ai mis ceci

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
 
Sub ComboBox1_Enter()
 
Dim sh As Worksheet
 
ThisWorkbook.Worksheets(1).ComboBox1.Clear
With ThisWorkbook.Worksheets(1).ComboBox1
      For Each sh In Worksheets
        If sh.Name <> "feuil1" Then .AddItem sh.Name
        Next sh
    End With
 
End Sub
 
 
'Private Sub ComboBox1_DropButtonClick()
'Dim sh As Worksheet
'Combobox1.clear
'With ComboBox1
'       For Each sh In Worksheets
'        If sh.Name <> "feuil1" Then .AddItem sh.Name
'        Next sh
'    End With
'End Sub

[umfred]

Dans GotFocus ça semble marcher pas mal.

Edit, avec le seul code dans GotFocus, j'avais un petit bug d'affichage


avec ce code, ça a l'air de fonctionner

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
Private Sub ComboBox1_DropButtonClick()
    ThisWorkbook.Sheets("Feuil1").ComboBox1.ListRows = 5
End Sub
 
Private Sub ComboBox1_GotFocus()
    Dim ws As Worksheet
    With ThisWorkbook.Sheets("Feuil1")
        .ComboBox1.Clear
        DoEvents
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> .Name Then .ComboBox1.AddItem ws.Name
        Next
 
    End With
 
    DoEvents
End Sub

[esse2016]

Bonjour Umfred, merci pour l'aide

j'ai effectué le ComboBox_Gotfocus j'obtiens le bon compromis, par contre je n'ai pas comme vous le bug affichage.
Par contre lorsque j'ai seletionné ma ligne et que je clique sur la feuille on voit que pendant une micro seconde l'affichage change, mais bon je mets sur le compte de EXcel (j'avais déjà des soucis aussi avec checkbox.color)

Ca fait le job en tout cas.

[Philippe Tulliez]

Bonjour,

Dans mon cas je souhaite:
-> lorsque je clique sur ma combo, qu'il efface le contenu, remplit les onglets actuels (sauf feuille1)
En somme rafraichir la combobox en fonction des onglets supprimés ou ajouttés

Si j'ai bien compris votre problème, il y a moyen d'aborder le sujet sous un autre angle.

Sauf si vous supprimez et ajoutez vos feuilles par programmation, une solution simple en créant une procédure dont le job consiste à remplir l'ActiveX (CombobBox), que vous passez en paramètre, du nom de toutes les feuilles du classeur en omettant celui de la feuille active.
Procédure que vous pouvez invoquer au moment où vous sélectionnez la feuille en question.

Avantage, cette procédure peut être utilisée dans un autre contexte (n'importe quelle feuille et/ou un autre ComboBox)

Code à placer dans un module standard ou dans le module de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
Function GetSheetsName(oList As MSForms.ComboBox)
  ' Charge le nom des feuilles du classeur à l'exception de la feuille active
  Dim sh As Worksheet
  With oList
  .Clear
   For Each sh In Worksheets
         If sh.Name <> ActiveSheet.Name Then .AddItem sh.Name
   Next sh
  End With
End Function

Code de la procédure événementielle qui l'invoque

Code :

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

1
2
3
Private Sub Worksheet_Activate()
  GetSheetsName Me.ComboBox1
End Sub