Discussion :

[Excel_man]

Bonjour,
Je cherche via un UserForm à dupliquer une feuille servant de maquette pour créer un onglet par semaine (je recupere via une liste le n° de la semaine avant de lancer mon code).
Mon problème:
1 - quand je test si le n° de semaine n'as pas déjà été créer (ligne 14), Excel n'en fait pas cas.
2- pour que la copie de la feuille soit opérationnel, il me faut la renommer avec le N° de la semaine désiré et je veux placer la nouvelle toujours au même endroit. J'ai mis en commentaire (ligne 20) le code dont je n'arrive pas a trouver la bonne syntaxe.
Merci

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
Private Sub CommandButton1_Click()
'Création de onglet semaine
Dim Sht As Worksheet
Dim Test As Boolean
Test = True
Application.ScreenUpdating = False
 
On Error Resume Next
    Select Case Range("No_semaine").Value
    Case ""
        MsgBox ("Veuillez saisir un n° de semaine")
    Case 1 To 52
        For Each Sht In Worksheets
        If Sheets(Sht.Name) = Range("No_semaine").Value Then Test = False
        Next Sht
        If Test Then
                    MsgBox ("Semaine deja existante, veuillez saisir un autre n° de semaine")
                Else
                    Sheets("MAQUETTE A COPIER").Copy before:=Sheets("Affectation")
'                    Sheets("Affectation").Index) - 1.Name = Range("No_semaine").Value
        End If
    Case Else
        MsgBox "N° de semaine non valide" & vbNewLine & vbNewLine & "Réessayez!"
End Select
 
On Error GoTo 0
Application.ScreenUpdating = True
Unload Me
End Sub

[Daniel.C]

Bonjour,

Essaie comme ceci, ton numéro devant au format texte :

Code :

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

If Sheets(Sht.Name) = CStr(Range("No_semaine").Value) Then test = False

ou mieux :

Code :

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

If Sheets(Sht.Name) = Format(Range("No_semaine").Value, "00") Then test = False

[mercatog]

Essaies comme ceci

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
Private Sub CommandButton1_Click()
Dim Sht As Worksheet
Dim NumSem As Integer
 
Application.ScreenUpdating = False
NumSem = Val(Worksheets("Affectation").Range("No_semaine").Value)
Select Case NumSem
    Case 1 To 52
        If IsExist(CStr(NumSem)) Then
            MsgBox "Semaine deja existante, veuillez saisir un autre n° de semaine"
        Else
            Worksheets("MAQUETTE A COPIER").Copy Before:=Worksheets("Affectation")
           ActiveSheet.Name = CStr(NumSem)
        End If
    Case Else
        MsgBox "N° de semaine non valide" & vbNewLine & vbNewLine & "Réessayez!"
End Select
'Unload Me
End Sub
 
Private Function IsExist(ByVal Nom As String) As Boolean
 
On Error Resume Next
IsExist = Worksheets(Nom).Name = Nom
On Error GoTo 0
End Function

[Excel_man]

Bonjour,
Daniel, merci d'avoir essayé mais ta première proposition que j'avais déjà tenté ne fonctionne pas. La 2ème non plus mais elle m'as permis de me rendre compte que je n'avais pas pris en compte le format.

Bonjour,
Essaie comme ceci, ton numéro devant au format texte :

Code :

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

If Sheets(Sht.Name) = CStr(Range("No_semaine").Value) Then test = False

ou mieux :

Code :

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

If Sheets(Sht.Name) = Format(Range("No_semaine").Value, "00") Then test = False

Bonjour mercatog,
Très efficace la petite fonction pour vérifier si le nom existe dans les onglets du fichier (et le test en seule ligne ). Comme tu avais gentiment adapté le code a mon cas perso, je n'ai pas eu grand chose a modifier.
J'adopte! Un grand merci.

Essaies comme ceci

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
Private Sub CommandButton1_Click()
Dim Sht As Worksheet
Dim NumSem As Integer
 
Application.ScreenUpdating = False
NumSem = Val(Worksheets("Affectation").Range("No_semaine").Value)
Select Case NumSem
    Case 1 To 52
        If IsExist(CStr(NumSem)) Then
            MsgBox "Semaine deja existante, veuillez saisir un autre n° de semaine"
        Else
            Worksheets("MAQUETTE A COPIER").Copy Before:=Worksheets("Affectation")
           ActiveSheet.Name = CStr(NumSem)
        End If
    Case Else
        MsgBox "N° de semaine non valide" & vbNewLine & vbNewLine & "Réessayez!"
End Select
'Unload Me
End Sub
 
Private Function IsExist(ByVal Nom As String) As Boolean
 
On Error Resume Next
IsExist = Worksheets(Nom).Name = Nom
On Error GoTo 0
End Function