Discussion :

[skin57]

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 :

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

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 ?

[Theze]

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 :

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

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é.

[skin57]

Bonjour Hervé

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

[Theze]

Bonjour,

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

C'est bizarre, chez moi ça marche ?

Code :

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

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

Si tu veux utiliser RowSource il te faut faire :

Code :

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

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 :

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

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é.

[skin57]

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 ?

[skin57]

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

Merci beaucoup Hervé

Bonne soirée