Discussion :

[HAMIDOU AMERI]

Salam, Bonjour

j'ai besoin de votre aide SVP

J'ai alimenter une listview selon un critere a partir d'une feuil excel qui contien plus de 2 milles ligne
apres modification dans la listview par le bias des textbox, je souhaite transfere le contenu de la listview dans la feuil excel
dans les memes lignes initial
Je crois que j'ai bien expliquer

Merci d'avance

[unparia]

Bonjour
Si les critères d'alimentation de ta listview sont tels qu'elle contient des données issues de cellules non contigües, tu ne peux à ma connaissance faire ce que tu décris que si tu mémorises également dans ta listvew (ou dans une matrice et dans le même ordre) les coordonnées des cellules ayant abondé ta listview.
Commence donc par cette étape d'abondement de ta listview.

Il sera plus simple de mettre ces coordonnées directement dans la listview. Et nettement plus léger et moins complexe si, en plus, tu prévois d'effectuer un tri dans la listview.

[HAMIDOU AMERI]

Salam, Bonjour

Merci pour la reponse, j'ai été sur que UNPARIA ou patrick sera le premier à me répond Merci encore une fois

Bon j'ai réaliser une boucle avec les criteres d'alimentation mais le probleme
c'est long (boucle sur les ligne de la feuil for i = 2 to derligne et une autre boucle de la 1 ligne de la listview jusqu'au derniere)

Merci Unparia

[unparia]

Bon j'ai réaliser une boucle avec les criteres d'alimentation mais le probleme
c'est long (boucle sur les ligne de la feuil for i = 2 to derligne et une autre boucle de la 1 ligne de la listview jusqu'au derniere)

Un traitement en boucle est en effet toujours assez lent.
La manière dont il est fait, toutefois, peut avoir des effets différents en matière de vitesse d'exécution.
Montre (code) comment tu fais ce traitement.

[HAMIDOU AMERI]

Salm, Bonjour

Voila le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton4_Click()
Set SS = Worksheets("HIST")
L = SS.Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To L
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i) = SS.Cells(x, 1) And ListView1.ListItems(i).SubItems(1) = SS.Cells(x, 2) Then
            SS.Cells(x, 3) = ListView1.ListItems(i).SubItems(2)
            SS.Cells(x, 4) = ListView1.ListItems(i).SubItems(3)
            SS.Cells(x, 5) = ListView1.ListItems(i).SubItems(4)
            SS.Cells(x, 6) = ListView1.ListItems(i).SubItems(5)
            SS.Cells(x, 15) = ListView1.ListItems(i).SubItems(6)
            SS.Cells(x, 16) = ListView1.ListItems(i).SubItems(7)
        End If
    Next i
Next x
 
End Sub

[unparia]

Ce n'est pas cela, que je t'ai demandé, mais le code qui te sert à abonder la listview, pas celui qui te sert à modifier tes cellules à partir de la listview.

C'est le code d'abondement,, celui qui devra ajouter une donnée supplémentaire qui te permettra d'éviter ta boucle For L et donc gagner énormément de temps d'exécution ...