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

Christian0258 · 9 Octobre 2016

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 · 9 Octobre 2016

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 · 9 Octobre 2016

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+

Christian0258 · 9 Octobre 2016

Re, le forum, Dranreb, Paf

Merci beaucoup pour vos solutions, c'est impec.

Bien à vous,
Christian

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

Christian0258

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires