alimenter listbox avec colonne inconnue

[jcdelorient]

Bonjour le forum,
Après une longue absence je reviens vers vous !

J'ai le code suivant :

ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = ("40;900")
j = ListB1.List(ListB1.ListIndex, 0)
With Worksheets(1)Range("A1:GG1")
Set c = .Find(j, LookIn:=xlValues)
If Not c Is Nothing Then
cellul = c.Address
nbval = Application.CountA(Columns(adres))
ListBox1.AddItem
End If
End With

Explications:
je récupère la valeur j dans ListB1
Ensuite je recherche horizontalement cette valeur(elle existe obligatoirement)
Je récupère l'adresse de cette cellule "cellul"
Je compte le nombre de ligne dans la colonne "nbval"
Ce que je n'arrive pas a faire c'est d'alimenter ListBox1 avec les valeurs de cette colonne et de la suivante (a partir de la 2ème ligne sur les 2 colonnes)

Pour moi c'est très limpide mais pour vous ???

Merci de votre aide.

JC

 

[Pierrot93]

Re : alimenter listbox avec colonne inconnue

Bonjour jc

essaye peut être le code ci-dessous, mais non testé car pas de petit fichier joint, et il semblerait que le code donné soit incomplet :

ListBox1.List = Cells(2, c.Column).Resize(Cells(65536, c.Column).End(xlUp).Row - 1, 2).Value

bonne journée
@+

 

[jcdelorient]

Re : alimenter listbox avec colonne inconnue

Bonjour Pierrot,

j'ai essayé ton code mais j'ai un message d'erreur 1004 !
"Erreur définie par l'application ou par l'objet"
je te donne le code complet:

Private Sub Marque_Click()
Dim j, adress, nbval, cellul, x
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = ("40;900")
j = Marque.List(Marque.ListIndex, 0)
With Worksheets("Bases_menu").Range("A1:GG1")
Set c = .Find(j, LookIn:=xlValues)
If Not c Is Nothing Then
cellul = c.Address
adres = c.Column
nbval = Application.CountA(Columns(adres))
ListBox1.List = Cells(2, c.Column).Resize(Cells(65536, c.Column).End(xlUp).Row - 1, 2).Value
End If
End With
End Sub

 

[Pierrot93]

Re : alimenter listbox avec colonne inconnue

Re,

le code ci dessous fonctionne chez moi, nom feuille et plage de cellule à adapter :

Option Explicit
Private Sub UserForm_Initialize()
Dim c As Range
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = ("40;900")
Set c = Sheets("Feuil1").Range("A1:M100").Find(131, LookIn:=xlValues)
If Not c Is Nothing Then
ListBox1.List = Cells(2, c.Column).Resize(Cells(65536, c.Column).End(xlUp).Row - 1, 2).Value
End If
End Sub

@+

 

[jcdelorient]

Re : alimenter listbox avec colonne inconnue

Re,

MAGNIFIQUE !!!!!

Mille mercis

JC