Microsoft 365 VBA Rowsource transposée

[Claudy]

Bonjour à tous,
comment initialiser une lisbox avec les données reprises de "E5:W5":
ListBox1.RowSource = Application.Transpose("E5:W5")'ne fonctionne pas!

Merci,

Claudy

 

[Cousinhub]

Bonjour,
.List à la place de .RowSource, peut-être?

 

[Claudy]

Merci Cousinhub,
mais ça va pas...

Claudy

 

[Cousinhub]

Re-,
Si, cela fonctionne...
Tu as bien enlevé les scories de tes anciens essais, notamment la propriété RowSource de la ListBox? (qui doit être vide)

Edit, il faut également mettre :
Range("E5:W5")

 

[Cousinhub]

Le code :

Private Sub UserForm_Initialize()
Me.ListBox1.List = Application.Transpose(Range("E5:W5"))
End Sub

 

[Claudy]

Le code :

Private Sub UserForm_Initialize()
Me.ListBox1.List = Application.Transpose(Range("E5:W5"))
End Sub

Merci....

 

[Claudy]

Merci....

Question subsidiaire.... comment récupérer le numéro de colonne de la valeur sélectionnée ?
Merci
Claudy

 

[Cousinhub]

Re-,
Ainsi :

Private Sub ListBox1_Click()
MsgBox "Colonne numéro : " & Me.ListBox1.ListIndex + 5
End Sub