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

Fermé
anthonygg Messages postés 1 Date d'inscription mercredi 28 janvier 2015 Statut Membre Dernière intervention 28 janvier 2015 - 28 janv. 2015 à 09:42
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 - 1 févr. 2015 à 00:52
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

Patty5083 Messages postés 34 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 10 novembre 2019
29 janv. 2015 à 11:41
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
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 240
1 févr. 2015 à 00:52
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