ACTION D'une macro

Sub Macro1()
' pour mettre "Bonjour" dans la cellule A1 de chaque feuille
' sans sélectionner les feuilles
For i = 1 To 3
Sheets(i).[A1] = "Bonjour"
Next i
' on peut faire la même chose en sélectionnant les feuilles
For i = 1 To 3
Sheets(i).Select
[B1] = "mcj1997"
Next i
End Sub

Cliquez pour agrandir...

Pierrot93 à dit:

Bonjour,

si les feuilles ne sont pas les premières dans l'index :

Code:

Dim mesfeuilles() As Variant, i As Byte
mesfeuilles = Array("Feuil1", "Feuil2")
For i = 0 To UBound(mesfeuilles)
    Sheets(mesfeuilles(i)).Range("A1").Value = 123
Next i

bonne journée
@+

Cliquez pour agrandir...