copier un ligne pour la colletr dans une listbox

[brux40]

Bonjour,

J'ai un petit souci de programmation, c'est la raison pour laquelle je me tourne vers vous pour essayer de le résoudre.

En effet j'assaie de copié un ligne dans un listbox. J'ai déjà réalisé un programme similaire pour copié un colonne (avec l'aide de ce forum). Or je ne comprend pas pourquoi mon programme ne fonctionne pas.

Voici le programme

Private Sub UserForm_Initialize()

Dim i As Integer
Dim Valeurs As Variant
Dim a As Object
Set a = CreateObject("Scripting.Dictionary")
    'efface le contenu de la listbox
ListBoxdiffus.Clear
    'avec la feuille base de donnée.
With Sheets("calcul")
        'Pour aller plus vite on charge les valeurs dans un tableau
    Valeurs = .Range("E23:FM23").Value
    For i = LBound(Valeurs) To UBound(Valeurs)
    If Not IsEmpty(Valeurs(1, i)) Then a(Valeurs(1, i)) = ""
    Next i
End With
If IsArray(Valeurs) Then ListBoxdiffus.List = a.keys


End Sub

Je cherche à copié copié la ligne de E23 à FM23. Pour cela je copie sous forme d'un tableau.
Or ce programme ne prend en compte que la première valeur de la ligne et non toute la ligne.

Si quelqun arrive comprendre pourquoi, je suis preneur. Même si je suis persuadé qu'il s'agit d'une erreur assez simple.

Merci d'avance de votre aide

 

[Bebere]

Re : copier un ligne pour la colletr dans une listbox

bonjour brux

For i = LBound(Valeurs,2) To UBound(Valeurs,2)

édit:corrigé mal lu

 

[brux40]

Re : copier un ligne pour la colletr dans une listbox

Merci beaucoup de ton aide Bebere.

Sa fonctionne.

Merci encore