Boucle pour plusieiurs feuilles

[Olette]

Bonjour,

Je souhaiterai traiter des données sur différents onglets.
Le tratietment pour une feuille est deja ecroit mais je n'arrive pas à passer de feuille en feuille pour lui faire executer ma macro ...

Quelqu'un aurait-il une soluce ?

D'avance, Merci

Olette

 

[@Christophe@]

Bonjour,

Place le code suivant dans un module:

Option Explicit
Dim WS As Worksheet

Sub test()
For Each WS In Worksheets

'''Ton code
MsgBox WS.Name
'''

Next WS
End Sub


Bonne chance

@Christophe@

 

[Olette]

Merci pour le coup de main

 

[Olette]

J'ai pris un classeur vierge et j'ai voulu tester ta macro dont voila le code:


Option Explicit
Dim WS As Worksheet

Sub Macro1()

For Each WS In Worksheets
Range("A1").Select
ActiveCell.Value = "OK"
MsgBox WS.Name
Next WS

End Sub

Au résultat, Ok n'est inscrit que sur la première feuille ... et pas sur les autres.
C'est sans doute moi qui n'est pas su la mettre en place mais je sollicite une fois de plus ton aide !!!
Merci pour le coup de main.

Olette

 

[@Christophe@]

Bonjour,

Tu as oublié de lui dire WS. devant range

Sans le WS. il fait ce que tu demande sur la feuille active:

Voila le code:

Option Explicit
Dim WS As Worksheet

Sub Macro1()

For Each WS In Worksheets
WS.Range("A1").Value = "OK"
Next WS
End Sub

Bonne chance

@Christophe@

 

[Pascal76]

salut Olette

Il faut mettre

ws.range("A1")="OK"

Bon courage

Pascal

 

[Pascal76]

Oups Christophe on s'est croisé

Bonne journée

Pascal

 

[Olette]

J'abuse encore un peu de ton aide mais je me pose encore une question.
Ma macro est assez longue, dois-je rajouter WS. devant toutes les lignes de commande ?

 

[Olette]

J'abuse encore un peu de ton aide mais je me pose encore une question.
Ma macro est assez longue, dois-je rajouter WS. devant toutes les lignes de commande ?

 

[@Christophe@]

Re

Non, t'inquite

Il te suffit alors d'activer la feuille en début de macro, comme cela.
J'ai mes des App...Screenupdating pour que tu ne vois pas la macro s'exécuter.


Option Explicit
Dim WS As Worksheet

Sub Macro1()
Application.ScreenUpdating = False 'Pour ne pas voir les changement s'éffectuer
For Each WS In Worksheets
WS.Activate
Range("A1").Value = "OK"
Next WS
Application.ScreenUpdating = True 'Pas oublier de remettre à true!
End Sub


Et voila

@Christophe@

 

[Olette]

Nickel, merci beaucoup !

 

[@Christophe@]

Content de t'avoir aidé


Bonjour Pascal

Bonne journée à tous

@Christophe@