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 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 1 févr. 2015 à 00:52
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 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
- Identifier un tableau à partir d'une photo - Forum Graphisme
- Tableau ascii - Guide
- Le fichier contient un tableau présentant un extrait des livres les plus prêtés à paris en 2016. filtrez le tableau pour ne faire apparaître que les bandes dessinées ado. puis filtrez le tableau pour ne faire apparaître que celles dont l'auteur est zep. quel est le titre de la bande dessinée ado de zep qui a été la plus prêtée d'après ce tableau ? ✓ - Forum Windows 10
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
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 211
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
