Discussion :

[sweetdood]

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 :

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
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.

[Jean-Philippe André]

salut,

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

Code :

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

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

[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

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

[fring]

Bonjour,

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

• Dans un module standard
  

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

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

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

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

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

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

[fring]

Je n'ai pas testé mais à tout hazard essaie en ajoutant dans le module "ThisWorkbook"

Code :

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

1
2
3
Private Sub Workbook_Activate()
    Modif_Feuille
End Sub