Discussion :

[idckhorne]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Krovax]

Premièrement utilise 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[idckhorne]

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.

[DeaD78]

Bonjour,

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

En gros, cela s'utilise comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[laetitia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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