ACTION D'une macro

[mcj1997]

Bonjour,

Comment appliquer l'action d'une macro qui est par exemple sur la feuille 1, simultanément sur la feuille 1 / feuille 2 et feuille 3, que faut-il rajouter dans le module ?


Merci d'avance,

 

[phlaurent55]

Re : ACTION D'une macro

Bonjour mcj1997,

il te faut mettre ton code dans une boucle
For...........

Next

qui sélectionnera les différentes feuilles

à+
Philippe

 

[mcj1997]

Re : ACTION D'une macro

merci même si la réponse est on ne peut plus succinte.

 

[phlaurent55]

Re : ACTION D'une macro

Re,

ayant un peu plus de temps libre aujourd'hui, j'ai pris le temps de faire un exemple plus parlant

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

à+
Philippe

 

[Pierrot93]

Re : ACTION D'une macro

Bonjour,

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

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
@+

 

[mcj1997]

Re : ACTION D'une macro

Bonjour,

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

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
@+

Bonjour,

Merci à tous les deux et bonne journée.