écrire ds une autre feuille du classeur

[Eric D]

Bonjour à toutes et à tous,

Je souhaiterais écrire une valeur ds toutes les pages de mon classeur. J'utilise ce code:

Private Feuille As Object
For Each Feuille In ThisWorkbook.Sheets
Range('A1').Value = 'ma valeur'
Next Feuille

mais cela ne fait pas ce que je veux. Pourquoi?
Merci pour votre aide

Eric D

 

[Minick]

Salut,

Tu as oublié de prendre en compte la feuille sur laquelle tu veux faire
ton changement.

Donc par defaut il change A1 de la feuille active

Essai plutot comme cela:

 Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
Feuille.Range('A1').Value = 'ma valeur'
Next Feuille

@+

 

[PascalXLD]

Bonjour

Essaies ceci

Dim Feuille as Worksheet

for each Feuille in Worksheets
Feuille.Range('A1')='mavaleur'
next

Bon courage

 

[PascalXLD]

OUps

On arrive à se telescoper même à cette heure matinale

Bonne journée Minick et bonjour au bébé

 

[Minick]

Coucou,

Ben vi oops, un choc frontal matinal, ca reveil

Bonne journée à toi également

@+

 

[Eric D]

Bonjour Pascal76, Minick ,le forum,

Bien sur, merci à vous deux 'bonne santé' et plus sérieusement bonne journée.

Eric D