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
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
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
Code:
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 SubJe 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
Dernière édition: