Exécution macros.

[JJ1]

Bonjour,

J'ai un code vba qui fonctionne sur la Feuil1 avec des données.
J'ai copié la même macro en Feuil12 avec des données différentes.
Je souhaiterais que les 2 macros fonctionnent en même temps, est-ce possible?

merci à vous.

 

[pierrejean]

Re : Exécution macros.

Bonjour JJ1

Supposant macro1 et macro2 on peut essayer:

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

 

[JJ1]

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

 

[WDAndCo]

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 ?

 

[JJ1]

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

 

[WDAndCo]

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.

 

[pierrejean]

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

 

[JJ1]

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.

 

[MJ13]

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.

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

 

[JJ1]

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+

 

[pierrejean]

Re : Exécution macros.

Re

Que fait le randomize ici ??

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

Salut michel

 

[JJ1]

Re : Exécution macros.

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

Voici un exemple.Merci

A+