Actualiser ComboBox module

Version imprimable

Bonjour,

Suite à mon post précédent, j'ai rencontré un autre problème que vous pourrez peut être m'aider à résoudre :

J'ai créé une barre d'outil comportant une combobox qui se remplit automatiquement. Seulement, elle ne s'actualise qu'a l'auto open. Je souhaitais donc qu'elle s'actualise soit en cliquant sur l'ascenseur ou même constamment... enfin qu'elle s'actualise.

Problème : elle n'est pas dans un UserForm mais bien dans un module.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Sub Auto_open() BarreBoutons End Sub Sub BarreBoutons() Dim barre As CommandBar Dim bouton As CommandBarControl On Error Resume Next CommandBars("BarreDeplacement").Delete Set barre = CommandBars.Add(Name:="BarreDeplacement") barre.Visible = True Set Menu = CommandBars("BarreDeplacement").Controls.Add(Type:=msoControlComboBox) For S = 1 To Sheets.Count Menu.AddItem Sheets(S).Name Next S Menu.OnAction = "OutilSelection" Menu.Text = "Selectionner puis choisir" End Sub Sub auto_close() On Error Resume Next ActiveWindow.Visible = False 'Windows(ThisWorkbook.Name).Visible = False End Sub Sub OutilSelection() Dim choix As String Application.ScreenUpdating = False choix = CommandBars("BarreDeplacement").Controls(2).Text Sheets(choix).Select End Sub
En résumé : J'aimerais actualiser cette combobox avec tel ou tel méthode car lorsque j'ajoute une feuille, celle-ci n'est pas prise en compte...

Merci d'avance pour votre temps!

Bonne journée.

04/04/2012, 17h15
Jean-Philippe André
salut,

l'évènement d'ajout de feuille existe sous la forme
Code:

1 2 3 Private Sub Workbook_NewSheet(ByVal Sh As Object) End Sub
05/04/2012, 08h45
sweetdood

Salut jpcheck,

Ca me semble être une solution pas mal lorsque j'ai un ajout de feuilles. Par contre j'ai un petit soucis c'est que, étant donné que je copie le module dans un autre classeur, les noms des feuilles dans la combobox devraient changer.

Et en réalité c'est pas vraiment le cas :aie:

Je sais pas si c'est possible, à l'instar d'une ComboBox dans un UserForm, d'actualiser le contenu d'une ComboBox sur un OnClick ou un MouseOver...?

En tout cas, merci de m'avoir répondu =)

A bientôt

Bonjour,

Pour la mise à jour de la liste en cas de suppression ou d'ajout de feuille, essaie ceci :

Dans un module standard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Dim Barre As CommandBar, Bouton As CommandBarControl, Menu As CommandBarComboBox
 
Sub Auto_open()
    BarreBoutons
End Sub
 
Sub BarreBoutons()
    On Error Resume Next
    CommandBars("BarreDeplacement").Delete
    Set Barre = CommandBars.Add(Name:="BarreDeplacement")
    Barre.Visible = True
 
    Set Menu = Barre.Controls.Add(Type:=msoControlComboBox)
    For S = 1 To Sheets.Count
        Menu.AddItem Sheets(S).Name
    Next S
    Menu.OnAction = "OutilSelection"
    Menu.Text = "Selectionner puis choisir"
End Sub
 
 
Sub auto_close()
   On Error Resume Next
   ActiveWindow.Visible = False
   'Windows(ThisWorkbook.Name).Visible = False
End Sub
 
Sub OutilSelection()
Dim choix As String
  Application.ScreenUpdating = False
  choix = CommandBars("BarreDeplacement").Controls(2).Text
  Sheets(choix).Select
End Sub
 
Sub Modif_Feuille()
    Menu.Clear
    For S = 1 To Sheets.Count
        Menu.AddItem Sheets(S).Name
    Next S
    Menu.OnAction = "OutilSelection"
    Menu.Text = "Selectionner puis choisir"
End Sub

Dans le module ThisWorkbook

Code:

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Modif_Feuille
End Sub

05/04/2012, 11h59
sweetdood

balèze :p ça marche. Sauf erreur de ma part quand j'ai copier/coller le code ligne 31 il faut remplacer par :

Code:

choix = CommandBars("BarreDeplacement").Controls(1).Text

Merci beaucoup Fring =)

Cependant j'ai un autre petit soucis : je copie ce module dans un autre classeur et les noms des feuilles changent entre les 2 classeurs...
Je me demandais si c'était possible lorsque l'on change de classeur de "rafraîchir" (en quelque sorte) la ComboBox pour qu'elle corresponde au bon classeur en temps réél ?

Merci encore pour la solution ci-dessus, ça m'aide déjà beaucoup !

A bientôt
05/04/2012, 12h14
fring
Je n'ai pas testé mais à tout hazard essaie en ajoutant dans le module "ThisWorkbook"
Code:

1 2 3 Private Sub Workbook_Activate() Modif_Feuille End Sub

Dommage j'ai une erreur mais effectivement ça me paraît être une bonne idée...

Voici l'erreur :

Citation:

"Erreur d'exécution '91' :
Variable objet ou variable de bloc With non définie"

Et il me surligne la ligne :
Code:

1 2 3 4 5 6 7 8 Sub Modif_Feuille() Menu.Clear For S = 1 To Sheets.Count Menu.AddItem Sheets(S).Name Next S Menu.OnAction = "OutilSelection" Menu.Text = "Selectionner puis choisir" End Sub
L'erreur est situé sur le module du classeur2 et elle apparaît lorsque je passe du classeur1 au classeur2...

Je continue à chercher,

A bientôt

05/04/2012, 14h11
fring
oui normal...la variable Menu n'est pas initialisée
et comme ceci... ?
Code:

1 2 3 Private Sub Workbook_Activate() BarreBoutons End Sub
05/04/2012, 14h22
sweetdood

Effectivement fallait que je vois un peu plus loin...

Merci beaucoup Fring, ça marche du tonnerre =)

Passe une bonne journée et a+ !