Lignes selectionneés dans listbox

[carole30]

bonsoir à tous

j'ai un userform avec listbox
en saisissant un nombre en feuil 1, je voudrais que ma listbox s'alimente avec toutes les lignes portant ce numero dans ma base

j'ai pompé ça pour selectionner mes lignes dans ma base :

Sub SelectCellulesValeurDeterminee()
LaValeur = Range("D2").Value
sheets("base").Range("A1").Select
For Each cll In ActiveCell.CurrentRegion
If cll.Value = LaValeur Then Plg = Plg & cll.Row() & ":" & cll.Row() & ","
Next cll
If Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Select
End Sub

mais je n'arrive pas à alimenter ma listbox à l'ouverture ! tous mes codes sont des echecs
alors si quelqu'un à la solution ?
merci d'avance

 

[carole30]

Re : Lignes selectionneés dans listbox

juste une derniere question :

si je veux afficher toutes 4 colonnes dans ma listbox

ex : 4 colonnes au lieu de 2

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4 ( au lieu de 2 )
lavaleur = Sheets("base").Range("a1").Value
Set plg = Union(Range(Range("b4"), Range("b4").End(xlDown)), Range(Range("d4"), Range("d4").End(xlDown)))
i = 0
For Each cll In plg
If InStr(CStr(cll), lavaleur) <> 0 Then i = i + 1
Next
ReDim plage(i, 4)
i = 0
For Each cll In plg
If InStr(CStr(cll), lavaleur) <> 0 Then
i = i + 1
If cll.Column = 4 Then
plage(i, 1) = cll.Offset(0, -1)
plage(i, 2) = cll.Offset(0, 3)
plage(i, 3) = cll.Offset(0, 2)
plage(i, 4) = cll.Offset(0, 4)

Else
plage(i, 1) = cll.Offset(0, -3)
plage(i, 2) = cll.Offset(0, 1)
plage(i, 3) = cll.Offset(0, -2)
plage(i, 4) = cll.Offset(0, -4)


End If
ListBox1.List = plage
End If
Next cll
End Sub

ça ne marche pas

et quand je veux transferer le contenu sur feuil1 avec bouton " valider " sur mon userform2 idem ca coince

Private Sub CommandButton1_Click()
With ListBox1
Sheets("Feuil1").Range("a1") = .List
End With
End Sub

merci

 

[skoobi]

Re : Lignes selectionneés dans listbox

juste une derniere question :

si je veux afficher toutes 4 colonnes dans ma listbox

ex : 4 colonnes au lieu de 2

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4 ( au lieu de 2 )
lavaleur = Sheets("base").Range("a1").Value
Set plg = Union(Range(Range("b4"), Range("b4").End(xlDown)), Range(Range("d4"), Range("d4").End(xlDown)))
i = 0
For Each cll In plg
If InStr(CStr(cll), lavaleur) <> 0 Then i = i + 1
Next
ReDim plage(i, 4)
i = 0
For Each cll In plg
If InStr(CStr(cll), lavaleur) <> 0 Then
i = i + 1
If cll.Column = 2 Then
plage(i, 1) = cll.Offset(0, -1)
plage(i, 2) = cll.Offset(0, 3)
plage(i, 3) = cll.Offset(0, 2)
plage(i, 4) = cll.Offset(0, 1)

Else
plage(i, 1) = cll.Offset(0, -3)
plage(i, 2) = cll.Offset(0, 1)
plage(i, 3) = cll.Offset(0, -2)
plage(i, 4) = cll.Offset(0, -1)


End If
ListBox1.List = plage
End If
Next cll
End Sub

ça ne marche pas

Private Sub CommandButton1_Click()
With ListBox1
Sheets("Feuil1").Range("a1") = .List
End With
End Sub

merci

Re bonjour,
les correctifs à apporter en gras🙂


Désolé pour ta 2eme question, j'ai plus le temps🙁