Table des matières

[clautu]

Bonjour, J'utilise présentement une liste déroulante avec une combobox pour avoir accès rapidement à mes feuilles. Le problème est que mes feuille ne sont pas fixe ,la majorité temporaires. C'est à dire que j'en ajoute et j'en supprime régulièrement. Donc la liste de référence pour la "listfillrange" doit constament changer. Y-a-t-il moyen que cette liste ce mette à jour pour que quand je clic sur ma liste déroulante, il n'apparaisse que les factures que j'ai vraiment?
Je travaille avec :
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
End Sub

eu une plage de noms de fiches en a3:a100
et le listfillrange qui y correspond.

Merci !!!

 

[Mytå]

Re : Table des matières

Salut Clautu

Une façon de faire

Private Sub ComboBox1_Click()
  Sheets(ComboBox1.Value).Select
End Sub
 
Private Sub ComboBox1_DropButtonClick()
 
Dim Feuille
 
With ComboBox1
  .Clear
  For Each Feuille In ActiveWorkbook.Sheets
    .AddItem Feuille.Name
  Next Feuille
End With
 
End Sub