| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 ....... |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 ...... |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 ...... |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
| Error: "Excel encountered an error and had to remove some formatti | Excel Discussion (Misc queries) | |||
| Counting instances of found text (Excel error? Or user error?) | Excel Worksheet Functions | |||
| Automation Error, Unknown Error. Error value - 440 | Excel Programming | |||
Hybrid Mode
