J'ai une feuille excel dans laquelle j'ai appliqué de la couleur de fond
dans certaine cellule.
L'impression de la feuille se fait en couleur. Je désire que la plupart des
cellules soient fond blanc pour l'impression.
Voici ma question. Je désire créer une macro qui fait ceci :
1 - prendre tout ce qui est à l'extérieur de la plage B8:BE57 et appliquer
"aucun remplissage" (donc fond blanc par défaut)
2 - imprimer
3 - enlever le "aucun remplissage" (celui de l'étape 1) pour remettre
l'ancienne couleur qui a les propriétés suivantes
.ColorIndex = 19
.Pattern = xlGray50
.PatternColorIndex = 15
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Caroline,
Sub enlever() Set plg = Range("1:8,58:65536,A:A,BF:IV") With plg.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = xlNone End With End Sub
Sub remettre() Set plg = Range("1:8,58:65536,A:A,BF:IV") With plg.Interior .ColorIndex = 19 .Pattern = xlGray50 .PatternColorIndex = 15 End With End Sub
isabelle
Bonjour à tous,
J'ai une feuille excel dans laquelle j'ai appliqué de la couleur de fond dans certaine cellule. L'impression de la feuille se fait en couleur. Je désire que la plupart des cellules soient fond blanc pour l'impression. Voici ma question. Je désire créer une macro qui fait ceci :
1 - prendre tout ce qui est à l'extérieur de la plage B8:BE57 et appliquer "aucun remplissage" (donc fond blanc par défaut)
2 - imprimer
3 - enlever le "aucun remplissage" (celui de l'étape 1) pour remettre l'ancienne couleur qui a les propriétés suivantes .ColorIndex = 19 .Pattern = xlGray50 .PatternColorIndex = 15
Merci pour l'aide Bonne soirée
Caroline
bonjour Caroline,
Sub enlever()
Set plg = Range("1:8,58:65536,A:A,BF:IV")
With plg.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ColorIndex = xlNone
End With
End Sub
Sub remettre()
Set plg = Range("1:8,58:65536,A:A,BF:IV")
With plg.Interior
.ColorIndex = 19
.Pattern = xlGray50
.PatternColorIndex = 15
End With
End Sub
isabelle
Bonjour à tous,
J'ai une feuille excel dans laquelle j'ai appliqué de la couleur de fond
dans certaine cellule.
L'impression de la feuille se fait en couleur. Je désire que la plupart des
cellules soient fond blanc pour l'impression.
Voici ma question. Je désire créer une macro qui fait ceci :
1 - prendre tout ce qui est à l'extérieur de la plage B8:BE57 et appliquer
"aucun remplissage" (donc fond blanc par défaut)
2 - imprimer
3 - enlever le "aucun remplissage" (celui de l'étape 1) pour remettre
l'ancienne couleur qui a les propriétés suivantes
.ColorIndex = 19
.Pattern = xlGray50
.PatternColorIndex = 15
Sub enlever() Set plg = Range("1:8,58:65536,A:A,BF:IV") With plg.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = xlNone End With End Sub
Sub remettre() Set plg = Range("1:8,58:65536,A:A,BF:IV") With plg.Interior .ColorIndex = 19 .Pattern = xlGray50 .PatternColorIndex = 15 End With End Sub
isabelle
Bonjour à tous,
J'ai une feuille excel dans laquelle j'ai appliqué de la couleur de fond dans certaine cellule. L'impression de la feuille se fait en couleur. Je désire que la plupart des cellules soient fond blanc pour l'impression. Voici ma question. Je désire créer une macro qui fait ceci :
1 - prendre tout ce qui est à l'extérieur de la plage B8:BE57 et appliquer "aucun remplissage" (donc fond blanc par défaut)
2 - imprimer
3 - enlever le "aucun remplissage" (celui de l'étape 1) pour remettre l'ancienne couleur qui a les propriétés suivantes .ColorIndex = 19 .Pattern = xlGray50 .PatternColorIndex = 15
Merci pour l'aide Bonne soirée
Caroline
Caroline L.
Bonsoir Isabelle,
Merci beaucoup pour ton aide, tout fonctionne très bien.
Et en passant, l'autre jour, tu m'as fait bien rire avec ta 2e histoire (au téléphone, "T'es rien qu'un trou de c..."). Celle sur la belle %?/&/?&/&!/!!/%?&?& de neige qui tombe après Noel, je sais ce que c'est... nous sommes loin de la carte postale !!
Bonne soirée et merci encore (surtout pour les macros !)
Caroline
"isabelle" a écrit dans le message de news:
bonjour Caroline,
Sub enlever() Set plg = Range("1:8,58:65536,A:A,BF:IV") With plg.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = xlNone End With End Sub
Sub remettre() Set plg = Range("1:8,58:65536,A:A,BF:IV") With plg.Interior .ColorIndex = 19 .Pattern = xlGray50 .PatternColorIndex = 15 End With End Sub
isabelle
Bonjour à tous,
J'ai une feuille excel dans laquelle j'ai appliqué de la couleur de fond dans certaine cellule. L'impression de la feuille se fait en couleur. Je désire que la plupart des
cellules soient fond blanc pour l'impression. Voici ma question. Je désire créer une macro qui fait ceci :
1 - prendre tout ce qui est à l'extérieur de la plage B8:BE57 et appliquer
"aucun remplissage" (donc fond blanc par défaut)
2 - imprimer
3 - enlever le "aucun remplissage" (celui de l'étape 1) pour remettre l'ancienne couleur qui a les propriétés suivantes .ColorIndex = 19 .Pattern = xlGray50 .PatternColorIndex = 15
Merci pour l'aide Bonne soirée
Caroline
Bonsoir Isabelle,
Merci beaucoup pour ton aide, tout fonctionne très bien.
Et en passant, l'autre jour, tu m'as fait bien rire avec ta 2e histoire
(au téléphone, "T'es rien qu'un trou de c...").
Celle sur la belle %?/&/?&/&!/!!/%?&?& de neige qui tombe après Noel, je
sais ce que c'est... nous sommes loin de la carte postale !!
Bonne soirée et merci encore (surtout pour les macros !)
Caroline
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uQKY843TFHA.2756@tk2msftngp13.phx.gbl...
bonjour Caroline,
Sub enlever()
Set plg = Range("1:8,58:65536,A:A,BF:IV")
With plg.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ColorIndex = xlNone
End With
End Sub
Sub remettre()
Set plg = Range("1:8,58:65536,A:A,BF:IV")
With plg.Interior
.ColorIndex = 19
.Pattern = xlGray50
.PatternColorIndex = 15
End With
End Sub
isabelle
Bonjour à tous,
J'ai une feuille excel dans laquelle j'ai appliqué de la couleur de fond
dans certaine cellule.
L'impression de la feuille se fait en couleur. Je désire que la plupart
des
cellules soient fond blanc pour l'impression.
Voici ma question. Je désire créer une macro qui fait ceci :
1 - prendre tout ce qui est à l'extérieur de la plage B8:BE57 et
appliquer
"aucun remplissage" (donc fond blanc par défaut)
2 - imprimer
3 - enlever le "aucun remplissage" (celui de l'étape 1) pour remettre
l'ancienne couleur qui a les propriétés suivantes
.ColorIndex = 19
.Pattern = xlGray50
.PatternColorIndex = 15
Merci beaucoup pour ton aide, tout fonctionne très bien.
Et en passant, l'autre jour, tu m'as fait bien rire avec ta 2e histoire (au téléphone, "T'es rien qu'un trou de c..."). Celle sur la belle %?/&/?&/&!/!!/%?&?& de neige qui tombe après Noel, je sais ce que c'est... nous sommes loin de la carte postale !!
Bonne soirée et merci encore (surtout pour les macros !)
Caroline
"isabelle" a écrit dans le message de news:
bonjour Caroline,
Sub enlever() Set plg = Range("1:8,58:65536,A:A,BF:IV") With plg.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = xlNone End With End Sub
Sub remettre() Set plg = Range("1:8,58:65536,A:A,BF:IV") With plg.Interior .ColorIndex = 19 .Pattern = xlGray50 .PatternColorIndex = 15 End With End Sub
isabelle
Bonjour à tous,
J'ai une feuille excel dans laquelle j'ai appliqué de la couleur de fond dans certaine cellule. L'impression de la feuille se fait en couleur. Je désire que la plupart des
cellules soient fond blanc pour l'impression. Voici ma question. Je désire créer une macro qui fait ceci :
1 - prendre tout ce qui est à l'extérieur de la plage B8:BE57 et appliquer
"aucun remplissage" (donc fond blanc par défaut)
2 - imprimer
3 - enlever le "aucun remplissage" (celui de l'étape 1) pour remettre l'ancienne couleur qui a les propriétés suivantes .ColorIndex = 19 .Pattern = xlGray50 .PatternColorIndex = 15
