Modification listview et transférer vers feuille excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

02/05/2017, 19h45
HAMIDOU AMERI

Modification listview et transférer vers feuille excel

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
02/05/2017, 22h31
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.
02/05/2017, 22h57
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
03/05/2017, 07h52
unparia

Citation:

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.

Salm, Bonjour

Voila le code

Code:

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

03/05/2017, 18h20
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 ...
03/05/2017, 18h31
HAMIDOU AMERI

Salam, Bonjour

Quel code j'ai pas bien compris

Citation:

C'est le code d'abondement,, celui qui devra ajouter une donnée supplémentaire qui te permettra d'éviter ta boucle For L

Merci pour votre temps
03/05/2017, 19h12
unparia

Citation:

Quel code j'ai pas bien compris

C'est pourtant clair :
celui par lequel tu abondes ta listview...
Abonder = alimenter = remplir, ...

Je ne pourrai te relire que dans un peu plus de trois heures (pêche).
03/05/2017, 19h42
pijaku

@unparia :
Mmm Jacques. La pêche, le soir, à la fraîche! Un régal!
Sur ce je vous laisse. A demain

Salem, Bonsoir

Excuse moi pour le retard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub MOMO()
Dim Item As ListItem
Dim L As Integer
Dim i As Integer
 
ListView1.Visible = True
ListView1.Top = 120
ListView1.ListItems.Clear
Set SS = Worksheets("HIST")
 
L = SS.Range("A" & Rows.Count).End(xlUp).Row
 
For i = 2 To L
     If SS.Cells(i, 1) >= CDate(TextBox1) And SS.Cells(i, 1) <= CDate(TextBox2) Then
         If CheckBox1.Value = True Then
            Set Item = ListView1.ListItems.Add(Text:=SS.Cells(i, 1))
            Item.SubItems(1) = Format(SS.Cells(i, 2), "# ##0")
            Item.SubItems(2) = Format(SS.Cells(i, 3), "# ##0")
            Item.SubItems(3) = Format(SS.Cells(i, 4), "# ##0")
            Item.SubItems(4) = Format(SS.Cells(i, 5), "# ##0")
            Item.SubItems(5) = Format(SS.Cells(i, 6), "# ##0")
            Item.SubItems(6) = Format(SS.Cells(i, 15), "# ##0")
            Item.SubItems(7) = Format(SS.Cells(i, 16), "# ##0")
         Else
            If CheckBox2.Value = True And SS.Cells(i, 2) = ComboBox1.Value Then
                Set Item = ListView1.ListItems.Add(Text:=SS.Cells(i, 1))
                Item.SubItems(1) = Format(SS.Cells(i, 2), "# ##0")
                Item.SubItems(2) = Format(SS.Cells(i, 3), "# ##0")
                Item.SubItems(3) = Format(SS.Cells(i, 4), "# ##0")
                Item.SubItems(4) = Format(SS.Cells(i, 5), "# ##0")
                Item.SubItems(5) = Format(SS.Cells(i, 6), "# ##0")
                Item.SubItems(6) = Format(SS.Cells(i, 15), "# ##0")
                Item.SubItems(7) = Format(SS.Cells(i, 16), "# ##0")
            End If
         End If
    End If
 
Next
 
 
End Sub

Salam

Sachant que la colone A dans la feuil contient des dates

et la conone B contient les produits

04/05/2017, 18h15
unparia

Tu as lu en diagonale ce que je t'ai exposé plus haut !
Il te faut créer une neuvième colonne (un subitem(8) ) dans laquelle tu inscris la valeur de i (le N° de ligne, donc)
Rien ne t'empêche (pour des raisons esthétiques ou autres) de rendre cette colonne "invisible" en lui donnant une largeur de 0
Reviens quand fait.
04/05/2017, 18h32
HAMIDOU AMERI

Salam, Bonjour

Ok Merci pour votre temps

je le ferais dimanche parce que maintenant j'ai un micro 64 bit par contre ou je travail j'ai le 32 Bit

tout facon je crois que votre idee c la meilleur (mieux que de faire une boucle sur plus de 2 milles lignes)
reste un petit probleme : on inscris le i dans la 8 colone dans le code de l'alimentation de la listview et il sera la reference

Salam, Bonjour

J'ai créer la 8 colone et elle est alimenter par le N° de ligne voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub MOMO()
Dim Item As ListItem
Dim L As Integer
Dim i As Integer
 
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
TextBox7.Visible = True
TextBox8.Visible = True
 
ListView1.Visible = True
ListView1.Top = 120
ListView1.ListItems.Clear
Set SS = Worksheets("HIST")
 
 
L = SS.Range("A" & Rows.Count).End(xlUp).Row
 
For i = 2 To L
     If SS.Cells(i, 1) >= CDate(TextBox1) And SS.Cells(i, 1) <= CDate(TextBox2) Then
         If CheckBox1.Value = True Then
            Set Item = ListView1.ListItems.Add(Text:=SS.Cells(i, 1))
            Item.SubItems(1) = Format(SS.Cells(i, 2), "# ##0")
            Item.SubItems(2) = Format(SS.Cells(i, 3), "# ##0")
            Item.SubItems(3) = Format(SS.Cells(i, 4), "# ##0")
            Item.SubItems(4) = Format(SS.Cells(i, 5), "# ##0")
            Item.SubItems(5) = Format(SS.Cells(i, 6), "# ##0")
            Item.SubItems(6) = Format(SS.Cells(i, 15), "# ##0")
            Item.SubItems(7) = Format(SS.Cells(i, 16), "# ##0")
            Item.SubItems(8) = i
 
         Else
            If CheckBox2.Value = True And SS.Cells(i, 2) = ComboBox1.Value Then
                Set Item = ListView1.ListItems.Add(Text:=SS.Cells(i, 1))
                Item.SubItems(1) = Format(SS.Cells(i, 2), "# ##0")
                Item.SubItems(2) = Format(SS.Cells(i, 3), "# ##0")
                Item.SubItems(3) = Format(SS.Cells(i, 4), "# ##0")
                Item.SubItems(4) = Format(SS.Cells(i, 5), "# ##0")
                Item.SubItems(5) = Format(SS.Cells(i, 6), "# ##0")
                Item.SubItems(6) = Format(SS.Cells(i, 15), "# ##0")
                Item.SubItems(7) = Format(SS.Cells(i, 16), "# ##0")
                Item.SubItems(8) = i
 
            End If
         End If
    End If
 
Next
End Sub

apres modification voici le code pour les transferer vers la feuil excel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton4_Click()
Set SS = Worksheets("HIST")
L = SS.Range("A" & Rows.Count).End(xlUp).Row
 
    For i = 1 To ListView1.ListItems.Count
    x = ListView1.ListItems(i).SubItems(8)
 
            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)
    Next i
 
End Sub

mais le problem reste le meme (long) je crois que le code du transfert ...!!?

Merci encore

07/05/2017, 20h57
unparia

Je ne vois plus quel est ton problème maintenant.
- Tu as éviter la lenteur précédente (en bouclant avec L)
- tu peux éviter certains ralentissements en inhibant lk'affichage (Application.screenupdating = False) en début de procédure et en le rétablissant (application.Screenupdating = true) en fin de procédure.

Une autre solution serait de passer par l'intermédiaire de matrices, mais ton niveau apparent ne m'incite pas à t'y guider.
Tu vas donc devoir te contenter ce ce "peu".
07/05/2017, 22h06
HAMIDOU AMERI

Salam, Bonjour

Merci pour la réponse encore une fois

Est que le code que je viens de réaliser est juste ou il y a mieux que ca ?

Juste pour voir mon niveau en VBA

Merci
07/05/2017, 22h24
unparia

Ce code est juste, oui.

Maintenant (mais j'ignore tout de ton interface) :
si tu ne modifies (via des textboxes) que certains articles de ta listbox, tu gagnerais énormément de temps à ne pas boucler in fine sur tous les articles pour les réécrire.
Il te suffirait de le faire lors même de la modification de chaque article modifié (et tu le peux, puisque tu connais maintenant le n° de ligne en plus de celui de la colonne).
07/05/2017, 23h15
HAMIDOU AMERI

Salam, Rebonsoir

Tu veut dire que en transfert juste les lignes modifier ?

Comment faire ca tu peut m'aider svp
08/05/2017, 06h34
unparia

Citation:

Comment faire ca tu peut m'aider svp

Il me faut pour cela voir :
1) une copie d'écran (pas le classeur, hein, mais une COPIE D'ECRAN) montrant à la fois ta listview et la ou les textbox(es) utilisée(s) pour modifier la listview
2) le code par lequel tu modifies un article de la listview (le code entier de cette procédure).
08/05/2017, 12h25
HAMIDOU AMERI

1 pièce(s) jointe(s)

Salam, Bonjour

le code déja communiqué private sub commandButton4_click
Voila capture d'ecran
Pièce jointe 272663

merci
08/05/2017, 12h36
HAMIDOU AMERI

1 pièce(s) jointe(s)

salam, Bonjour

Pour le code déjà communiqué private sub commandbutton4_click (Modifier)
voila capture d'écran
Pièce jointe 272718

Voir 40 message(s) de cette discussion en une page