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
|