Discussion :

[ippo_master]

Bonjour,

Je suis confronté au problème suivant lors de la définition de la rowsource d'un combobox/listbox

Code :

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

Me.ComboBox1.RowSource = ("Feuil1!A1:C4")

Je voudrais définir avec des variables la colonne et la ligne pour la rowsource (une fois ce sera la colonne C, une autre fois, la colonne F, idem pour les lignes)

Merci d'avance

NB: J'avais à moitié résolu le problème (au niveau des lignes) par le moyen suivant :

Code :

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

1
2
3
With ComboBox1
    .AddItem Sheets("Feuil1").Range("A" & i )
End With

Mais je ne sais pas combiner ligne et colonne variable

Oups, ai posté au bon endroit

[Invité]

Bonjour ippo_master,

Code :

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

1
2
3
4
c = 6 'si c'est la colonne "F"
With ComboBox1
    .AddItem Sheets("Feuil1").Range(cells(c, i), cells(c, i))
End With

Je répète 2 fois "cells(c, i) car à ma connaissance, il faut avec cette façon de procéder définir une plage même pour une seule cellule.

[Invité]

Autant pour moi, ici il faut inverser : la ligne en 1er et ensuite la colonne soit

Code :

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

1
2
3
With ComboBox1
    .AddItem Sheets("Feuil1").Range(cells(i, c), cells(i, c))
End With

[ippo_master]

Effectivement cette synthaxe fonctionne et je t'en remercie.
Toutefois, il me reste un problème de taille : mon objectif est d'alimenter une listbox comportant 3 colonnes.
Je voudrais donc retranscrire ceci:

Code :

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

Me.ListBox1.RowSource = ("Feuil1!A1:C3")

Code :

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

1
2
3
4
5
6
 
a = 1 'pour l'exemple
b = 3 'pour l'exemple
With ListBox1
    .AddItem Sheets("Feuil1").Range(Cells(i, a), Cells(i, b))
End With

Avec ça, il me renvoit un joli message d'erreur

[SilkyRoad]

bonsoir

si j'ai bien compris:

Code :

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

1
2
3
4
5
6
7
8
9
Set ws = Worksheets("Feuil1")
 
a = 1 'colonne A
b = 3 'colonne C
 
With ListBox1
    .ColumnCount = (b - a) + 1
    .List() = ws.Range(ws.Cells(1, a), ws.Cells(5, b)).Value
End With

bonne soirée
michel

[ippo_master]

On progresse, on progresse et je vous remercie de votre aide.
Mon problème final est celui-ci :

Echantillon de données:

Colonne A Colonne B Colonne C
N1 Toto Info1
N2 Pas Toto Info2
N3 Toto Info3
N4 Toto Info4
N5 Pas Toto Info5

Ma sélection se base sur l'auteur en colonne B, soit Toto par exemple. Toutes les lignes où figurent Toto en colonne B doivent être recopiées dans ma listbox.
Celle-ci doit contenir les valeurs de la colonne A, B et C de la ligne répondant au critère de recherche "Toto".

Le problème du code ci-dessous, c'est qu'il définit une fois pour toute les valeurs contenues dans la listbox alors que je voudrais ajouter ligne par ligne (ajout si Toto en colonne B)

Code :

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

1
2
3
4
5
6
7
8
Set ws = Worksheets("Feuil1")
 
a = 1 'colonne A
b = 3 'colonne C
 
With ListBox1
    .List() = ws.Range(ws.Cells(1, a), ws.Cells(5, b)).Value
End With

Merci d'avance.