Espacer lancement macros

Version imprimable

23/06/2011, 11h39
Rough43

Espacer lancement macros

Bonjour à tous,

j'ai fait plusieurs macros avec chacun au bout d'un code un msgbox de confirmation (l'opération s'est bien déroulé)

Or ces macros suivent d'étape en étape.

Je souhaite de les regrouper mais serait il possible de les laisser espacer d'un certain temps?

exemple :
sub LancerIntegrale

Run Macro1

Run Macro2

Run Macro 3 ainsi de la suite...

end sub

et comment interrompre le déroulement si erreur opération?

merci et bon appétit!

rough

bonjour,

je comprends pas ton histoire de les espacer d'un certain temps... :koi:
sinon pour avoir retour de tes macros utilise des fonctions...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub LancerInegrale
 Dim ret as  integer  
  If Not MaFonction1 Then 
           MsgBox "Erreur fonction 1"
           exit sub 
  end if
 
 If Not MaFonction2 Then 
           MsgBox "Erreur fonction 2"
           exit sub 
  end if
'Tu peu même avoir une fonction qui renvoi un code d'erreur
 ret = Fonction3
if ret <> 0 then
   MsgBox "Erreur N°" & ret & " Fonction 3"
  exit sub
end if
end sub
 
Function Mafonction1 as booelan
 '... ton code
 MaFonction1 = True 'Retourne OK
End function
 
Function Mafonction2 as booelan
 '... ton code
 MaFonction2 = True 'Retourne OK
End function
 
Function Mafonction3 as integer
   '... ton code
   MaFonction3 = 2 ' Retour code d'erreur 2
End function

23/06/2011, 13h56
Rough43

bonjour bbil,

effectivement votre solution est efficace et pratique!

merci beaucoup

je close et mets résolu!:ccool:

bien cordialement