Rafraichissement des valeurs d'un combobox

[paul87]

bonjour à tous, Bonjour le Forum,
Dans un UF, j'ai une combobox1 qui est "alimentée" par des données situées en Feuil3 ColonneA, avec comme code suivant

Private Sub UserForm_Initialize()
With ThisWorkbook.Worksheets("Feuil3")
   plage = .Range(.Range("A2:A100"), .Range("A500").End(xlUp))
        Me.ComboBox1.List = plage
End With

jusque là ça marche.
mais dans ce même UF (à l'aide d'une textbox/bouton) je souhaite pouvoir mettre à jour cette liste en Feuil3 et avoir un rafraichissement direct de ma combobox...sans avoir à relancer le UF/initialize...
est-ce possible..?
si oui...merci d'avance pour vos conseils..
Paul

 

[mutzik]

Re : Rafraichissement des valeurs d'un combobox

bonjour,
pour ma part, je fais :
Private Sub UserForm_Initialize()
RemplirCombo1
autreSubàLance
EncoreUneAutre
End With

sub RemplirCombo1()
With ThisWorkbook.Worksheets("Feuil3")
plage = .Range(.Range("A2:A100"), .Range("A500").End(xlUp))
Me.ComboBox1.List = plage
end sub
et je relance uniquement la macro RemplirCombo1 quand je sais que j'ai modifié un item

 

[Papou-net]

Re : Rafraichissement des valeurs d'un combobox

Bonjour paul87, mutzik,

Et moi, je fais comme ça :

Private Sub UserForm_Initialize()
MaJListe
End Sub

Sub MaJListe()
Me.ComboBox1.RowSource = "Feuil3!A2:A" & Feuil1.Range("A500").End(xlUp).Row
End Sub

et je rappelle MaJListe n'importe où dans mon code.

(C'est comme mutzik, sauf qu'étant paresseux de nature, je n'écris qu'une seule ligne pour préserver la touche Enter de mon clavier)

Cordialement.

 

[paul87]

Re : Rafraichissement des valeurs d'un combobox

Bonjour
et merci à vous Papou-net et mutzik.
je comprends bien vos propositions...
mais comme je ne suis pas spécialisé en vba,
ou dois-je placer la

Sub MaJListe()
Me.ComboBox1.RowSource = "Feuil3!A2:A" & Feuil1.Range("A500").End(xlUp).Row
End Sub

et par quelle code puis-je l'appeler..?
Merci

 

[paul87]

Re : Rafraichissement des valeurs d'un combobox

Ok, j'ai trouvé.
j'ai mis Sub MaJListe() dans général
et l'appel MaJListe en fin de sub du bouton ajout.
ça marche..
dites moi si c'est correct...?
Merci à vous

 

[Papou-net]

Re : Rafraichissement des valeurs d'un combobox

Ok, j'ai trouvé.
j'ai mis Sub MaJListe() dans général
et l'appel MaJListe en fin de sub du bouton ajout.
ça marche..
dites moi si c'est correct...?
Merci à vous

Oui, c'est bien ce qu'il fallait faire, et la preuve : ça marche !

Bienvenue parmi les utilisateurs de VBA, dont tu découvriras au fur et à mesure toute la puissance cachée.

Cordialement.