Colorier cellule ou plage

[bernardrustrel]

Bonjour à tous
Je vous appelle à l'aide car j'aimerai pouvoir réaliser une fonction et non une macro qui me permettrait de colorier la plage D2:H2 avec la couleur de A1. Bien entendu la couleur de A1 peut varier.
Existe t il une possibilité de réaliser cela
Par avancée merci.
Cordialement.
Bernard

 

[JCGL]

Re : Colorier cellule ou plage

Bonjour à tous,

Peux-tu essayer ceci dans le module de la feuille :

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    With Range("D2:H2").Interior
        .ColorIndex = Range("A1").Interior.ColorIndex
        .Pattern = Range("A1").Interior.Pattern
        .PatternColorIndex = Range("A1").Interior.PatternColorIndex
        .ThemeColor = Range("A1").Interior.ThemeColor
        .TintAndShade = Range("A1").Interior.TintAndShade
        .PatternTintAndShade = Range("A1").Interior.PatternTintAndShade
    End With
End Sub

Edition : Modification du code pour être efficient sur les 56 couleurs de base.

L'Agrafe : Et si j'ai envie de proposer un code... A++ 😛

 

[Staple1600]

Re : Colorier cellule ou plage

Bonsoir à tous


JCGL
Ah! mais non c'est de la triche là 😉

car j'aimerai pouvoir réaliser une fonction et non une macro

Bon bah, alors si on a le droit de macroter, je macrote 😉

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Intersect(T, Range("D2:H2")) Is Nothing Then
Range("D2:H2").Interior.ColorIndex = Range("A1").Interior.ColorIndex
End If
End Sub

 

[bernardrustrel]

Re : Colorier cellule ou plage

Bonjour
Merci à vous pour ces réponses, mais je ne puis employé les fonctionalités des "WORKSHEET" cause d'incompatibilité avec le fonctionnement des autres commandes du fichier.
Cordialement
Bernard

 

[JCGL]

Re : Colorier cellule ou plage

Bonjour à tous,

mais je ne puis employé les fonctionalités des "WORKSHEET" cause d'incompatibilité avec le fonctionnement des autres commandes du fichier.

Ce code peut être associé à une événementielle déjà existante.

a+