• Initiateur de la discussion Initiateur de la discussion tactic6
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tactic6

XLDnaute Impliqué
Bonjour le forum
ce matin juste une question
j'ai rencontré des fichiers excel avec en fond de chaque feuille ecrit en large et en gris clair PAGE 1 ...

Comment fait on pour y ajouter du texte qui ne soit que visible (pas imprimable)
et surtout est ce possible sur une feuille pleine de formule à chaque ligne ?

Joyeuses Pâques à tous
 
Re : Fond de page

Bonjour,

L'affichage dont tu parles (page 1, page 2, ...) est peut-être dû à l'activation du menu Affichage - Aperçu des sauts de page.

C'est uniquement visible à l'écran.

Si pas ça, reviens avec plus de détails

@+
 
Re : Fond de page

merci
ent fait je voudrais bien distinguer mes devis de mes factures
(je dois être un peu tête en l'air car je me trompe assez régulièrement)
alors j'aurais aimé avoir en gros sur ma feuille FACTURE ou DEVIS
avec la fonction Arriere plan je n'y arrive pas peut etre parce que sur chaque ligne j'ai une formule ?
y a t' il un moyen de réaliser mon souhait malgré tout ?
 
Re : Fond de page

Salut tactic6, bh², Tibo, le Forum

Je ne sais pas si c'est ce que tu cherche mais je m'étais fait il y a quelques temps un petit truc qui me permet de de mettre en filigrane le nom des feuilles.

A l'ouverture du fichier tu remarquera une nouvelle icône dans ta barre
si tu click dessus le nom de ta page apparaitra sur ta feuille en filigrane
Non visible à l'impression, pour supprimer l'image, sélectionne et supprime là

Bonne Journée
 

Pièces jointes

Re : Fond de page

Re Dull

c'est possible que ça marche avec le nom d'une cellule et non celui de l'onglet ?
j'explique
j'ai une feuille de calcul avec 2 macros qui me change le nom en G6 soit en DEVIS soit en FACTURE
et j'aurai aimé que ton truc fonctionne avec
 
Re : Fond de page

Re tactic, le Fil

Pas de problème
en dessous de
Code:
Application.ScreenUpdating = False
change (en Rouge)

Code:
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, [COLOR=Red][B]ActiveSheet.Name[/B][/COLOR], "Tahoma" _
par
Code:
Application.ScreenUpdating = False
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, [COLOR=Red][B]ActiveSheet.[/B][B][G6][/B][/COLOR], "Tahoma" _
Bonne Journée
 
Re : Fond de page

Ok Dull
merci mais ça va pas en fait ça garde le premier et ça ecrit le second par dessus
ce que j'aurais aimé c'est en fonction de G6 que ça ecrive automatiquement DEVIS ou FACTURE tout en effaçant le precedent
 
Re : Fond de page

Bonjour tactic6, salut Dull,

Peut-être une autre solution :

- Insérer un rectangle de la barre d'outils Dessin
- Clic droit sur la bordure du rectangle
- Dans la barre de formule : taper : =$G$6
- à nouveau Clic droit sur la bordure du rectangle, puis
- Format de la forme automatique
- Dans onglet Propriétés : décocher Imprimer l'objet
- Dans onglet Alignement : cocher Taille automatique
- Dans onglet Police, choisir la taille souhaitée.

Ainsi, le rectangle contient le contenu de la cellule G6, le rectangle est transparent et il ne s'imprime pas.

Je te laisse faire les essais.

@+
 
Re : Fond de page

Bonjour à tous,
Salut Dull 🙂,
Salut Tibo 🙂,

Avec le fichier de Dull, il suffit de cliquer sur l'icône créée dans la barre et le texte est effacé et remplacé par le dernier

Grâce à :
Code:
If ActiveSheet.ShapeRange.Name = "image" = True Then ActiveSheet.Shapes("Image").Delete
Il faut évidemment que la forme soit nommée "image"...

A+
 
Re : Fond de page

Re tactic, le Fil

cela m'étonne que ça réécrive par dessus car j'ai mis un test
Code:
If ActiveSheet.ShapeRange.Name = "image" = True Then ActiveSheet.Shapes("Image").Delete
A chaque fois qu'une nouvelle image est insérée l'autre est détruite

Enfin... un nouveau fichier avec mise en page du Filigrane a chaque changement de valeur en G6
test et dis nous

EDITION: Salut Jean Claude 🙂 et Tibo 🙂
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
538
Réponses
19
Affichages
867
Retour