Discussion :

[amalane]

Bonjour,

J'aimerais savoir si quelqu'un connait une façon de lancer simultanément 2 macros ...

Je m'explique, j'aimerais lancer une macro dont une fonction va faire apparaitre une boîte de dialogue, et je voudrais la remplire automatiquement. Mais tant que la boite de dialogue est affichée, ma macro est en attente, donc je ne peux pas envoyer de donnée dans ma boite de dialogue en même temps.
Je me disais donc que si une autre macro tournait en même temps (à partir d'une autre session d'excel par exemple), je pourrais faire avec un contrôle de la presence de la boite de dialogue et la renseigner des qu'elle apparait.

(Je vous précise que je sais déjà comment identifier la boite de dialogue en question lorsqu'elle apparait)

Vous allez me dire : pourquoi tu fais apparaitre une boite de dialogue puisque tu la renseigne toi meme ? mais en fait je n'ai pas le choix car je dois impérativement, à uin moment donné utiliser une fonction programmée par quelqu'un d'autre.

[SfJ5Rpw8]

bon j'ai pas tout compris sur l'histoire des 2 macros.... mais voir peu-être :

Comment bloquer le code en utilisant une UserForm non modale ?

qui te permet d'ouvrir une boîte de dialogue sans bloquer le code...?

[ouskel'n'or]

Je rejoins bbil : C'est quoi ta "boîte de dialogue" ? Si c'est un msgox ou un inputbox, remplace la par un userform.

[alsimbad]

je vois pas ou est le probleme

la boite de dialogue est affichée, ma macro est en attente, donc je ne peux pas envoyer de donnée dans ma boite de dialogue en même temps.

actuellement tu fais

Code :

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

1
2
3
4
5
6
7
8
sub moncode
début du code
usf1.show
reste du code
end sub
et 
usf1.initialize()
end sub

et il te suffit de faire

Code :

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

1
2
3
4
5
6
7
8
sub macro A
début du code
usf1.show
end sub
et 
sub usf1.initialize()
reste du code
end sub

[amalane]

Non, ça ne marche pas.
Si je fais ça, la userform s'affiche à la fin du code d'initialisation

Par exemple : Je veux afficher une userform qui affiche l'évolution d'une variable pour en suivre l'évolution durant le code :

For i = 1 To 200000
UserForm_test.nombre = i
UserForm_test.Repaint
Next

Si je place ce code dans UserForm_Initialize :

Code :

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

1
2
3
sub macro A
 UserForm_test.show
end sub

et

Code :

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

1
2
3
4
5
6
sub UserForm_initialize()
For i = 1 To 200000
    UserForm_test.nombre = i
    UserForm_test.Repaint
Next
end sub

Alors la userform s'affiche une fois la boucle terminée, en affichant 200000. Moi je voudrais qu'elle s'affiche dès le début de la boucle et voir tous les nombres défiler dedans...

[ouskel'n'or]

Juste pour le principe, ouvre le zip qui est ici et vois si tu peux adapter quelque chose. Il affiche le temps qui passe en millièmes de seconde.
A+

[tangjuncn]

qd tu ouvres 2 workbooks en même temps, tu ne peux pas le remplir par la macro lancée par le 2e workbook?

[patbou]

bonjour
quel est le controle que tu veux faire evoluer en fonction d 1 variable
exterieur ?

[ouskel'n'or]

Si c'est pour un affichage, une textbox ou un label, mais le label suffit.

[SfJ5Rpw8]

bon j'ai pas tout compris sur l'histoire des 2 macros.... mais voir peu-être :

Comment bloquer le code en utilisant une UserForm non modale ?

qui te permet d'ouvrir une boîte de dialogue sans bloquer le code...?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Option Explicit
Sub MacroA()
Dim i As Long
UserForm_test.Show False
For i = 1 To 200000
 UserForm_test.nombre = i 'pas terrible le nom du label mais enfin....
 DoEvents
 If Not UserForm_test.Visible Then Exit For 'Cas ou  fermeture anticipée de la fenêtre
Next
'-- Boucle d'attente fermeture fenêtre
 While UserForm_test.Visible
        DoEvents
 Wend
End Sub