macro répétée pour toutes les sheets

[RHODAN PERRY]

Boujour ALL, beau temps n'est-ce pas ? Un temps à pas rester devant son pc .....mais des fois on n'a pas le choix...siick.


Mon petit pb est que je voudrai qu'une macro s'execute pour toutes
les feuilles d'une classeur (nb et nom variable), j'utilise se code qui ne marche pas bien sûr


Windows("feuille source exp.xls").Activate
For I = 1 To Sheets.Count
'Windows("feuille source exp.xls").Activate
Sheets(I).Select
Range("A4:Y58").Select
Range("A58").Activate
Selection.Copy
Windows("global des.xls").Activate
Range("A3").Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Cells.Select
Application.CutCopyMode = False

End With
Next I


Merci du dépannage

 

[Popeye]

bonjour
La variable Sheets.Count doit peut etre changer puisque tu changes de classeur en court de route
prefere cette solution peut etre

Windows("feuille source exp.xls").Activate
nombrefeuille=Sheets.Count
For I = 1 To nombrefeuille
Windows("feuille source exp.xls").Activate
Sheets(I).Select
Range("A4:Y58").Select
Range("A58").Activate
Selection.Copy
Windows("global des.xls").Activate
Range("A3").Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Cells.Select
Application.CutCopyMode = False

End With
Next I

 

[Roland]

Salut le forum

Voila une boucle for each qui parcourt toutes les feuilles du classeur actif
Dim feuille As Variant
Dim toto As String

For Each feuille In Worksheets
toto = feuille.Name
Next feuille

A++

 

[Roland]

re salut

apres relecture de ton code, a quoi sert ton end with

Sinon le for titi=1 to sheets.count
next titi devrait fonctionner