Encore de la syntaxe

Version imprimable

Hé oui j'ai encore un problème de syntaxe que je n'arrive pas à comprendre
Pourtant j'ai regardé les structure sur les forum et tuto mais ca ne marche tjs pas
Le pb est sur le select
Voila mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Copie() Dim i, z z = InputBox("Nombre de copies ", "Copie") For i = 1 To z Sheets("Janvier").Copy After:=Sheets(i) Select Case i Case 1 ActiveSheet.Name = "Fevrier" Case Else ActiveSheet.Name = "Error" End Select Next i End Sub
Merci d'avance

bonjour debo41,

tu ne peut pas nommer 2 feuilles par le même nom

remplace

Code:

1
2
        Case Else
            ActiveSheet.Name = "Error"

par

Code:

1
2
        Case Else
            ActiveSheet.Name = "Error " & i

21/04/2010, 16h12
Minick

Salut,

C'est plus un probleme de conception que de synthaxe...

Ici tu demandes combien de fois copier la feuille Janvier
A la 1ere copie tu nommes la feuille en fevrier
et pour toutes les autres tu veux nommer les feuilles en Error
donc la 1ere fois ca va passer mais la 2eme il y aura une erreur vu que la feuille Error existe deja.

Que veux tu faire exactement?

Je veux copier la feuille Janvier et la renommer en février puis en mars puis...

J'ai essayé un code comme ça mais ca ne marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
    Sheets("Janvier").Copy After:=Sheets(i)
 
    Select Case i
        Case 1
            ActiveSheet.Name = "Fevrier"
        Case 2
            ActiveSheet.Name = "Mars"
        Case 3
            ActiveSheet.Name = "Avril"
        Case 4
            ActiveSheet.Name = "Mai"
        Case 5:
            ActiveSheet.Name = "Juin"
        Case 6
            ActiveSheet.Name = "Juillet"
        Case 7
            ActiveSheet.Name = "Aout"
        Case 8
            ActiveSheet.Name = "Septembre"
        Case 9
            ActiveSheet.Name = "Octobre"
        Case 10
            ActiveSheet.Name = "Novembre"
        Case 11
            ActiveSheet.Name = "Decembre"
        Case Else
            ActiveSheet.Name = "Error"
    End Select
 
Next i
 
End Sub

Re,

Ci joint une correction avec un minimum de controles.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Copie()
    Dim i As Byte
    Dim z As String
 
    z = InputBox("Nombre de copies ", "Copie")
 
    If IsNumeric(z) Then
        If CLng(z) >= 1 And CLng(z) <= 11 Then
            For i = 1 To CByte(z)
                Sheets("Janvier").Copy After:=Sheets(i)
 
                ActiveSheet.Name = Application.WorksheetFunction.Proper(Format("01/" & i + 1 & "/2010", "mmmm"))
            Next i
        End If
    End If
End Sub

Je n'ai pas verifier si les feuilles existent deja...

bonjour debo41,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 2 To z
    Sheets("Janvier").Copy After:=Sheets(Sheets.Count)
    Select Case i
        Case 2 To 12
            ActiveSheet.Name = Application.Proper(Format(DateSerial(1, i, 1), "mmmm"))
        Case Else
            ActiveSheet.Name = "Error" & i
    End Select
Next i
End Sub

ou bien celle-ci, si tu ne veut pas de feuille en surplus.

Code:

1
2
3
4
5
6
7
8
Sub Copie2()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 2 To z
    Sheets("Janvier").Copy After:=Sheets(Sheets.Count)
    If i <= 12 Then ActiveSheet.Name = Application.Proper(Format(DateSerial(1, i, 1), "mmmm"))
Next i
End Sub

22/04/2010, 08h30
debo41

Merci
Ca marche