Discussion :

[maxtin]

Bonjour a tous,

jai un fichier Excel avec 4 sheets, chacune contenant un graph. Jaimerais savoir comment mettre tous ces graph dans une seule et unique sheet...de facon a ce que tous les graph soient visibles (ex: 1/4 de page pour chaque graph dans mon cas). Jaimerais aussi que le code soit dynamique et fonctionne avec x nombre de graph.


Merci a lavance

[House MD]

Bonjour,

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
19
20
21
22
23
24
25
Sub test()
 
Dim A As Integer, Haut As Long, NumShp As Integer, Rapport As Single
Dim Wbk As Workbook, Wsht As Worksheet
Dim Shp As Shape
 
Haut = 0
NumShp = 0
Set Wbk = ThisWorkbook
Set Wsht = Wbk.Sheets.Add
For A = 2 To Wbk.Sheets.Count
  For Each Shp In Wbk.Sheets(A).Shapes
    NumShp = NumShp + 1
    Shp.Copy
    Wsht.Paste
    Wsht.Shapes(NumShp).Top = Haut
    Wsht.Shapes(NumShp).Left = 0
    Rapport = Wsht.Shapes(NumShp).Width / Wsht.Shapes(NumShp).Height
    Wsht.Shapes(NumShp).Height = 100
    Wsht.Shapes(NumShp).Width = 100 * Rapport
    Haut = Haut + 110
  Next
Next
 
End Sub