Discussion :

[Djromé]

Bonjour les Kracks,

J'ai un bloc d'instruction (voir ci-dessous) à répéter pour chaque onglet de mon workbook, et j'aimerai savoir si il y a un moyen de l'enregistrer afin de ne répéter qu'une abréviation au lieu d'alourdir la macro " un peu comme une variable >maVariable = Range("a1").value<, sauf que là j'aurai carrément tout un bloc d'instruction? Est-ce possible?

D'avance merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Range("A10:P" & 10 + Range("h6").Value + Range("I7").Value).Select  'Selection.AutoFill Destination:=Range("A10:P" & varMatched2 + 10)
Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("A10:P" & (9 + Range("h6").Value)).Select
Else
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & 9 + Range("h6").Value

[LeForestier]

Bonjour et bienvenue sur le forum,
Tu doit encadrer le code que tu montre par les balises Code.. Dans l'éditeur.. Sélectionner le code et cliquer sur le bouton #
Ce serai plus façile à décoder
Pour répondre à ta question, tu pourrais mettre ce qu'il y a dans ton If dans une macro et l'appeler après avoir activer la feuille.
Ou faire une boucle sur tioute tes feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Wks as WorkSheet
    For Each Wks in workSheets
        Wks.select
        'Le code de ta macro
    next Wks

A+

[Djromé]

Bonjour LeForestier et merci pour la bienvenue et les conseils d'utilisation!

Ton code est intéressant pour moi, débutant, cependant j'ai pas mal de condition rédhibitoire dont je ne peux tous te les énumérer. Une des plus importantes me permettrait cependant d'aller plus loin, et tu y a mis le doigt dessus d'entrée!
En effet, sur 30 onglets, seule une vingtaine sont impactés. Aussi, j'aimerai savoir si à la place de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Wks in workSheets

N'aurais-tu (j'me permets le tutoiement!) pas un code permettant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Pour chaque cellule contenu dans plagenomongletsimpliqués 'une plage renommé dans un onglet comprenant le nom des feuilles impactées 

Je fais beaucoup de macro au boulot en me basant sur le pas-à-pas, cependant, je m'aperçeois qu'il y a d'autres moyens réduisant considérablement la taille de ses dernières, mais ceux-ci exigent des connaissances appuyées en programmation. Ne connaîtrerais-tu pas un livre intéressant à ce sujet, me permettant de rentrer dans ce monde magique de l'informatique?

Merci pour ton aide

@+