MAJ d'une listbox dans un userform

[Fabien]

Je me présente je suis apprentis en logistique troisième année, pour une application je voudrais savoir le code VBA qui permet de mettre à jour la listbox en redéfinissant le nom que j'ai affecté à la propriété rowsource pour chaque nouvelle saisie de l'utilisateur.
j'ai penser aussi à essayer de détecter la dernière cellule pleine de ma colonne pour déclarer une plage variable dans le rowsource mais sans succès.
Je suis actuellement dans une impasse, toute aide sera la bienvenue
Merci.

 

[PascalXLD]

Bonjour

pour detecter la dernière ligne de ta colonne tu peux faire

maligne=range('A65536').end(xlup).row

Ensuite tu mets ta variable dans ta rowsource

ou autre methode par additem sans oublier defaire un clear avant pour effacer ta listbox

Bonne soirée

 

[PascalXLD]

Tien je te donne 2 liens des archives qui t'aideront certainement

Lien supprimé

Lien supprimé


Sinon le plus simple tu mets un morceau du fichier en pièce jointe ce sera plus facile

Message édité par: Pascal76, à: 06/04/2005 20:38

 

[ChTi160]

Salut 'Fabien'
bonsoir 'Pascal76'
bonsoir le Forum
j'ai mis ce code pour que la propriété Rowsource soit mise à jour si des données sont rajoutées
Ici la liste ce trouve en feuil3 et le Userform en feuil1

Private Sub UserForm_Initialize()
Dim DerLgn As Long
Dim maplage As Range

With Sheets('Feuil3')
DerLg = .Range('A65536').End(xlUp).Row
Set maplage = .Range('A2:A' & DerLgn)


ListBox1.RowSource = 'Feuil3!' & maplage.Address
ListBox1.ListIndex = 0

End With
End Sub
Amicalement
Jean Marie