Discussion :

[Sylvie BASTIEN]

Bonjour,


J'ai besoin de transférer le contenu d'une listbox vers des cellules excel rangées en ligne.

J'ai trouvé de nombreux exemples pour un transfert vers des cellules empilées les unes au dessus des autres mais rien pour des cellules situées les unes à côté des autres.

Merci de me dépanner,

Sylvie

[Invité]

si nous pouvions voir ta listbox

[Sylvie BASTIEN]

Bonjour,

Je préparer la pièce jointe.

Désolée de ne pas avoir été assez claire...

Voici mon essai.

[boisgontierjacques]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
 
Private Sub UserForm_Initialize()
  Set f = Sheets("Catégorie Produits")
  For i = 1 To f.Range("IV1").End(xlToLeft).Column
    Me.ListBox1.AddItem f.Cells(1, i)
  Next i
End Sub

ou

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Initialize()
  Set f = Sheets("Catégorie Produits")
  Me.ListBox1.List = Application.Transpose(f.Cells(1, 1).Resize(, f.Range("IV1").End(xlToLeft).Column).Value)
End Sub

Jacques Boisgontier