Macro avec plusieurs feuilles.

[JJ1]

Bonjour,

Pouvez-vous m'expliquer comment lancer la même macro sur cinq feuilles en même temps?

Je joins un exemple (ne pas tenir compte des calculs sur les feuilles, c'est juste pour montrer)

Faut-il copier la macro sur les 5 feuilles?
Pour le moment, elle est en Feuil1 avec un bouton.


merci

 

[CHALET53]

Re : Macro avec plusieurs feuilles.

Bonjour,

peut-être en rajoutant les instructions en gras :

Sub Macro()
Dim i As Long
'Dim j As Integer
i = 0
'j = 0
'Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Sheets

Sheets(sh.Name).Activate
For i = 1 To 5000
Randomize
Set dico = CreateObject("Scripting.dictionary")
While dico.Count < 4
x = Int((20 * Rnd) + 1)
dico(x) = x
Wend
Range("G1").Resize(, 4) = dico.keys
If [G4] = 3 Then [G1:J1].Copy Range("AT" & Cells(Rows.Count, 47).End(xlUp).Row + 1)
'If [G4] =3 Then j = j + 1
'Application.StatusBar = j
Next i
Next
'Application.ScreenUpdating = True
End Sub

 

[Jacou]

Re : Macro avec plusieurs feuilles.

Bonjour JJ1,
je ne comprends pas bien ce que tu voudrais faire.
ta macro n'est pas "dans une feuille", mais dans le module "module1"
souhaites-tu que quand tu cliques sur le bouton d'une des 5 feuilles, la macro travaille successivement sur les 5 feuilles ?

 

[JJ1]

Re : Macro avec plusieurs feuilles.

Bonjour,

Oui Jacou je voudrais en lançant le bouton, faire travailler la macro sur les 5 feuilles parallèlement.

La méthode de boucle de Chalet ne fonctionne pas, uniquement la feuille1 affiche des résultats.

merci
a+

 

[CHALET53]

Re : Macro avec plusieurs feuilles.

La macro prend les feuilles les unes à la suite des autres
Il y a des résultats sur toutes les feuilles

a+

 

[JJ1]

Re : Macro avec plusieurs feuilles.

Re,

J'ai compris maintenant, elle fait les x boucles du i, puis passe à la 2ème feuille et etc...

Est-il possible de passer à la feuille suivante après un résultat du IF et sa copie:

If [G4] = 3 Then [G1:J1].Copy Range("AT" & Cells(Rows.Count, 47).End(xlUp).Row + 1)

Alors passer à la feuille suivante (jusqu'à la 5 éme et Fin)

merci