Test sur un nom de feuille

Version imprimable

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:

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

20/01/2013, 12h22
Daniel.C

Bonjour,

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

Code:

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

ou mieux :

Code:

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

Essaies comme ceci

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

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.

Citation:

Envoyé par Daniel.C

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

Code:

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

ou mieux :

Code:

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 :ccool:). 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.
Citation:
Envoyé par mercatog
Essaies comme ceci
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 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