Ma syntaxe pour lancement de macros n'est pas bonne...

Christian0258

XLDnaute Accro
Re, bonjour à tout le forum,

J'ai 4 macros qui fonctionnent parfaitement.
Je souhaiterais lancer 3 macros si en J4 =2 et 3 macros si en J4 = 1
j'ai fait ça...mais ça plante, quelle est la bonne syntaxe ?

Sub Archiver_Pdf_Raz()
If Range("J4").Value = 2 Then
Call OptimiseTempsExecArchivlign15
Else
Call EnregDevisFormulaire_Pdf
Else
Call RAZ
End If

If Range("J4").Value = 1 Then
Call OptimiseTempsExecArchivlign15
Else
Call EnregFactures_Pdf
Else
Call RAZ
End If

End Sub

Merci pour votre aide.
Christian
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Dans la bonne syntaxe d'un bloc If il ne peut y avoir qu'un sous bloc Else en dernier avant le End If
Mais avant lui il peut y avoir après le bloc If condition1 Then plusieurs sous blocs ElseIf conditionx Then
Dans votre cas il vaudrait mieux Select Case Range("J4").Value
Case 1: OptimiseTempsExecArchivlign15: EnregDevisFormulaire_Pd
Case 2: OptimiseTempsExecArchivlign15: EnregFactures_Pdf
Case Else: RAZ: End Select
 

Paf

XLDnaute Barbatruc
Bonjour à tous

ou bien en gardant la structure initiale

Code:
Sub Archiver_Pdf_Raz()
 Call OptimiseTempsExecArchivlign15
If Range("J4").Value = 2 Then
    Call EnregDevisFormulaire_Pdf
    Call RAZ
End If
If Range("J4").Value = 1 Then
    Call EnregFactures_Pdf
   Call RAZ
End If
End Sub
Nb: avec ou sans Call

A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas