Macro a executer dans toutes les feuilles

Bonjour Cyrille,

Pour placer la date dans chaque feuille :
Sub Feuilles()
For Each f In ActiveWorkbook.Sheets
f.Activate
Range("a1") = Date
Next
End Sub

Camille
"Cyrille" wrote:

Bonjour
Comment dire à une macro de s'executer sur chaque feuille de mon classeur
actif?
Que le programme aille dans la 1ere feuile du classeur (qui s'appelle pas
feuil1 je le précise), et après qu'il passe à la seconde... ca jusqu'a la
derniere feuille du classeur actif.

Merci d'avance

Salut bien

For k = 1 To Sheets.Count
'exemple
Sheets(k).[A1] = Sheets(k).Name
'le reste de la macro
Next

Youky

ca ne marche pas parce qu'il faudrait qu'il passe automatiquement de la
première feuille à la suivante...jusqu'à la dernière du classeur.

Merci

Salut bien

For k = 1 To Sheets.Count
'exemple
Sheets(k).[A1] = Sheets(k).Name
'le reste de la macro
Next

Youky

Alors peut être comme ceci
Youky

Sub Macro1()
For k = 1 To Sheets.Count - 1
If Sheets(k).Name = ActiveSheet.Name Then
Sheets(k + 1).Select
Exit Sub
End If
Next
End Sub

"Cyrille" <Cyrille@discussions.microsoft.com> a écrit dans le message de
news: 371C1ECB-F310-47FF-A9FC-84DB62EBDA55@microsoft.com...

ca ne marche pas parce qu'il faudrait qu'il passe automatiquement de la
première feuille à la suivante...jusqu'à la dernière du classeur.

Merci

Salut bien

For k = 1 To Sheets.Count
'exemple
Sheets(k).[A1] = Sheets(k).Name
'le reste de la macro
Next

Youky