Actualiser listbox
K
Bonjour Chers tous
J'ai des listbox qui sont alimentés depuis une feuille.
Mais il se trouve que si changement dans ma feuille et retour au Userform mes listbox ne se mettent pas systématiquement à jour. je dois fermer et rouvrir mon fichier pour que mes listbox se mettent à jour.
Est ce normal ou comment y remédier? Merci
Voici mon code
Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0
ListBox6 = ""
ListBox7 = ""
ListBox8 = ""
ListBox9 = ""
ListBox10 = ""
ListBox6.List = Sheets("Sites").[b3].Resize(50).Value
ListBox7.List = Sheets("Sites").[c3].Resize(50).Value
ListBox8.List = Sheets("Sites").[c3].Resize(50).Value
ListBox9.List = Sheets("Sites").[b3].Resize(50).Value
ListBox10.List = Sheets("Sites").[c3].Resize(50).Value
If Sheets("Sites").Range("H1").Value = 0 Then
ListBox6.Locked = True
ListBox7.Locked = True
ListBox8.Locked = True
ListBox9.Locked = True
ListBox10.Locked = True
Else
ListBox6.Locked = False
ListBox7.Locked = False
ListBox8.Locked = False
ListBox9.Locked = False
ListBox10.Locked = False
End IfBonjour Ktm le forum
et le fichier il est ou? avec les explications dedans et le mode d'emploi stp
a+
Papou
K