Copier un logo image sur toutes les pages du classeur

Bonjour,

J'ai créé un classeur avec différents onglets. Sur ma feuille "page de garde", J'ai un code pour faire apparaître un logo si je note "ROHS" en cellule S9. Sur les pages suivantes, en cellule S9, j'ai une formule qui recopie le contenu et je voudrais que le logo se reporte également mais ce n'est pas le cas, que je mette le code sur la feuille ou sur le workbook cela ne fonctionne pas.

J'ai un second soucis, lorsque j'imprime le classeur entier, j'ai un pop-up qui demande le nom opérateur; je voudrais que ce nom apparaisse sur toutes les feuilles mais je ne l'ai que sur la première. Je n'ai rien trouvé qui me convienne sur les posts

Merci pour votre dispo, je vous joins mon fichier tronqué.

Bonne journée

Bonjour,

le logo doit être présent sur toutes les feuille,

Private Sub Worksheet_Change(ByVal Target As Range)
'Affichage du logo ROHS
If Range("S9").Value = "ROHS" Then
 For Each f In Worksheets
   Sheets(f.Name).Shapes("Image 2").Visible = True
 Next
Else
 For Each f In Worksheets
   Sheets(f.Name).Shapes("Image 2").Visible = False
 Next
End If
End Sub

pour l'impression

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Reponse As String
With ActiveSheet.PageSetup

Reponse = InputBox("Quel est votre nom ?", "Votre nom")
'Si l'utilisateur a entré un nom
  If Reponse <> "" Then
     For Each f In Worksheets
      Sheets(f.Name).Range("L1").Value = Reponse 'et ça imprime...
     Next
  Else 'Si l'utilisateur a échappé ou annulé
     Cancel = True
   End If
   End With
End Sub

Bonsoir sabV

Merci pour ton retour. J'ai mis le code du logo sur toutes les feuilles et le code d'impression sur le workbook. Le logo super ça fonctionne bien. Pour l'impression du classeur, j'ai un message d'erreur quand j'ai rentré le nom : "[accès refusé, vous ne disposez pas de privilèges suffisants pour terminer cette opération]. Que je fasse fin ou débogage, ça imprime mais le nom ne s'imprime que sur la première page.

J'ai enlevé le code qui affiche le logo et là j'ai plus de problème à l'impression du classeur. N'y aurait-il pas une incompatibilité entre les 2 codes?, je ne comprends pas.....

Bonne soirée

bonjour,

la macro suivante doit être mit uniquement sur la page code "page de garde"

et la macro Workbook_BeforePrint doit être mit sur la page code de ThisWorkbook

voici le fichier exemple,

Bonjour et encore merci.

J'ai bien mis le code macro uniquement sur la page de garde mais cela ne règle pas mon problème, j'ai toujours le même message d'erreur.

J'attendais ce matin pour voir sur mon PC de boulot si j'avais la même réaction et effectivement j'ai toujours ce message "[accès refusé, vous ne disposez pas de privilèges suffisants pour terminer cette opération].

Si tu peux me débloquer.

Bonne journée

Bonjour,

l'erreur se produit t'il sur le fichier que j'ai transmit ?

Bonsoir,

OUI l'erreur se produit aussi sur le fichier que tu m'as transmis.

Bonne soirée

Bonjour,

à tester,

code dans ThisWorkbook,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Reponse As String
Application.EnableEvents = False
Reponse = InputBox("Quel est votre nom ?", "Votre nom")

'Si l'utilisateur a entré un nom
  If Reponse <> "" Then
     For Each f In Worksheets
      Sheets(f.Name).Range("L1").Value = Reponse 'et ça imprime...
     Next
  Else 'Si l'utilisateur a échappé ou annulé
     Cancel = True
  End If
Application.EnableEvents = True
End Sub

Bonsoir,

Super ça marche bien, c'est ce que je voulais.

Bravo à toi et merci beaucoup pour ta disponibilité.