ListView

Bonjour,


j'ai un UserForm avec une list view :

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim X As Byte
Dim k As Integer
k = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
'Exemple 1 : Comment alimenter un Listview
' Initialisation du listview
With IniListview1
With .ColumnHeaders
' Vider le listview
.Clear

'Ajouter les colonnes
.Add , , "CODE CLIENT", 80
.Add , , "Valeur reel", 80
.Add , , "Valeur Facturer", 80
.Add , , "Commercial", 80
End With

.View = 3 ' type Report
.Gridlines = True ' affichage de lignes
.FullRowSelect = True ' sélection complète de la ligne
.HideColumnHeaders = False ' afficher les en-têtes de colonnes
.LabelEdit = 1 ' ne pas autoriser la saisie
End With


End Sub

Je voudrait que sous CODE Client il y est les cellule A2:A
Sous Valeur reel, D2:D etc..

qui ce trouve sur une autre feuil.

Par la suite il me faudra pouvoir modifier les valeur dans la listview pour que ça les modifie sur le fichier excel


Merci :)