Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

écrire ds une autre feuille du classeur

  • Initiateur de la discussion Eric D
  • Date de début
E

Eric D

Guest
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

XLDnaute Impliqué
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:
Code:
 Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
Feuille.Range('A1').Value = 'ma valeur'
Next Feuille

@+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…