PB acces aux graphiques via code vb?

For each truc in trucs

	If truc ........ Then

		Faire quelque chose de truc

	Else

		Faire autre chose de truc, ou rien

	End IF

Next

'MaPlage = MaPlage.Offset(0, 1)

    'MaPlage = MaPlage.Next

    'Set MaPlage = MaPlage.Next

    'Set MaPlage = MaPlage.Offset(0, 1)

Sub Graph_echelle_X_auto()

'

'

 
Dim Debut As Double

Dim Fin As Double

 
Dim MaPlage As Range

 
Dim MaFeuil As Worksheet

Dim MonGraph As Chart

 
'Recherche du parametre de date de début d'extraction.

'L'information se trouve dans la feuille de "Parametres", dans la plage de cellule nommée "Date_Debut" (1 cellule).

Debut = Sheets("Parametres").Range("Date_Debut").Value

'Recherche du parametre de date de fin d'extraction.

'L'information se trouve dans la feuille de "Parametres", dans la plage de cellule nommée "Date_Fin" (1 cellule).

Fin = Sheets("Parametres").Range("Date_Fin").Value

 
'Sélection d'une feuille excel pour éviter un bug de sélection.

Sheets("Parametres").Select

 
'Sélection de la plage de données concernant la liste des feuilles et des graphs dont l'axe X doit être mis en forme

'Cette plage de données est formée de 2 colonnes :

'   l'une pour les noms des feuilles,

'   l'autre pour les références de graphs.

'Cette plage de donnée commence à la cellule nommée "Liste_Graph_Axe_X_a_adapter".

'La fin de la plage à sélectionnée se trouve en bas de la colonne des nom de feuilles.

'Cette fin est inconnue donc nous utilisons ".End(xlDown)" pour trouver automatiquement et simplement cette fin.

'Les références des graphs se trouvent dans la colonne à droite des noms des feuilles.

'Nous utilisons donc un décallage à droite ".Offset(0, 1)" pour englober cette colonne.

Sheets("Parametres").Range(Range("Liste_Graph_Axe_X_a_adapter"), Range("Liste_Graph_Axe_X_a_adapter").End(xlDown)).Select

 
For Each MaPlage In Selection

'L'annalyse de la plage sélectionnée se fait cellule par cellule or nous avons besoin de la faire ligne par ligne.

'   "Maplage" va donc être la celulle contenant le nom de la feuille,

'   et "Maplage.Offset(0,1)" va être la cellule contenant la référence du graph dont l'échelle de l'axe des X doit être adaptée.

 
 
'Next MaPlage

 
    If (IsEmpty(MaPlage.Offset(0, 1).Value)) Then

    'S'il n'a pas de référence de graph alors nous avons un graph indépendant

    'Il est placé dans une feuille de graph et non pas placer/coller dans une feuille de calcul avec d'autres graphs.

 
        'Choix du graph(qui est une feuille indépendante) dans "MaPlage" de la plage en cours de traitement.

        'et choix de l'axe des "X" de ce graph pour le mise en forme.

        With Sheets(MaPlage.Value).Axes(xlCategory)

 
            'Affectation de la date de début au minimum de l'axe des "X"

            'pour la mise à la bonne échelle de l'axe des "X".

            .MinimumScale = Debut

 
            'Affectation de la date de fin au maximum de l'axe des "X"

            'pour la mise à la bonne échelle de l'axe des "X".

            .MaximumScale = Fin

 
            'Divers paramétres par défaut.

            .MinorUnitIsAuto = True

            .MajorUnitIsAuto = True

            .Crosses = xlAutomatic

            .ReversePlotOrder = False

            .ScaleType = xlLinear

            .DisplayUnit = xlNone

 
        End With

 
    Else

    'Sinon il y a au moins 1 graph dans la feuille de calcul en cours de traitement

 
        'Attribution/Création d'une feuille avec le nom de feuille en cours de traitement dans "MaPlage".

        Set MaFeuil = Worksheets(MaPlage.Value)

 
        'Attribution/Création d'un graphique avec le nom de graphique en cours de traitement dans "MaPlage.Offset(0, 1)"

        'dans la page attribuée/crée.

        Set MonGraph = MaFeuil.ChartObjects(MaPlage.Offset(0, 1).Value).Chart

 
        'Choix de l'axe des "X" de ce graph pour le mise en forme.

        With MonGraph.Axes(xlCategory)

 
            'Affectation de la date de début au minimum de l'axe des "X"

            'pour la mise à la bonne échelle de l'axe des "X".

            .MinimumScale = Debut

 
            'Affectation de la date de fin au maximum de l'axe des "X"

            'pour la mise à la bonne échelle de l'axe des "X".

            .MaximumScale = Fin

 
            'Divers paramétres par défaut.

            .MinorUnitIsAuto = True

            .MajorUnitIsAuto = True

            .Crosses = xlAutomatic

            .ReversePlotOrder = False

            .ScaleType = xlLinear

            .DisplayUnit = xlNone

 
        End With

 
        Set MonGraph = Nothing

        Set MaFeuil = Nothing

 
    End If

 
Next MaPlage

 
End Sub