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
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
A voir également:
- Une seule colone d'un tableau avec un fond colorée à la fois
- Tableau croisé dynamique - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Comment faire un tableau - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
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
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
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
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
1 févr. 2015 à 00:52
Bonjour,
Double-clique en ligne 1 sur la colonne que tu veux colorer.
eric
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