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

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

Christian0258

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency