Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel impression macro

impression macro

5 réponses
Avatar
reno
Bonjour,


j aimerais savoir s il est possible de faire une macro qui
masque le contenu de certaines cellules lorsque je sors
mon tableau sur papier

merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Misange
Bonjour,
tu peux faire une macro qui mette le texte de tes cellules de la même
couleur que celle du fond et placer cette pacro dans le before-print de ton
classeur. N'oublie pas de revenir à la situation antérieure après impression
!
tu as une macro toute prête ici :
http://www.excelabo.net/xl/imprimer.htm#basculecouleur

--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !===========



"reno" a écrit dans le message de news:
0a2d01c35b36$690f7c50$
Bonjour,


j aimerais savoir s il est possible de faire une macro qui
masque le contenu de certaines cellules lorsque je sors
mon tableau sur papier

merci




Avatar
reno
merci!

Cependant, ma cellule ne comporte pas que du texte. le
fond la cellule est jaune et il y a une bordure autour de
la cellule.
je suis debutant en vba, donc comment modifier la macro d
excel labo?

merci

reno



-----Message d'origine-----
Bonjour,
tu peux faire une macro qui mette le texte de tes
cellules de la même

couleur que celle du fond et placer cette pacro dans le
before-print de ton

classeur. N'oublie pas de revenir à la situation
antérieure après impression

!
tu as une macro toute prête ici :
http://www.excelabo.net/xl/imprimer.htm#basculecouleur

--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !
============





"reno" a écrit dans le message de
news:

0a2d01c35b36$690f7c50$
Bonjour,


j aimerais savoir s il est possible de faire une macro
qui


masque le contenu de certaines cellules lorsque je sors
mon tableau sur papier

merci





.




Avatar
Misange
Bonjour,
le plus simple pour apprendre un peu VBA c'est d'utiliser l'enregistreur de
macros. Ici tu as une cellule à fond jaune et bordure et tu veux la mettre
avec un fond balnc/texte blanc et sans bordure. Tu lances l'enregistreur de
macro (va voir la page débutants sur disciplus si tu ne vois pas de quoi je
parle :-)
tu récupères ceci :


Range("A1").Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 2
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

et tu utilises ce code dans la macro de base à la place de ce qui correspond
dans la macro.

ensuite j'imagine que tu vas me dire que tu veux faire ça pour toute la
feuille et pas seulement pour la cellule A1 ?
tu auras besoin d'un truc du genre :

sub remplacepartout()
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = vbRed Then

la macro modifiée

next cell
end sub

Aide toi et l'enregistreur de macros t'aidera !


--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !===========



"reno" a écrit dans le message de news:
0aa001c35b3c$f0cf7900$
merci!

Cependant, ma cellule ne comporte pas que du texte. le
fond la cellule est jaune et il y a une bordure autour de
la cellule.
je suis debutant en vba, donc comment modifier la macro d
excel labo?

merci

reno



-----Message d'origine-----
Bonjour,
tu peux faire une macro qui mette le texte de tes
cellules de la même

couleur que celle du fond et placer cette pacro dans le
before-print de ton

classeur. N'oublie pas de revenir à la situation
antérieure après impression

!
tu as une macro toute prête ici :
http://www.excelabo.net/xl/imprimer.htm#basculecouleur

--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !
=========== >




"reno" a écrit dans le message de
news:

0a2d01c35b36$690f7c50$
Bonjour,


j aimerais savoir s il est possible de faire une macro
qui


masque le contenu de certaines cellules lorsque je sors
mon tableau sur papier

merci





.




Avatar
garnote
Pour le plaisir :

Dim nc As Integer
Dim r() As String
_______________________________________________

Sub Masquer_Une_Selection_Quelconque_De_Cellules()
Set ici = Selection
nc = ici.Cells.Count
ReDim r(1 To nc)
For Each c In ici
With c
L = .Left
T = .Top
W = .Width
H = .Height
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, L, T, W, H).Select
i = i + 1
r(i) = Selection.Name
With Selection.ShapeRange.Line
.Weight = 2 'Ajuster selon le cas
.ForeColor.SchemeColor = 9
End With
Next
ici(1).Select
End Sub

Sub Enlever_Les_Masques()
For i = 1 To nc
ActiveSheet.Shapes(r(i)).Delete
Next i
End Sub

Serge


"Misange" ù.net> a écrit dans le message de news:

Bonjour,
le plus simple pour apprendre un peu VBA c'est d'utiliser l'enregistreur
de

macros. Ici tu as une cellule à fond jaune et bordure et tu veux la mettre
avec un fond balnc/texte blanc et sans bordure. Tu lances l'enregistreur
de

macro (va voir la page débutants sur disciplus si tu ne vois pas de quoi
je

parle :-)
tu récupères ceci :


Range("A1").Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 2
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

et tu utilises ce code dans la macro de base à la place de ce qui
correspond

dans la macro.

ensuite j'imagine que tu vas me dire que tu veux faire ça pour toute la
feuille et pas seulement pour la cellule A1 ?
tu auras besoin d'un truc du genre :

sub remplacepartout()
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = vbRed Then

la macro modifiée

next cell
end sub

Aide toi et l'enregistreur de macros t'aidera !


--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !=========== >



"reno" a écrit dans le message de news:
0aa001c35b3c$f0cf7900$
merci!

Cependant, ma cellule ne comporte pas que du texte. le
fond la cellule est jaune et il y a une bordure autour de
la cellule.
je suis debutant en vba, donc comment modifier la macro d
excel labo?

merci

reno



-----Message d'origine-----
Bonjour,
tu peux faire une macro qui mette le texte de tes
cellules de la même

couleur que celle du fond et placer cette pacro dans le
before-print de ton

classeur. N'oublie pas de revenir à la situation
antérieure après impression

!
tu as une macro toute prête ici :
http://www.excelabo.net/xl/imprimer.htm#basculecouleur

--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !
=========== > >




"reno" a écrit dans le message de
news:

0a2d01c35b36$690f7c50$
Bonjour,


j aimerais savoir s il est possible de faire une macro
qui


masque le contenu de certaines cellules lorsque je sors
mon tableau sur papier

merci





.








Avatar
reno
ok merci a vous deux


-----Message d'origine-----
Pour le plaisir :

Dim nc As Integer
Dim r() As String
_______________________________________________

Sub Masquer_Une_Selection_Quelconque_De_Cellules()
Set ici = Selection
nc = ici.Cells.Count
ReDim r(1 To nc)
For Each c In ici
With c
L = .Left
T = .Top
W = .Width
H = .Height
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, L, T,
W, H).Select

i = i + 1
r(i) = Selection.Name
With Selection.ShapeRange.Line
.Weight = 2 'Ajuster selon le cas
.ForeColor.SchemeColor = 9
End With
Next
ici(1).Select
End Sub

Sub Enlever_Les_Masques()
For i = 1 To nc
ActiveSheet.Shapes(r(i)).Delete
Next i
End Sub

Serge


"Misange" ù.net> a écrit dans le
message de news:


Bonjour,
le plus simple pour apprendre un peu VBA c'est
d'utiliser l'enregistreur


de
macros. Ici tu as une cellule à fond jaune et bordure
et tu veux la mettre


avec un fond balnc/texte blanc et sans bordure. Tu
lances l'enregistreur


de
macro (va voir la page débutants sur disciplus si tu ne
vois pas de quoi


je
parle :-)
tu récupères ceci :


Range("A1").Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 2
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle =
xlNone


Selection.Borders(xlInsideHorizontal).LineStyle =
xlNone



et tu utilises ce code dans la macro de base à la place
de ce qui


correspond
dans la macro.

ensuite j'imagine que tu vas me dire que tu veux faire
ça pour toute la


feuille et pas seulement pour la cellule A1 ?
tu auras besoin d'un truc du genre :

sub remplacepartout()
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = vbRed Then

la macro modifiée

next cell
end sub

Aide toi et l'enregistreur de macros t'aidera !


--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !
============






"reno" a écrit dans le message de
news:


0aa001c35b3c$f0cf7900$
merci!

Cependant, ma cellule ne comporte pas que du texte. le
fond la cellule est jaune et il y a une bordure autour
de


la cellule.
je suis debutant en vba, donc comment modifier la macro
d


excel labo?

merci

reno



-----Message d'origine-----
Bonjour,
tu peux faire une macro qui mette le texte de tes
cellules de la même

couleur que celle du fond et placer cette pacro dans le
before-print de ton

classeur. N'oublie pas de revenir à la situation
antérieure après impression

!
tu as une macro toute prête ici :
http://www.excelabo.net/xl/imprimer.htm#basculecouleur

--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !
============





"reno" a écrit dans le message de
news:

0a2d01c35b36$690f7c50$
Bonjour,


j aimerais savoir s il est possible de faire une
macro




qui
masque le contenu de certaines cellules lorsque je
sors




mon tableau sur papier

merci





.







.