Colorier cellule ou plage

bernardrustrel · 26 Mai 2014

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 · 26 Mai 2014

Re : Colorier cellule ou plage

Bonjour à tous,

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

VB:

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 · 26 Mai 2014

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

Code:

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 · 27 Mai 2014

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 · 27 Mai 2014

Re : Colorier cellule ou plage

Bonjour à tous,

bernardrustrel à dit:
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+

Colorier cellule ou plage

bernardrustrel

XLDnaute Occasionnel

Pièces jointes

JCGL

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

bernardrustrel

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

Discussions similaires