Plage de donnée variable dans rowsource

Bonjour,

Je rencontre un probléme avec la propriété rowsource d'une listbox en VBA.
J'ai une feuille sur Excel où certaines lignes sont masquées, je réalise un test sur ces lignes pour trouver la première non masquée, et j'aimerai afficher cette ligne dans la listbox.

J'ai essayé comme ça :

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("bienslocation").Select   ligne = 2 Do While Rows(ligne).Hidden = True ligne = ligne + 1 Loop   Me.ListeAnnonce.RowSource = Range("A" & ligne & ":E" & ligne)

---

Ça me dit toujours incompatibilité de type.
J'ai essayé de déclarer ligne comme integer, string, variant, aucun ne résout le probléme.

J'ai également essayé de remplacer .rowsource par .list, mais dans ce cas, ça me dit "Permission refusée".

Quelqu'un aurait une solution ?

Bonjour,

C'est normal, "RowSource" attend un String et non un Range. Si tu veux récupérer les valeurs d'une ligne, il te faut les mettre en colonne avec la fonction "Transpose" :

Code:

---

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

Private Sub UserForm_Click()   Dim Ligne As Integer   Ligne = 2   Do While Rows(Ligne).Hidden = True   Ligne = Ligne + 1   Loop   Me.ListeAnnonce.List = Application.Transpose(Range("A" & Ligne & ":E" & Ligne))   End Sub

---

Hervé.

Bonjour Hervé

Avec votre solution j'ai toujours "Permission refusée".
Et en remplacant .list par .rowsource, et j'ai toujours "Incompatibilité de type".

Bonjour,

Citation:

---

Avec votre solution j'ai toujours "Permission refusée".

---

C'est bizarre, chez moi ça marche ?

Code:

---

1 2	Me.ListeAnnonce.List = Application.Transpose(Range("A" & Ligne & ":E" & Ligne))

---

Si tu veux utiliser RowSource il te faut faire :

Code:

---

1 2	Me.ListeAnnonce.RowSource = Range("A" & Ligne & ":E" & Ligne).Address

---

mais dans ce cas, tu n'aura que la valeur de la première cellule. Sinon, il y avec "AddItem" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub UserForm_Click()   Dim Ligne As Integer Dim I As Integer   Ligne = 2   Do While Rows(Ligne).Hidden = True   Ligne = Ligne + 1   Loop   For I = 1 To 5   Me.ListeAnnonce.AddItem Cells(Ligne, I)   Next I   End Sub

---

Hervé.

Avec AddItem ça marche presque.
Sauf que ça affiche les valeurs des cellules en colonne.

Est-il possible de les afficher sur une seule ligne de la listbox ?

C'est bon, avec rowsource et .adress ça fonctionne parfaitement.

Merci beaucoup Hervé

Bonne soirée