Macro qui s'exécute sur tous les onglets

Bonjour, je suis débutant en macro. Je souhaiterais créer une macro qui me mette la même en tête de page sur tous les onglets d'un fichier. Pour le moment, j'en suis à

Code:

---

1 2 3 4 5 6

Sub EnTete ()   ActiveSheet.PageSetup.LeftHeader = "" ActiveSheet.PageSetup.CenterHeader = ""   End Sub

---

Le problème est que cette macro ne semble s'exécuter que sur l'onglet actif.
De plus, je voudrais que le texte me soit demander par une boîte de dialogue afin que je puisse le rentrer au clavier.

Merci pour votre aide.

Premièrement utilise :tagcode: si tu ne sais pas temps servir regarde le post aide a l'utilisation.

Pour ton problème
Activesheet indique la feuil active donc c'est normale que ton code ne fonctionne que pour elle, il te faut boucler sur tous les onglet
tu peux essayer quelque chose comme ca, la on affiche les nom des onglet je te laisse adapter (si tu débute en VBA et que cela te pose problème dit le mais essaye avant ;) )

Code:

---

1 2 3 4

Dim Sh As Worksheet For Each Sh In Sheets MsgBox Sh.Name Next Sh

---

Pour ce qui est de récupérer les info par une box regarde un peux ce tutoriel
La MsgBox décortiquée

Merci pour ton aide, maintenant j'arrive bien à changer les entêtes de toutes les pages.

En revanche, je crois que le msgbox n'est pas ce qu'il me faut. Ce qu'il fait là est juste m'écrire dans une boîte de dialogue le nom de l'onglet qu'il est en train de traîter.

Ce que je souhaite c'est qu'une seule fois pour tous les onglets, il y ait une boîte de dialogue qui s'ouvre et me demande de rentrer la date par exemple. Ensuite je puisse récupérer cette date afin de la mettre dans l'entête, c'est à dire savoir où récupérer cette variable de type String.

Bonjour,

Regarde du côté des InputBox. Tu trouveras tout ce qu'il te faut dessus dans les FAQ et Tutos :zoubi: C'est exactement ce qu'il te faut.

En gros, cela s'utilise comme ça :

Code:

---

1 2 3

Dim MaVar as String   MaVar = InputBox(...)

---

Les InputBox ouvrent une fenêtre de saisie où tu y rentres ce que tu veux. Ainsi, ton texte sera stocké dans une variable de type String. Tu pourras donc en faire ce que tu veux.

Krovax, que je salue, t'a donné la MsgBox à titre d'exemple seulement, ce n'était pas pour l'utiliser.

Bien entendu, pense à mettre l'InputBox dans la boucle.

Bonne chance !

bonjour idckhorne Krovax DeaD78 le forum copy la date en a1 dans toutes les feuilles a adapter

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim x As Variant, Sh As Worksheet, i As String i = ActiveSheet.Name x = InputBox("entrez une date") Application.ScreenUpdating = False For Each Sh In Sheets Sh.Activate: [a1] = x Next Sh Sheets(i).Activate: Beep End Sub

---