Discussion :

[PaulG2B]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

[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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PaulG2B]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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