Code unique avec nom de feuille en variable

Version imprimable

26/04/2015, 16h47
alexr05

Code unique avec nom de feuille en variable

Bonjour,

Dans un classeur, j'ai une trentaine de feuilles : je souhaite si c'est possible avoir un code unique (sur un module ?) pour l'ensemble des feuilles et avoir le nom de chaque feuille en variable. Est-ce que c'est possible ?

Merci ;)

Bonjour,

Une solution possible :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub TestCodePourUnOnglet()
 
Dim Sh As Worksheet
 
    For Each Sh In ActiveWorkbook.Worksheets
        CodePourUnOnglet Sh
    Next Sh
 
End Sub
 
Sub CodePourUnOnglet(ByVal FeuilleEnCours As Worksheet)
 
   With FeuilleEnCours
 
        ' Suite du code
        ' MsgBox FeuilleEnCours.Name
 
   End With
 
End Sub

Cordialement.

Une autre solution, pour contrôler les onglets qui ne doivent pas être traités

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub TestCodePourUnOnglet()
 
Dim Sh As Worksheet
Dim OngletsNonConcernes As Variant
Dim I As Integer
Dim Continuer As Boolean
 
    OngletsNonConcernes = Array("Feuil1", "Feuil2")
 
    For Each Sh In ActiveWorkbook.Worksheets
 
        Continuer = True
        For I = LBound(OngletsNonConcernes, 1) To UBound(OngletsNonConcernes, 1)
            If Sh.Name = OngletsNonConcernes(I) Then Continuer = False
        Next I
 
        If Continuer = True Then CodePourUnOnglet Sh
 
    Next Sh
 
End Sub
 
Sub CodePourUnOnglet(ByVal FeuilleEnCours As Worksheet)
 
   With FeuilleEnCours
 
        ' Suite du code
         MsgBox FeuilleEnCours.Name
 
   End With
 
End Sub

Cordialement.

26/04/2015, 17h05
alexr05

ok merci, je teste et je vous tiens au courant
26/04/2015, 17h38
alexr05

avec le 2ème, est-ce que je peux lancer le code sur toutes les feuilles en même temps ?
26/04/2015, 18h03
Invité

Citation:

Envoyé par alexr05

avec le 2ème, est-ce que je peux lancer le code sur toutes les feuilles en même temps ?

Le code va traiter tous les onglets qui ne seront pas écartés, un par un.

Cordialement.