Macro sur toutes mes feuilles

[Olivier]

Bonjour à vous toutes et tous,

afin d'alléger et conserver mes fichiers xl après utilisation, j'ai l'habitude de faire un copier/coller spécial "valeurs" de toutes mes feuilles. J'aimeraisx bien automatiser un peu cette tâche rébarbative. J'ai donc créer une petite macro que j'ai appliqué à la combinaison Ctrl(w). Je n'ai plus qu'à activer les feuilles les unes après les autres et faire Ctrl(w) pour effectuer la tache. c'est déjà mieux comme ça. Mais je voudrais encore faire mieux, c'est à dire n'avoir même plus à activer les feuilles manuellement mais que cela se fasse dans la macro, mais j'avoue que j'y arrive pas. J'essaye de faire un truc du genre:
For F=1 to 16
Sheets("Feuil"&F).Activate
Sheets("Feuil"&F).Select
...
next F

Mais le problème c'est que j'ai plein de feuilles qui ont des noms différents ???

Si quelqu'un a la solution, c'est cool ;-)

Merci
@+
Olivier

 

[Denis]

As tu essayé en activant la première feuille (la plus à gauche) et en utilisant la fonction:
Nextsheet
?

L'équivalent d'un shift + paragraphe ?

Denis

 

[macpoy]

bonsoir olivier, bonsoir le forum,
essayes ceci:
dim i as integer
for i=1 to worksheets.count

..........
next

 

[macpoy]

re
oups désolé denis je ne t'avais pas vu venir.!!!!