MAJ d'une listbox dans un userform

Fabien · 6 Avril 2005

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 · 6 Avril 2005

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 · 6 Avril 2005

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 · 6 Avril 2005

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

MAJ d'une listbox dans un userform

Fabien

Guest

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires