[VBA-E]Rowsource variable pour combobox/listbox

Bonjour,

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

Code:

---

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:

---

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 :traine:

Bonjour ippo_master,

Code:

---

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.

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

Code:

---

1 2 3

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

---

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:

---

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

---

Code:

---

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 :(

bonsoir

si j'ai bien compris:

Code:

---

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

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:

---

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.

bonjour

dans ce cas utilise AddItem comme indiqué par Jacques_Jean:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Cell As Range   'Définit une listbox de 2 colonnes ListBox1.ColumnCount = 2   'boucle sur les cellules de la plage B1:B5 For Each Cell In Range("B1:B5") 'Vérifie si la cellule contient le mot "toto" If Cell = "toto" Then 'Ajoute la donnée de la colonne A dans la listbox ListBox1.AddItem Cell.Offset(0, -1) 'Ajoute la donnée de la colonne C dans la listbox ListBox1.List(ListBox1.ListCount - 1, 1) = Cell.Offset(0, 1) End If   Next Cell

---

michel

Un ÉNORME ÉNORME ÉNORME merci à vous 2 :mouarf: