Remplir ListView avec une autre ListView

Version imprimable

30/12/2015, 12h51
sharox

Remplir ListView avec une autre ListView

Bonjour a tous,

Je suis entrain de coder un petit truc sur Excel
Et dans mon exécution j’alimente une listview.

Un peu plus tard j'ai besoin de modifier ma listview du coup j'ai pensé à me faire une listview tampon pour stocker ma première liste

Mais le problème c'est que je voudrais alimenter ma premier listview en faisant un truc du genre :

Code:

userform1.listview1 = userform1.listview2

Mais cela ne fonctionne pas^^

Merci de votre aide

Dans une variable tableau ?

Bonjour,

Et pourquoi ne pas stocker le contenu du ListView dans une variable tableau?

En utilisant ce tutoriel, tu peux modifier le code comme ceci :
Dans un Module standard, la première ligne étant en entête du module (variable public) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Liste() As Variant
 
Sub Stockage_ListView()
Dim i As Integer, j As Integer
   ReDim Preserve Liste(1 To ListView1.ListItems.Count, 1 To ListView1.ColumnHeaders.Count)
   'Boucle sur toutes les lignes
   For i = 1 To ListView1.ListItems.Count
      Liste(i, 1) = ListView1.ListItems(i).Text
      'Boucle sur les colonnes
      For j = 1 To ListView1.ColumnHeaders.Count - 1
         Liste(i, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
      Next j
   Next i
End Sub

30/12/2015, 16h50
sharox

Bonjour pijaku,
Merci de ta réponse.

Effectivement j'y ai pensé, mais le problème c'est que je ne sais pas comment garder une variable entre deux exécutions de code
si ça existe je veux connaitre comment on fait, ça m'éviterais pleins de code ^^

car je crée ma listview sur l'appuie d'un bouton sur mon classeur
a la fin de la création de la listview, j'affiche mon userform avec la listview

mais entre ce moment la, et le moment ou l'utilisateur va cliquer sur des controls que j'ai mis,
mes variables perdent leur porté, ducoup perde leur valeur, donc mon tableau est a refaire, il faut donc que je le stock dans un Control (même si c'est sur un userform que j'utilise pas)
donc autant alimenter le Control au lieu de se faire chier a faire un tableau puis ensuite alimenter un Control avec le tableau.

Enfin je ne sais pas ce que tu en penses, j'avoue que je ne sais pas quoi faire la !
car la création de ma listview prend moins de 1sec (0.5 environ) ce qui est assez court
je me tâte donc a recrée ma listview a chaque fois que j'en ai besoin.
mais crée une variable tableau avec mes cellules Excel et ensuite alimenter ma listview avec ce tableau est encore plus rapide (surtout si je dois le faire plusieurs fois)
après je me dit que c'est une appli perso donc qu'elles sot pas optimisé a fond je m'en moque un peu, mais ca fait toujours plaisir de pas attendre 15 ans l’exécution de la macro

je suis perdu ^^
30/12/2015, 18h46
Invité

Bonjour,
Quel est l'intérêt de faire ça? J'imagine que tu y vois une utilité?

Pour t'aider du mieux que nous pouvons dit nous la finalité.
30/12/2015, 19h05
clementmarcotte

bonjour

Citation:

Envoyé par sharox

Effectivement j'y ai pensé, mais le problème c'est que je ne sais pas comment garder une variable entre deux exécutions de code
si ça existe je veux connaitre comment on fait, ça m'éviterais pleins de code

Static dans l'aide de VBA

Citation:

mais entre ce moment la, et le moment ou l'utilisateur va cliquer sur des controls que j'ai mis,
mes variables perdent leur porté, ducoup perde leur valeur, donc mon tableau est a refaire, il faut donc que je le stock dans un Control (même si c'est sur un userform que j'utilise pas)
donc autant alimenter le Control au lieu de se faire chier a faire un tableau puis ensuite alimenter un Control avec le tableau.

Une banale feuille de calcul que tu protèges ou que tu caches, peut faire la job.

Ou bien:

Un banal fichier texte
Le registre
un fichier .ini
30/12/2015, 20h44
sharox

Bonjour a tous,

Donc je vous explique
En gros sur une feuil Excel j'ai une liste (plusieurs lignes et colonnes)
cette liste n'est pas identique a chaque ouverture de fichier (elle récupéré dans mes dossier des fichiers)
donc j'ai crée un bouton qui ouvre un userform
avant l'ouverture de cette userform je recrée la liste que j'ai sur la feuille dans une listview qui est présente dans l'userform
et et ensuite j'ai des boutons qui permettent de faire un tri (genre / date / durée)
et la je bloque pour le tri de genre, je veux afficher dans la listview juste les lignes avec le bon genre

et je voulais ne pas recréer la listview en regardant dans ma feuille a chaque fois

voila pour l'histoire ^^
31/12/2015, 08h10
pijaku

Toi, tu n'as pas lu le tutoriel que je t'ai donné...

Bonjour,

Pour le tri va voir ici :
http://silkyroad.developpez.com/VBA/ListView/#LII-F

Si c'est tout ce qu'il te faut...
31/12/2015, 09h00
sharox

Bonjour,
Merci pour le lien mais je l'ai déjà lu 3 ou 4 fois en une semaine ^^
Il est super utile mais je n'ai pas trouvé ce que je voulais faire

Et je m'excuse je me suis mal exprimé :

Citation:

et la je bloque pour le tri de genre, je veux afficher dans la listview juste les lignes avec le bon genre

Je voulais dire que quand je fais un tri par genre, j'ai ensuite plusieurs choix avec tous les genres présents dans ma feuille Excel
Et selon le genre qu'il choisit, je voudrais afficher dans l'userform que les lignes qui ont le bon genre (donc un filtre)

donc j'ai cherche une fonction genre :

Code:

userform1.listview1.line(x).visible = false

ou

Code:

userform1.listview1.line(x).hide

mais du coup je pense utiliser la fonction

Code:

ListView1.ListItems.Remove x

Voila :)
PS : je met résolu sur ce sujet, mais je vais le chekcker encore le post au cas ou vous auriez d'autres idées !

Donc pour répondre au post pour les prochains !

il n'est pas possible de copier une listview vers une autre avec un simple "copier / coller"
On est obliger de recrée la listview lignes par lignes / colonnes par colonnes

du coup je vais mettre ma solution, même si ce n'est pas ça que je voulais ^^'
vu que ma création de listview est assez rapide ( j'ai environ 250 lignes et 8 colonnes)
je la recrée quand le nombre de ligne de ma listview n'est pas égale au nombre de ligne de la feuille Excel
et pour faire un filtre, sur chaque ligne qui est pas bonne, je fait .remove pour la supprimer

Voici le code de création de la listview (ni plus ni moins que ce qu'il y a sur la page web présent dans ce post)
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 Sub intégration_list_view() Range("A1").Select Selection.End(xlDown).Select last_ligne = ActiveCell.Row Range("A1").Select '----- remplissage ListView------------------------ With UserForm1.ListView1 'Définit le nombre de colonnes et Entêtes .FullRowSelect = True With .ColumnHeaders .Clear 'Supprime les anciens entêtes .Add , , Range("A1").Value, 150 'Ajoute 3 colonnes en spécifiant le nom de l'entête, et la largeur des colonnes .Add , , Range("B1").Value, 75 .Add , , Range("C1").Value, 75 End With End With UserForm1.ListView1.ListItems.Clear For nb_lignes = 2 To last_ligne Step 1 ligne_table = nb_lignes - 1 UserForm1.ListView1.ListItems.Add , , Sheets("Feuil1").Range("A" & nb_lignes).Value UserForm1.ListView1.ListItems(ligne_table).ListSubItems.Add , , Range("B" & nb_lignes).Value UserForm1.ListView1.ListItems(ligne_table).ListSubItems.Add , , Range("C" & nb_lignes).Value Next End sub
Voila voila :)
Merci de votre aide en tout cas

31/12/2015, 14h46
sharox
Bonjour a tous,

donc après quelques test :
Apres appuie sur le bouton qui permet d'afficher l'userform avec la listview,le temps d'attente 0.5 sec
Donc pour moi je trouve ca assez rapide, cela me convient !

Par contre un peu plus tard, quand mon userform est déjà ouverte, la même macro dure 2 sec
Donc 4x plus longtemps que la première et cela ce vois a l’écran, c'est beaucoup trop long

j'utilise déjà les bouts de code qui permet d'optimiser la rapidité d’exécution:
Code:

1 2 3 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False
mais je n'ai pas l'impression que cela est effet sur la listview de l'userform (ou sur l'userform tout court)
Si vous avez une solution :)
je suis preneur !