Discussion :

[debo41]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sabzzz]

bonjour debo41,

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

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Case Else
            ActiveSheet.Name = "Error"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[debo41]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

Re,

Ci joint une correction avec un minimum de controles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sabzzz]

bonjour debo41,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[debo41]

Merci
Ca marche