Une seule colone d'un tableau avec un fond colorée à la fois
anthonygg
Messages postés
3
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 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
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
2 réponses
-
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 -
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
