Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonsoir,Sur une des feuilles d'un classeur, un bouton lance une macro pour laréalisation d'un graphe sur cette même feuille qui supporte les données.Par contre, ce graphe est trop petit.J'ai essayé quelques lignes qui ne fonctionnent pas, pire perturbent laligne supérieure de la feuille.Voici quelques lignes de la macro. C'est la seconde partie qui ne va pas.Où sont mes erreurs?Merci pour vos conseils.Sheets("MiseEnService").SelectActiveSheet.UnprotectEspacePlage = "A" & Décalage & ":G" & AnnéeFin - AnnéeDépart + Décalage +CorrectionCharts.AddActiveChart.ChartType = xlColumnStackedActiveChart.SetSourceDataSource:=Sheets("MiseEnService").Range(EspacePlage), PlotBy:=xlColumnsActiveChart.Location Where:=xlLocationAsObject, Name:="MiseEnService"...ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name ="GraphiqueEnCours"ActiveSheet.ChartObjects("GraphiqueEnCours").ActivateActiveChart.ChartArea.SelectActiveSheet.Shapes("GraphiqueEnCours").ScaleWidth 14, msoFalse,msoScaleFromTopLeftActiveSheet.Shapes("GraphiqueEnCours").ScaleHeight 14, msoFalse,msoScaleFromBottomRightActiveSheet.Shapes("GraphiqueEnCours").ScaleWidth 12, msoFalse,msoScaleFromBottomRightActiveSheet.Shapes("GraphiqueEnCours").ScaleHeight 12, msoFalse,msoScaleFromTopLeft
Bonsoir, Sur une des feuilles d'un classeur, un bouton lance une macro pour la réalisation d'un graphe sur cette même feuille qui supporte les données. Par contre, ce graphe est trop petit. J'ai essayé quelques lignes qui ne fonctionnent pas, pire perturbent la ligne supérieure de la feuille. Voici quelques lignes de la macro. C'est la seconde partie qui ne va pas. Où sont mes erreurs? Merci pour vos conseils. Sheets("MiseEnService").Select ActiveSheet.Unprotect EspacePlage = "A" & Décalage & ":G" & AnnéeFin - AnnéeDépart + Décalage + Correction Charts.Add ActiveChart.ChartType = xlColumnStacked ActiveChart.SetSourceData Source:=Sheets("MiseEnService").Range(EspacePlage), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="MiseEnService" . . . ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "GraphiqueEnCours" ActiveSheet.ChartObjects("GraphiqueEnCours").Activate ActiveChart.ChartArea.Select ActiveSheet.Shapes("GraphiqueEnCours").ScaleWidth 14, msoFalse, msoScaleFromTopLeft ActiveSheet.Shapes("GraphiqueEnCours").ScaleHeight 14, msoFalse, msoScaleFromBottomRight ActiveSheet.Shapes("GraphiqueEnCours").ScaleWidth 12, msoFalse, msoScaleFromBottomRight ActiveSheet.Shapes("GraphiqueEnCours").ScaleHeight 12, msoFalse, msoScaleFromTopLeft
