Discussion :

[Denis_67]

Bonjour,

J'ai un tableau de bord qui collecte diverses informations à partir d'une seule feuille de données dans plusieurs TCD.

Les TCD étant par définition de taille variables on ne peut pas de les positionner trop proches, sinon il y a collisison lors des actualisations.

Pour l'instant j'ai dispersé mes TCD sur ma feuille de résultat et j'ai pris des photos des TCD avec une zone assez large pour chacun.
Le résultat est très moche s'il le TCD a peu de lignes il apparait en très gros dans la photo, au contraire s'il y en a beaucoup c'est tout petit.

Est-il possible soit d'avoir un espèce de scroll sur la photo en fixant une taille de contenu comme si on déplaçait une loupe en fin de compte?

Ou bien de mettre des listviews en place qui accueillent les TCD ?
Pour l'instant je n'ai fait qu'un listview d'après le tuto de Silkyroad, mais c'est dans un USF, là je voudrais le mettre sur une feuille ?

Pour les esprits chagrins (si si il y en a quelques uns) je ne demande pas le code, mais une piste, un conseil, avant de partir en bille tête.
Merci de vos conseils
Denis

[Denis_67]

Bonjour,

J'ai trouvé comment remplir mes USF avec le contenu des TCD

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
18
Private Sub UserForm_Initialize()
 Dim pvtTable As PivotTable
 Dim vData As Variant
 
 Set pvtTable = Worksheets("TRG").PivotTables("Resultat")
 
 With pvtTable.TableRange1
   '--read data into array
   vData = .Offset(1).Resize(.Rows.Count + pvtTable.ColumnGrand - 1)
 End With
 
 With Me.ListBox1
   .ColumnCount = UBound(vData, 2)
   '--transfer array values into listbox
   .List = vData
 End With
 
End Sub

Il me reste à gérer la mise en forme, espérer d'arriver à mettre un quadrillage des cellules pour la lisibilité éventuellement choisir les colonnes, je vais bricoler autour du rows count

Questions complémentaires,
- Est-il possible de positionner les USF par rapport à la feuille ?
j'ai idée qu'il faut que j'utilise la userForm_Layout en ajustant en fonction du scroll de l'utilisateur ?
- Je cherche aussi s'il est possible d'imprimer la feuille avec les users forms affichés. au total j'ai un graphique et 4 usersforms de résultats.

Merci pour vos suggestions
denis