Exécution macros.

pierrejean

XLDnaute Barbatruc

• 6 Décembre 2013

• #2

Re : Exécution macros.

Bonjour JJ1

Supposant macro1 et macro2 on peut essayer:

sub macro1
call macro2
.......
end sub

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 6 Décembre 2013

• #3

Re : Exécution macros.

Bonjour Pierre Jean,

Merci pour ta réponse, donc j'exécute la 1ère et j'appelle la 2ème à sa suite? C'est bien ça.
Peut-on partager Excel en 2 écrans pour visualiser l'exécution simultanée ?
Mon status bar va prendre la 1ere ou la 2ème (ou les 2 ?)

c'est pas évident.

merci

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 6 Décembre 2013

• #4

Re : Exécution macros.

Bonjour le Forum

Pour info je pense que la Macro 1 s'exécute jusque Call Macro 2, la Macro 2 s'exécute entièrement, puis la Macro 1 reprend la suite de son Code.

Au faite ces Macro 1 et 2 sont les mêmes ? Si elle sont liés à un onglet leurs lancement est il liés a l'ouverture par exemple ?

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 6 Décembre 2013

• #5

Re : Exécution macros.

Bonjour WDAndCo,

Oui les macros sont les mêmes, seul les données diffèrent.
je voudrais qu'elles s'exécutent pas une qui termine et l'autre qui commence, mais si possible simultanément (
feuil1 action, feuil2 action, feuil1 action..etc...)

Mais je ne sais pas si c'est réalisable.

A+
merci

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 6 Décembre 2013

• #6

Re : Exécution macros.

Bonjour le Forum et JJ1

Peut être une seule Macro avec un code qui appel les données de l'onglet 1, puis celles de l'onglet 12 ainsi de suite.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Décembre 2013

• #7

Re : Exécution macros.

Re

A vrai dire moi non plus ,c'est pour cela que j'ai écrit: on peut essayer
Mais il y a une autre solution qui dépend des macros en question :
Créer une macro unique qui alterne le traitement ligne par ligne
Peux-tu nous poster ces satanées macros ??

Edit: Salut WD and Co

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 6 Décembre 2013

• #8

Re : Exécution macros.

Re,

Je pense avoir trouvé une solution, j'ai dupliqué les 2 macros mais sur la même feuille en mettant les 2 séries de valeurs.
Ca a l'air de fonctionner (même si c'est pas très catholique.....)
Je reviens vers vous si j'ai un souci.

Merci
Bon app.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 6 Décembre 2013

• #9

Re : Exécution macros.

Bonjour à tous

Je pense avoir trouvé une solution, j'ai dupliqué les 2 macros mais sur la même feuille en mettant les 2 séries de valeurs.

Cliquez pour agrandir...

OK, mais cela m'étonnerait qu'elles fonctionnent en même temps. Pour cela, il faut chronomètré.

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 6 Décembre 2013

• #10

Re : Exécution macros.

Re,
Voici la macro que j'ai dupliquée.

Sub Toto()
Dim B As Long, O As Integer, P As Integer
Application.ScreenUpdating = False
[BD1] = 0
[BM1] = 0
Randomize
Application.Calculation = xlCalculationManual
B = 0
While B < 1000
Application.Calculate
B = B + 1
If [BD3] > O Then
Range("F5:O5").Copy
Range("F2").PasteSpecial Paste:=xlPasteValues
O = [BD3]: [BD1] = O
Randomize


If [BM3] > P Then
Range("F5:J5").Copy
Range("BW2").PasteSpecial Paste:=xlPasteValues
P = [BM3]: [BM1] = P
Randomize
[A1].Select
End If
End If
Application.StatusBar = " Max : " & O & " Max2 : " & P
Wend
Application.ScreenUpdating = True
End Sub


Ces macros conservent en BD1 et BM1 la valeur maximale trouvée en BD3 et BM3 et font une copie en F2 et BW2.
Ma méthode est très lente et semble sauter des étapes?

une idée de correction?

merci
A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Décembre 2013

• #11

Re : Exécution macros.

Re

Que fait le randomize ici ??

Peux-tu faire un petit fichier exemple S.T.P ??

Salut michel

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 6 Décembre 2013

• #12

Re : Exécution macros.

Re,
Oui et j'aurais du commencer par là.

Voici un exemple.Merci

A+

 

Pièces jointes

• exemple.zip

  78.6 KB · Affichages: 32
• exemple.zip

  78.6 KB · Affichages: 32
• exemple.zip

  78.6 KB · Affichages: 33

Vote positif 0 Vote négatif