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 24509 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 10 mars 2023 - 1 févr. 2015 à 00:52
eriiic Messages postés 24509 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 10 mars 2023 - 1 févr. 2015 à 00:52
A voir également:
- Une seule colone d'un tableau avec un fond colorée à la fois
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Tableau croisé dynamique - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Afficher un tableau en c - Forum C
- Déplacer une colonne 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
24509
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 mars 2023
7 166
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