VBA_mettre la couleur automatique de la serie d'un diagramme

Bonjour à tous ,

Je cherche l'instruction (Code) VBA qui me permet de dire à Excel de mettre la Couleur automatique. Mon code est le suivant, j'aimerais la suite pour le "Else If" .

 If cells (1,1). Value = TRUE then
         With Selection.Interior
                .ColorIndex = 4 'vert
               .PatternColorIndex = 2
        .Pattern = xlSolid
         End With

Else If ' ... choisis la Couleur que tu veux donc Couleur automatique

Merci d'avance pour vos réponses.

Bonjour,

Ai je bien compris la demande ?

With Selection.Interior
        If Cells(1, 1).Value = True Then
            .PatternColorIndex = 2
            .Pattern = xlSolid
            .ColorIndex = 4    'vert
        Else
            '.ColorIndex = xlColorIndexAutomatic
            .ColorIndex = xlColorIndexNone
        End If
    End With

Jean-Eric a écrit :

Bonjour,

Ai je bien compris la demande ?

With Selection.Interior
        If Cells(1, 1).Value = True Then
            .PatternColorIndex = 2
            .Pattern = xlSolid
            .ColorIndex = 4    'vert
        Else
            '.ColorIndex = xlColorIndexAutomatic
            .ColorIndex = xlColorIndexNone
        End If
    End With

Merci beaucoup Jean-Eric,

C'est exactement ce que je demandais.

Une autre question:

 .ColorIndex = xlColorIndexNone 

correspond au blanc (bizarrement). Je l'ai essayé et c'est pas transparent. Comment faire pour mettre aucun remplissage?

Re,

Et si tu prends l'autre option (ligne de code inhibée) ?

Cdlt.

Jean-Eric a écrit :

Re,

Et si tu prends l'autre option (ligne de code inhibée) ?

Cdlt.

Ca donne la Couleur automatique qu'excel a definie, donc une Couleur au Hasard (Exemple Bleu).

Bonjour,

J'ai toujours pas trouvé l'instruction pour "Aucun remplissage" .

Mais pas grave je me contente du blanc.

Problème résolu!!

Merci pour tout.

Bonjour,

Essaie donc : xlNone

Jean-Eric a écrit :

Bonjour,

Essaie donc : xlNone

Bonsoir,

ça fonctionne!!!!

Un grand à vous

Cordialement