Faire une action avec la sélection actuelle

Bonjour à tous,

Je débute sur VBA et j'aimerai effectuer une action avec la sélection actuelle. Ma formule ressemble à cela pour l'instant mais VBA ne l'accepte pas dans l'état.

With ActiveCell.CurrentRegion.Select
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Je pense faire une erreur simple et je m'excuse d'avance pour mes piètres connaissances.

MERCI!

Bonjour,

Le .Select est une action et n'a donc rien à faire en début de With. Elle devrait être dissociée, et donc écrite en ligne suivante. Par ailleurs, cette action est inutile.

Ma formule ressemble à cela maintenant :

With ActiveCell.CurrentRegion
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Mais elle ne marche pas, ca m'affiche : Propriété ou méthode non gérée par cet objet.

Je pense que le problème vient de .Color, il faut préciser ce qui est à colorer, exemple :

.Font.Color = 5287936 'Couleur de police
.Interior.Color = 5287936 'Couleur de fond

Toujours pas... le déboggeur me sélectionne en jaune la première action (".pattern =xlSolid") et quand je l'efface il m'affiche l'action en dessous etc etc....

With ActiveCell.CurrentRegion

        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Font.Color = 5287936
        .Interior.Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub