RowSource auto implémenté dans une ListBox et question subsidière

Version imprimable

16/06/2011, 14h33
PaulG2B

RowSource auto implémenté dans une ListBox et question subsidière

Bonjour,

1. J'alimente en données une ListBox avec des données issues d'une feuille de calcul, j'utilise pour cela la commande suivante :

Code:

ListBox1.RowSource = "Feuil1!H2:H8"

Ceci me pose un souci de maintenance car lorsque j'ajoute des données dans ma liste il faut également que j'étende la sélection du RowSource...est-il possible de remplacer par exemple H8 par une fonction qui détecterait la dernière ligne vide de la colonne ?

2. Une fois ma sélection effectuée dans la ListBox je renvoi les données dans une cellule, pour séparer les valeurs j'utilise la fonction suivante :

Code:

[C12] = [C12] & "/" & .List(N)

Mais j'ai remarqué que systématiquement cela me placé un "/" au début de mes données ("/#####/#####) mais pas à la fin (c'est déjà ça ^^). Comment puis-je supprimer ce "/" au début ?

Merci d'avance pour vos réponses, Paul.

Code:

1
2
3
4
5
6
Dim LastLig As Long
 
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "H").End(xlUp).Row
End With
Me.ListBox1.RowSource = "Feuil1!H2:H" & LastLig

Code:

1
2
3
4
5
    If [C12] = "" Then
        [C12] = .List(N)
    Else
        [C12] = [C12] & "/" & .List(N)
    End If

Bonjour mercatog,
Tout d'abord merci de m'avoir répondu, le second code répond parfaitement à mes attentes et je t'en remercie vivement car malgré une soirée de recherche sur le sujet j'étais loin de ces lignes.
Pour le premier code que j'intègre de la manière suivante :
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Initialize() Dim LastLig As Long With Sheets("BaseBL") LastLig = .Cells(.Rows.Count, "H").End(xlUp).Row End With Me.ListBox1.RowSource = "BaseBL!H2:H" & LastLig ' ListBox1.RowSource = "BaseBL!H2:H8" End Sub
La partie bleue remplaçant la partie verte, cela ne fonctionne pas dans mon UserForm mais sans me renvoyer d'erreur.
J'ai peut-être omis une propriété à renseigner dans la ListBox (qui est en MultiSelect), si tu repasses par là n'hésite pas à me corriger.

Merci bien, je poursuis mes investigations vbiennes :mrgreen:

Edit : yep ! en fait ça marche c'était juste un petit souci de refresh pour la prise en compte des modifications.