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

M

Marie Lavoie

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
 
C

cucchiaino

Marie Lavoie said:
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
Click to expand...

......
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
.......
 
M

Marie Lavoie

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?
 
B

Bob Phillips

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)
 
M

Marie Lavoie

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... :-(
 
T

Tom Ogilvy

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
 
Top