Gérer et basculer sur des onglets incrémentés
Bonjour,
j'ai une macro qui réalise une sous macro pour différents onglets qui s'incrémentent:
'TCDATA02: graphique sur onglet: macro
Worksheets("TCDATA02_B3").Activate
sous_macro_graphique
'TCDATA03: graphique sur onglet: macro
Worksheets("TCDATA03_B3").Activate
sous_macro_graphique
'TCDATA04: graphique sur onglet: macro
Worksheets("TCDATA04_B3").Activate
sous_macro_graphique
'TCDATA05: graphique sur onglet: macro
Worksheets("TCDATA05_B3").Activate
sous_macro_graphique
'TCDATA06: graphique sur onglet: macro
Worksheets("TCDATA06_B3").Activate
sous_macro_graphique
Je pensais raccourci en écrivant:
Dim k As Byte
For k = 2 To 6
Worksheets("TCDATA0(" & k & " )_A3").Activate
sous_macro_graphique
Next k
Mais ça ne fonctionne pas, je n'arrive pas à basculer sur mon onglet TCDATA02_A3 et ni sur les autres.
Y a-t-il une solution simple (erreur de syntaxe sans doute).
Je voudrais simplifier ma macro, puisque j'ai beaucoup d'onglets qui sont incrémentés dans le même style.
Merci et bon week-end à tous
Bonjour
Sheets("TCDATA0" & k & "_A3").ActivateCordialement
Bonjour et Merci,
C'est impeccable.
Je vais pouvoir diminuer la taille de mes macros.
Merci encore.
Luluke