Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1212 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Utilisation de Listview

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] Utilisation de Listview

n°1794993
scaryfan
Apple Inside
Posté le 02-10-2008 à 21:18:26  profilanswer
 

:hello:  
 
Salut à tous !
Je reviens à la charge avec l'utilisation de l'outil Listview.
J'ai un tableau Excel avec 5 colonnes et 10 lignes.
Je souhaite alimenter une zone de liste dans une userform...
Quel est le code pour faire cela ???
J'ai vraiment du mal à trouver sur le net... :(
 
Merci pour votre aide... ;)


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
mood
Publicité
Posté le 02-10-2008 à 21:18:26  profilanswer
 

n°1798775
scaryfan
Apple Inside
Posté le 12-10-2008 à 11:42:59  profilanswer
 

UP
 
Y'a vraiment personne pour m'aider ???
 
 :cry:


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
n°1798891
scaryfan
Apple Inside
Posté le 12-10-2008 à 17:58:57  profilanswer
 

UP (re) ! :D
 
Finalement, j'ai réussi à faire une Userform avec une ComboBox dans laquelle je sélectionne 1,2 ou 3 et selon le choix, la Listview en-dessous s'alimente des tableaux qui se trouvent dans la 1ère feuille, la 2ème ou la 3ème (AA, BB ou CC)...
J'utilise Change avec Combobox.
ça marche très bien...
 
Voici le bout de mon code :
 

Code :
  1. Private Sub ComboBox1_Change()
  3.     Dim Tableau, j&, y&
  4.    
  5.     If ComboBox1.Value = 1 Then
  6.         Sheets("AA" ).Select
  7.         Range("A1" ).Select
  8.         Selection.CurrentRegion.Select
  9.         Tableau = Selection.Value
  10.         Me.LISTELISTE1.View = lvwReport
  11.         Me.LISTELISTE1.ListItems.Clear
  12.         Me.LISTELISTE1.ColumnHeaders.Add 1, , "1er", 80, lvwColumnLeft
  13.         Me.LISTELISTE1.ColumnHeaders.Add 2, , "2ème", 80, lvwColumnRight
  14.         Me.LISTELISTE1.ColumnHeaders.Add 3, , "3ème", 80, lvwColumnRight
  15.         For y = UBound(Tableau, 1) To LBound(Tableau, 1) Step -1
  16.             Me.LISTELISTE1.ListItems.Add 1, , Tableau(y, 1)
  17.             Me.LISTELISTE1.ListItems(1).SubItems(1) = Tableau(y, 2)
  18.             Me.LISTELISTE1.ListItems(1).SubItems(2) = Tableau(y, 3)
  19.         Next y
  20.     End If
  21.    
  22.     If ComboBox1 = 2 Then
  23.         Sheets("BB" ).Select
  24.         Range("A1" ).Select
  25.         Selection.CurrentRegion.Select
  26.         Tableau = Selection.Value
  27.         Me.LISTELISTE1.View = lvwReport
  28.         Me.LISTELISTE1.ListItems.Clear
  29.         Me.LISTELISTE1.ColumnHeaders.Add 1, , "1er", 80, lvwColumnLeft
  30.         Me.LISTELISTE1.ColumnHeaders.Add 2, , "2ème", 80, lvwColumnRight
  31.         Me.LISTELISTE1.ColumnHeaders.Add 3, , "3ème", 80, lvwColumnRight
  32.         For y = UBound(Tableau, 1) To LBound(Tableau, 1) Step -1
  33.             Me.LISTELISTE1.ListItems.Add 1, , Tableau(y, 1)
  34.             Me.LISTELISTE1.ListItems(1).SubItems(1) = Tableau(y, 2)
  35.             Me.LISTELISTE1.ListItems(1).SubItems(2) = Tableau(y, 3)
  36.         Next y
  37.     End If
  38.    
  39.     If ComboBox1 = 3 Then
  40.         Sheets("CC" ).Select
  41.         Range("A1" ).Select
  42.         Selection.CurrentRegion.Select
  43.         Tableau = Selection.Value
  44.         Me.LISTELISTE1.View = lvwReport
  45.         Me.LISTELISTE1.ListItems.Clear
  46.         Me.LISTELISTE1.ColumnHeaders.Add 1, , "1er", 80, lvwColumnLeft
  47.         Me.LISTELISTE1.ColumnHeaders.Add 2, , "2ème", 80, lvwColumnRight
  48.         Me.LISTELISTE1.ColumnHeaders.Add 3, , "3ème", 80, lvwColumnRight
  49.         For y = UBound(Tableau, 1) To LBound(Tableau, 1) Step -1
  50.             Me.LISTELISTE1.ListItems.Add 1, , Tableau(y, 1)
  51.             Me.LISTELISTE1.ListItems(1).SubItems(1) = Tableau(y, 2)
  52.             Me.LISTELISTE1.ListItems(1).SubItems(2) = Tableau(y, 3)
  53.         Next y
  54.     End If
  56. End Sub


 
Chaque feuille contient un tableau de 3 colonnes sur un certains nombre de lignes.
LISTELISTE1 est la Listview dans ma Userform.
 
;)


Message édité par scaryfan le 12-10-2008 à 18:02:24

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
n°1804637
scaryfan
Apple Inside
Posté le 26-10-2008 à 07:38:33  profilanswer
 

UP  :D  
 
Je souhaiterais améliorer la lisibilité de ma listeview en fonction de certaines informations contenues dans mes tableaux.
Comme décrit ci-avant, j'ai 3 feuilles contenant chacunes un tableau de X lignes sur 3 colonnes.
Dans la 3ème colonne, j'ai une valeur qui est soit 1 soit 2...
En fonction de la valeur de cette colonne, comment faire pour que mes lignes soient de couleurs différentes (rouge pour 1 et vert pour 2 par exemple) ???
Quelqu'un a une idée ???  :whistle:

Message cité 1 fois

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
n°1804641
scaryfan
Apple Inside
Posté le 26-10-2008 à 08:38:16  profilanswer
 

scaryfan a écrit :

UP  :D  
 
Je souhaiterais améliorer la lisibilité de ma listeview en fonction de certaines informations contenues dans mes tableaux.
Comme décrit ci-avant, j'ai 3 feuilles contenant chacunes un tableau de X lignes sur 3 colonnes.
Dans la 3ème colonne, j'ai une valeur qui est soit 1 soit 2...
En fonction de la valeur de cette colonne, comment faire pour que mes lignes soient de couleurs différentes (rouge pour 1 et vert pour 2 par exemple) ???
Quelqu'un a une idée ???  :whistle:


 
Finalement, j'ai quand même réussi à coloriser les caractères... mais pas la ligne...
Voici le code inséré à la fin de la macro juste avant le "End Sub" :

Code :
  1. For j = LISTELISTE1.ListItems.Count To 1 Step -1
  2.         Set MItem = LISTELISTE1.ListItems(j)
  3.         If MItem.SubItems(2) = 2 Then
  4.             With MItem
  5.                 .Bold = True
  6.                 .ForeColor = RGB(255, 51, 0)
  7.                 .ListSubItems(1).ForeColor = RGB(255, 51, 0)
  8.                 .ListSubItems(2).ForeColor = RGB(255, 51, 0)
  9.                 .ListSubItems(1).Bold = True
  10.                 .ListSubItems(2).Bold = True
  11.             End With
  12.         End If
  13.         If MItem.SubItems(2) = 1 Then
  14.             With MItem
  15.                 .Bold = True
  16.                 .ForeColor = RGB(51, 102, 0)
  17.                 .ListSubItems(1).ForeColor = RGB(51, 102, 0)
  18.                 .ListSubItems(2).ForeColor = RGB(51, 102, 0)
  19.                 .ListSubItems(1).Bold = True
  20.                 .ListSubItems(2).Bold = True
  21.             End With
  22.         End If
  23.     Next j
  24.    
  25.     LISTELISTE1.Refresh



---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
n°1804862
scaryfan
Apple Inside
Posté le 27-10-2008 à 08:49:28  profilanswer
 

:cry:  
 
VBA m'énerve !!!
En fonction de la version Excel, ça marche ou ça ne marche pas...
Quand je lance ma macro avec Excel 2003 SP2, j'ai le message :
"Erreur de compilation : projet ou bibliothèque introuvable" et le débogueur pointe sur : "MItem" sur la ligne 2. (voir post précédent).
 
Quelqu'un aurait-il une soluce ???  ;)


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
n°1804867
scaryfan
Apple Inside
Posté le 27-10-2008 à 09:17:19  profilanswer
 

:p  
 
J'ai trouvé la soluce tout seul !
En fait, selon la version Excel, il faut déclarer ou non la variable au début de la macro...
Sous Excel 2003, il faut la déclarer... et pas sous Excel 2000...  :o


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Utilisation de Listview

 

Sujets relatifs
VBA - accèder au nom de sous-repertoire avec FileSystemeObject[VBA] Fermer Excel et enregistrer
VBA : rompre les liaisons, sauf les liens hypertextesVBA - Souci avec récupération données DTPicker
[VBA] Macro exécutée pas à pas...[VBA] Listview : dernière ligne ajoutée
[VBA] Zone de liste... question alignement colonnes !utilisation base de donnée
[VBA] Erreur d'exécution '-2147417848 (80010108)' 
Plus de sujets relatifs à : [VBA] Utilisation de Listview

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.071 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR