Une seule colone d'un tableau avec un fond colorée à la fois

anthonygg Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un tableau en 3 colonnes.
J'aimerai que quand je met un fond coloré avec le bouton du bandeau "couleur de remplissage" dans la colone 1, la colone 2 et 3 redeviennent blanche. Quand je met un fond coloré dans la colonne 2, la colone 1 et 3 redevienne blanche etc ...

Quelqu'un sait comment faire ?
Merci
A voir également:

2 réponses

Réponse 1 / 2
Patty5083 Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
Si tu n'as que 3 colonnes, cela peut suffir...Ce n'est pas très élégant A dapter selon la conne que tu passes en couleur 

Sub Color()
    Columns("A:A").Select
    Range("A4").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
    Columns("B:C").Select
    Range("B:C").Activate
    ActiveWindow.SmallScroll Down:=3
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
0
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour, 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row <> 1 Or Target.Column > 3 Then Exit Sub
    Cancel = True
    [A:C].Interior.ColorIndex = xlNone
    Target.EntireColumn.Interior.ColorIndex = 35
End Sub

Double-clique en ligne 1 sur la colonne que tu veux colorer.

eric
0

Discussions similaires

Trouver le nom d'un tableau avec sa photo.
lillo56 -
zetnot -

11 réponses
"Couleur de page" pour une seule page
lisa -
Lisa -

6 réponses