Plusieurs graph dans une meme page

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

Bonjour,

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

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

---