Listbox

[plumazon]

bonjour,

j'alimente une listbox avec le code suivant:
VCM.LsName.RowSource = 'Daily2!e38:e' & Sheets('Daily2').Cells(38, 5).End(xlDown).Row

Or, il se peut que j'insere des lignes au dessus de la ligne 38.
Comment decaler RowSource aussi??


MERci pour votre precieuse aide

 

[_Thierry]

Bonjour Plumazon, le Forum

En clair tu souhaites avoir une plage à géométrie variable, tant vers le Haut que vers le Bas ?

Essaies plutôt 'AddItem' dans ce cas, ce sera plus 'maléable'...

Option Explicit


Private Sub UserForm_Initialize()
Dim Haut As Integer, Bas As Long
Dim x As Integer

With Sheets('Daily2')
    Haut = .Range('E38').End(xlUp).Row
    Bas = .Range('E38').End(xlDown).Row
End With
If Bas = 65536 Then Bas = 38

For x = Haut To Bas
    If Not Cells(x, 5) = Empty Then
        Me.ListBox1.AddItem Cells(x, 5)
    End If
Next

End Sub

Bon Dimanche
[ol]@+Thierry[/ol]

 

[plumazon]

...Merci thierry!! c la classe..