Boucle pour plusieiurs feuilles

@

@Christophe@

Guest

• 4 Mars 2004

• #2

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@

 

Vote positif 0 Vote négatif

O

Olette

Guest

• 4 Mars 2004

• #3

Merci pour le coup de main

 

Vote positif 0 Vote négatif

O

Olette

Guest

• 4 Mars 2004

• #4

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

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 4 Mars 2004

• #5

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@

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 4 Mars 2004

• #6

salut Olette

Il faut mettre

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

Bon courage

Pascal

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 4 Mars 2004

• #7

Oups Christophe on s'est croisé

Bonne journée

Pascal

 

Vote positif 0 Vote négatif

O

Olette

Guest

• 4 Mars 2004

• #8

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 ?

 

Vote positif 0 Vote négatif

O

Olette

Guest

• 4 Mars 2004

• #9

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 ?

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 4 Mars 2004

• #10

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@

 

Vote positif 0 Vote négatif

O

Olette

Guest

• 4 Mars 2004

• #11

Nickel, merci beaucoup !

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 4 Mars 2004

• #12

Content de t'avoir aidé


Bonjour Pascal

Bonne journée à tous

@Christophe@

 

Vote positif 0 Vote négatif