XL 2016 MISE A JOUR LISTBOX

[KTM]

Bonjour Chers tous
Jai des listbox qui sont alimentés depuis une feuille.
Mais il se trouve que si changement dans ma feuille je dois fermer et rouvrir mon fichier pour que mes listbox se mettent à jour.
Est ce normal ou comment y remedier? 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 If

 

[Dudu2]

Bonjour,
Il faut que tu sortes la valorisation de ta ListBox dans une fonction séparée, appelée à l'initialisation (comme actuellement) et appellée lors de la modification des cellules concernées de ta feuille à détecter avec Worksheet_Change(), idéalement juste pour la ou les cellules modifiées.

D'ailleurs je ne comprends pas très bien pourquoi tu as plusieurs fois la même cellule pour valoriser différents items de ta ListBox, mais ça c'est ton affaire...

 

[KTM]

Bonjour,
Il faut que tu sortes la valorisation de ta ListBox dans une fonction séparée, appelée à l'initialisation (comme actuellement) et appellée lors de la modification des cellules concernées de ta feuille à détecter avec Worksheet_Change(), idéalement juste pour la ou les cellules modifiées.

D'ailleurs je ne comprends pas très bien pourquoi tu as plusieurs fois la même cellule pour valoriser différents items de ta ListBox, mais ça c'est ton affaire...

Je n'ai rien compris.
Je suis qu'un amateur

 

[Dudu2]

Place ton fichier ici pour y proposer le code.

 

[job75]

Bonjour KTM, Dudu2,

Je n'ai rien compris.

Rassurez-vous, moi non plus et visiblement Dudu2 non plus.

A+