[RESOLU] Alimenter listbox avec range

[Babytroll]

Bonjour tout le monde,

J'ai actuellement un bout de code qui fonctionne bien :

Private Sub CommandButton4_Click()
Dim sh As Worksheet, c As Range
If Trim(TextBox1) = "" Then Exit Sub

For Each sh In ThisWorkbook.Worksheets
Set c = sh.UsedRange.Find(Trim(TextBox1.Text), sh.Cells(1, 1), xlValues, xlWhole)
If Not c Is Nothing Then Me.ListBox2.AddItem sh.Range("E12").Value
Set c = Nothing

Next

End Sub


Le but est de rechercher une valeur (TextBox1) dans tout un classeur et de lister (ListBox2) les valeurs trouvées en "E12", jusque là OK ça marche.

J'aimerai pouvoir lister non pas la "E12" mais la zone "E12 à E25".
J'ai essayé diverses syntaxe, mais impossible... 🙁

Pas de fichier joint, désolé.

Merci pour votre aide.

 

[joss56]

Re : Alimenter listbox avec range

Bonjour,

Sans fichier, peut-être ça :

for j=12 to 25
If Not c Is Nothing Then
Me.ListBox2.AddItem sh.cells(5,j).Value
End If
next j

 

[Babytroll]

Re : Alimenter listbox avec range

Ce n'est même plus de la rapidité !!!

J'ai juste inverser le (5, j) en (j, 5) et ça fonctionne ! Impecc.
Je vais abuser du coup, mais ça me renvoi aussi des cellules vides, un moyen de les enlever ?

Merci encore.

 

[joss56]

Re : Alimenter listbox avec range

Oui, t'as raison (j,5) et non l'inverse...
Comme ça?

For j=12 to 25
If Not c Is Nothing and sh.cells(j,5)<>"" Then
Me.ListBox2.AddItem sh.cells(j,5).Value
End If
next j

 

[Babytroll]

Re : Alimenter listbox avec range

Comment dire...

MERCI !