ExcelBanter - That gives me an error... (it indicates that my else has no If ...)

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - That gives me an error... (it indicates that my else has no If ...) (https://www.excelbanter.com/excel-programming/299992-gives-me-error-indicates-my-else-has-no-if.html)

Marie Lavoie

That gives me an error... (it indicates that my else has no If ...)

Am I using the "elseif" like i should?

If Range("A" & i) = "CLS" Then Sheets("CLS").Select ' On sélectionne la
Feuille CLS
ElseIf Range("A" & i) = "CLU" Then Sheets("CLU").Select ' On sélectionne la
Feuille CLU
ElseIf Range("A" & i) = "PLC" Then Sheets("PLC").Select ' On sélectionne la
Feuille PLC
ElseIf Range("A" & i) = "SBCC" Then Sheets("SBCC").Select ' On sélectionne
la Feuille SBCC
ElseIf Range("A" & i) = "SBCE" Then Sheets("SBCE").Select ' On sélectionne
la Feuille SBCE
ElseIf Range("A" & i) = "VAG" Then Sheets("VAG").Select ' On sélectionne la
Feuille VAG
ElseIf Range("A" & i) = "VCL" Then Sheets("VCL").Select ' On sélectionne la
Feuille VCL
ElseIf Range("A" & i) = "VJR" Then Sheets("VJR").Select ' On sélectionne la
Feuille VJR
Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End
End If

thank you for you futur help...
Marie

cucchiaino

That gives me an error... (it indicates that my else has no If ...)

"Marie Lavoie" ha scritto nel messaggio
...
Am I using the "elseif" like i should?

If Range("A" & i) = "CLS" Then Sheets("CLS").Select ' On sélectionne la
Feuille CLS
ElseIf Range("A" & i) = "CLU" Then Sheets("CLU").Select ' On sélectionne
la
Feuille CLU
ElseIf Range("A" & i) = "PLC" Then Sheets("PLC").Select ' On sélectionne
la
Feuille PLC
ElseIf Range("A" & i) = "SBCC" Then Sheets("SBCC").Select ' On sélectionne
la Feuille SBCC
ElseIf Range("A" & i) = "SBCE" Then Sheets("SBCE").Select ' On sélectionne
la Feuille SBCE
ElseIf Range("A" & i) = "VAG" Then Sheets("VAG").Select ' On sélectionne
la
Feuille VAG
ElseIf Range("A" & i) = "VCL" Then Sheets("VCL").Select ' On sélectionne
la
Feuille VCL
ElseIf Range("A" & i) = "VJR" Then Sheets("VJR").Select ' On sélectionne
la
Feuille VJR
Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End
End If

......
Select Case Range("A" & i)
Case "CLS", "CLU", "PLC", "SBCC", "SBCE", "VAG", "VCL", "VJR"
Sheets(Range("A" & i)).Select

Case Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End Select
.......

Marie Lavoie

That gives me an error... (it indicates that my else has no If ...)

I once tried the select case and it never worked..... oh well. What if I
want to it to end my macro if it doesn't find one of the known code?

"cucchiaino" a écrit dans le message de
...
"Marie Lavoie" ha scritto nel messaggio
...
Am I using the "elseif" like i should?

If Range("A" & i) = "CLS" Then Sheets("CLS").Select ' On sélectionne la
Feuille CLS
ElseIf Range("A" & i) = "CLU" Then Sheets("CLU").Select ' On sélectionne
la
Feuille CLU
ElseIf Range("A" & i) = "PLC" Then Sheets("PLC").Select ' On sélectionne
la
Feuille PLC
ElseIf Range("A" & i) = "SBCC" Then Sheets("SBCC").Select ' On
sélectionne
la Feuille SBCC
ElseIf Range("A" & i) = "SBCE" Then Sheets("SBCE").Select ' On
sélectionne
la Feuille SBCE
ElseIf Range("A" & i) = "VAG" Then Sheets("VAG").Select ' On sélectionne
la
Feuille VAG
ElseIf Range("A" & i) = "VCL" Then Sheets("VCL").Select ' On sélectionne
la
Feuille VCL
ElseIf Range("A" & i) = "VJR" Then Sheets("VJR").Select ' On sélectionne
la
Feuille VJR
Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End
End If

.....
Select Case Range("A" & i)
Case "CLS", "CLU", "PLC", "SBCC", "SBCE", "VAG", "VCL", "VJR"
Sheets(Range("A" & i)).Select

Case Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End Select
......

Bob Phillips[_6_]

That gives me an error... (it indicates that my else has no If ...)

Yes, but it can be simpler with

Select Case Range("A" & i)
Case "CLS" , "CLU" , "PLC" , "SBCC" , _
"SBCE" , "VAG" ,"VCL" , "VJR" : Sheets(Range("A" &
i)).Select
Case Else :
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Marie Lavoie" wrote in message
...
Am I using the "elseif" like i should?

If Range("A" & i) = "CLS" Then Sheets("CLS").Select ' On sélectionne la
Feuille CLS
ElseIf Range("A" & i) = "CLU" Then Sheets("CLU").Select ' On sélectionne
la
Feuille CLU
ElseIf Range("A" & i) = "PLC" Then Sheets("PLC").Select ' On sélectionne
la
Feuille PLC
ElseIf Range("A" & i) = "SBCC" Then Sheets("SBCC").Select ' On sélectionne
la Feuille SBCC
ElseIf Range("A" & i) = "SBCE" Then Sheets("SBCE").Select ' On sélectionne
la Feuille SBCE
ElseIf Range("A" & i) = "VAG" Then Sheets("VAG").Select ' On sélectionne
la
Feuille VAG
ElseIf Range("A" & i) = "VCL" Then Sheets("VCL").Select ' On sélectionne
la
Feuille VCL
ElseIf Range("A" & i) = "VJR" Then Sheets("VJR").Select ' On sélectionne
la
Feuille VJR
Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End
End If

thank you for you futur help...
Marie

Marie Lavoie

That gives me an error... (it indicates that my else has no If ...)

forget the question about the "end"
I run this macro, but it indicates an error on the
Sheets(Range("A" & i)).Select
That I was finding so brilliant... :-(

"cucchiaino" a écrit dans le message de
...
"Marie Lavoie" ha scritto nel messaggio
...
Am I using the "elseif" like i should?

If Range("A" & i) = "CLS" Then Sheets("CLS").Select ' On sélectionne la
Feuille CLS
ElseIf Range("A" & i) = "CLU" Then Sheets("CLU").Select ' On sélectionne
la
Feuille CLU
ElseIf Range("A" & i) = "PLC" Then Sheets("PLC").Select ' On sélectionne
la
Feuille PLC
ElseIf Range("A" & i) = "SBCC" Then Sheets("SBCC").Select ' On
sélectionne
la Feuille SBCC
ElseIf Range("A" & i) = "SBCE" Then Sheets("SBCE").Select ' On
sélectionne
la Feuille SBCE
ElseIf Range("A" & i) = "VAG" Then Sheets("VAG").Select ' On sélectionne
la
Feuille VAG
ElseIf Range("A" & i) = "VCL" Then Sheets("VCL").Select ' On sélectionne
la
Feuille VCL
ElseIf Range("A" & i) = "VJR" Then Sheets("VJR").Select ' On sélectionne
la
Feuille VJR
Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End
End If

.....
Select Case Range("A" & i)
Case "CLS", "CLU", "PLC", "SBCC", "SBCE", "VAG", "VCL", "VJR"
Sheets(Range("A" & i)).Select

Case Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End Select
......

Tom Ogilvy

That gives me an error... (it indicates that my else has no If ...)

To answer your specific question, no you are not.

If condition then
action to perform
Esleif condition then
action to perform
elseIf condition then
action to perform
else
action to perform
End If

You should not have anything after and on the same line as the Then
--
Regards,
Tom Ogilvy

"Marie Lavoie" wrote in message
...
Am I using the "elseif" like i should?

If Range("A" & i) = "CLS" Then Sheets("CLS").Select ' On sélectionne la
Feuille CLS
ElseIf Range("A" & i) = "CLU" Then Sheets("CLU").Select ' On sélectionne
la
Feuille CLU
ElseIf Range("A" & i) = "PLC" Then Sheets("PLC").Select ' On sélectionne
la
Feuille PLC
ElseIf Range("A" & i) = "SBCC" Then Sheets("SBCC").Select ' On sélectionne
la Feuille SBCC
ElseIf Range("A" & i) = "SBCE" Then Sheets("SBCE").Select ' On sélectionne
la Feuille SBCE
ElseIf Range("A" & i) = "VAG" Then Sheets("VAG").Select ' On sélectionne
la
Feuille VAG
ElseIf Range("A" & i) = "VCL" Then Sheets("VCL").Select ' On sélectionne
la
Feuille VCL
ElseIf Range("A" & i) = "VJR" Then Sheets("VJR").Select ' On sélectionne
la
Feuille VJR
Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End
End If

thank you for you futur help...
Marie

All times are GMT +1. The time now is 09:00 AM.