execution d\'une procedure

[lamull]

execution d'une procedure

bonjour les gens!
voila mon petit probleme
j'ai un classeur où sur chaque feuille je peux executer une procedure qui me permet de faire differents calculs
mais j'aimerai egalement lancer cette procedure à chaque ouverture du classeur sur toutes les feuilles,sans que je sois obligé de sélectionner les feuilles une par une
or quand j'utilise workbook_open et call 'la procedure', ben il me calcul e que sur la page active (c'est logique 😉 )
donc comment faire?
merci 🙂

Message édité par: lamull, à: 20/03/2005 13:56

 

[pat1545]

Re:execution d'une procedure

Salut,
nbonglets = ActiveWorkbook.Sheets.Count
for i = 1 to nbonglets
sheets(i).activate
ton code
next


Patrick

 

[CBernardT]

Re:execution d'une procedure

Bonjour Lamull et Pat1545

Macro à placer dans le module du classeur.

Private Sub Workbook_Open()
Dim i As Byte

Application.ScreenUpdating = False
For i = 1 To Sheets.Count ' Boucle sur les feuilles
'''Mettre ici le nom de la procédure que tu veux lancer sur toutes les feuilles
Next i
Application.ScreenUpdating = True
End Sub

Cordialement

CBernardT

 

[galopin01]

Re:execution d'une procedure

bonjour,
ou encore...

For Each O In Worksheets
O.Activate
maprocedure
Next

A+

 

[lamull]

Re:execution d'une procedure

merci à vous tous ca fonctionne nikel