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,
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 :
Cordialement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Une autre solution, pour contrôler les onglets qui ne doivent pas être traités
Cordialement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
ok merci, je teste et je vous tiens au courant
avec le 2ème, est-ce que je peux lancer le code sur toutes les feuilles en même temps ?
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager