Macro sur plusieurs feuilles.

bonjour Denys,

Sub Final()
For Each f In Worksheets
y = Right(f.CodeName, Len(f.CodeName) - 5)
If y <= 14 Then Call Calcul
Next
End Sub

isabelle

Bonjour à tous,

Pourriez-vous m'indiquer comment simplifier l'instruction suivante:

Sub Final

Sheet1.Select
Call Calcul

Sheet2.Select
Call Calcul

Sheet3.Select
Call Calcul

etc..... jusqu'à la feuille 14

End Sub

Calcul se trouve dans le module 1. Sub Final est appelé à la fermeture de
l'application.

Merci pour votre aide

Denys

Bonsoir,

Ceci peut-être
'--------
Sub finale()
For i = 1 To 14
'Sheets("Feuil" & i).Select
'a valider si Sélection du nom des feuilles en français

Sheets("Sheet" & i).Select 'Validation en cours

'Sheets(i).Select
'a valider si sélection du nom des feuilles en vba
Call calcul
Next
End Sub
'---------
Salutations
JJ

"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de
news:C75A88CE-E880-4AEA-A13C-492EDB3A880A@microsoft.com...

Bonjour à tous,

Pourriez-vous m'indiquer comment simplifier l'instruction suivante:

Sub Final

Sheet1.Select
Call Calcul

Sheet2.Select
Call Calcul

Sheet3.Select
Call Calcul

etc..... jusqu'à la feuille 14

End Sub

Calcul se trouve dans le module 1. Sub Final est appelé à la fermeture de
l'application.

Merci pour votre aide

Denys

Bonjour Isabelle et Jacky,

Merci beaucoup. Je me doutais bien qu'il y aurait un moyen plus rapide...

Bonne journée

Denys

Bonsoir,

Ceci peut-être
'--------
Sub finale()
For i = 1 To 14
'Sheets("Feuil" & i).Select
'a valider si Sélection du nom des feuilles en français

Sheets("Sheet" & i).Select 'Validation en cours

'Sheets(i).Select
'a valider si sélection du nom des feuilles en vba
Call calcul
Next
End Sub
'---------
Salutations
JJ

"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de
news:C75A88CE-E880-4AEA-A13C-492EDB3A880A@microsoft.com...

Bonjour à tous,

Pourriez-vous m'indiquer comment simplifier l'instruction suivante:

Sub Final

Sheet1.Select
Call Calcul

Sheet2.Select
Call Calcul

Sheet3.Select
Call Calcul

etc..... jusqu'à la feuille 14

End Sub

Calcul se trouve dans le module 1. Sub Final est appelé à la fermeture de
l'application.

Merci pour votre aide

Denys