Range("A1:M5").Select 'Pour régler le zoom de la page pour que sa rentre complètement ActiveWindow.Zoom = True '=================> CETTE LIGNE QUI POSE PROBLÈME !!!
Range("A1:M5").Select 'Pour régler le zoom de la page pour que sa rentre complètement ActiveWindow.Zoom = True '=================> CETTE LIGNE QUI POSE PROBLÈME !!!
Range("A1:M5").Select 'Pour régler le zoom de la page pour que sa rentre complètement ActiveWindow.Zoom = 150 '=================> CETTE LIGNE QUI POSE PROBLÈME !!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMsgbox ActiveSheet.ChartObjects(1).TopLeftCell.Address ' le 1 represente le premier graph de la feuille active !
Public Sub Numéro1() Sheets.Add 'Créé toujours un onglet de départ Dim i As Long For i = Sheets.Count To 1 Step -1 'On supprime tous les onglets sauf un If Sheets(i).Name <> ActiveSheet.Name And Sheets(i).Visible = True Then Sheets(i).Delete End If Next Range("M5") = "MAISON" Range("A1:M5").Select 'Pour régler le zoom de la page pour que sa rentre complètement ActiveWindow.Zoom = True End Sub Public Sub Numéro2() '------------------------------------------------------------------------------------------------------------------------ 'Création des graphiques '------------------------------------------------------------------------------------------------------------------------ Range("A1:A1").Select 'GRAPHIQUE NUMERO 1 ActiveSheet.Shapes.AddChart.Select 'Créer un graph ActiveChart.SetSourceData Source:=Range("A1:B1") 'Ne rien changer ActiveSheet.ChartObjects(1).Left = Range("F6").Left 'Positionnement de l'accroche ActiveSheet.ChartObjects(1).Top = Range("F6").Top 'Positionnement de l'accroche ActiveSheet.ChartObjects(1).Width = Range("F6:I15").Width 'Dimensionnement de la largeur ActiveSheet.ChartObjects(1).Height = Range("F6:I15").Height 'Dimensionnement de la hauteur End Sub
Range("A1:M5").Select 'Pour régler le zoom de la page pour que sa rentre complètement ActiveWindow.Zoom = True
Range("A1:M5").Select 'Pour régler le zoom de la page pour que sa rentre complètement ActiveWindow.Zoom = 140
ActiveSheet.Shapes(1).Placement = xlMoveAndSize 'autres valeurs possibles : xlMove, xlFreeFloating
Public Sub Numéro1() Sheets.Add 'Créé toujours un onglet de départ Dim i As Long For i = Sheets.Count To 1 Step -1 'On supprime tous les onglets sauf un If Sheets(i).Name <> ActiveSheet.Name And Sheets(i).Visible = True Then Sheets(i).Delete End If Next Range("M5") = "MAISON" Range("A1:M5").Select 'Pour régler le zoom de la page pour que sa rentre complètement ActiveWindow.Zoom = True Numéro3 ' ==================== on force End Sub Public Sub Numéro2() Range("A1:A1").Select 'GRAPHIQUE NUMERO 1 ActiveSheet.Shapes.AddChart.Select 'Créer un graph ActiveChart.SetSourceData Source:=Range("A1:B1") 'Ne rien changer Numéro3 ' ================== on force End Sub Public Sub Numéro3() ActiveSheet.ChartObjects(1).Left = Range("F6").Left 'Positionnement de l'accroche ActiveSheet.ChartObjects(1).Top = Range("F6").Top 'Positionnement de l'accroche ActiveSheet.ChartObjects(1).Width = Range("F6:I15").Width 'Dimensionnement de la largeur ActiveSheet.ChartObjects(1).Height = Range("F6:I15").Height 'Dimensionnement de la hauteur End Sub
Une fois que "ActiveWindow.Zoom = True" est exécuté, c'est trop tard on est plus sur de pouvoir insérer un graphique à un emplacement spécifique