Discussion :

[XBlade]

Bonjour à Toutes et à tous
Je souhaite créer des feuilles automatiquement avec un bouton de command, ainsi qu' avec un inputbox je voudrais lui mettre un numéro ou une lettre, deplus je voudrais être averti quand deux feuilles porte le même nom.
j'ai réalisé se code qui ne foncionne pas trés bien,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub TronçonSuivant()
    'Crée Une Nouvelle Feuille
        ActiveSheet.Copy after:=Sheets(Sheets.Count)
    'Efface le nom du nouvelle Feuille créer
        Sheets(Sheets.Count).Name = " "
 
    Dim MyVar1 As Variant
    'Affiche l'inputbox
        MyVar1 = Application.InputBox("Entrez un numéro ou une lettre du Tronçon", "Tronçon")
    'Met le nouveau nom sur la nouvelle feuille
        Sheets(Sheets.Count).Name = "Tronçon_" & MyVar1
        Range("C9").Value = MyVar1
End Sub

ensuite je voudrais être avertis si une nouvelle feuille créée existe déjà.
J'ai essayais avec ce qui suit mais je n'obtient pas se que je veut.

Code :

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

1
2
3
4
5
 
        If Sheets(Sheets.Count).Name = Sheets(Sheets.Count).Name Then
        Variable = MsgBox("Un Tronçon du même nom existe déjà !", vbExclamation, "Attention")
        MyVar1 = Application.InputBox("Entrez un numéro ou une lettre du Tronçon", "Tronçon")
        End If

Cordialement
Merci

[jfontaine]

Bonjour,

Je pense qu'il vaut mieux vérifier si la feuille existe avant de la créer.

Dans la proposition ci dessous, on boucle sur toutes les feuilles du classeur pour vérifier si son nom = nom a créer.
Si c'est le cas, on affiche un message d'avertissement proposant si l'utilisateur souhaite refaire un essaie.
Si oui on repropose le message sinon on sort

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
Sub TronçonSuivant()
 
Dim MyVar1 As String
Dim Sh As Worksheet
 
 
'Affiche l'inputbox
Debut:
MyVar1 = Application.InputBox("Entrez un numéro ou une lettre du Tronçon", "Tronçon")
 
For Each Sh In ThisWorkbook.Worksheets
 
    If Sh.Name = "Tronçon_" & MyVar1 Then
         If MsgBox("Un Tronçon du même nom existe déjà !" & vbLf & "Voulez vous réessayer?", vbExclamation + vbYesNo, "Attention") = vbNo Then
            Exit Sub
        Else
            GoTo Debut
        End If
    End If
 
Next Sh
 
 
'Crée Une Nouvelle Feuille
ActiveSheet.Copy after:=Sheets(Sheets.Count)
 
'Met le nouveau nom sur la nouvelle feuille
Sheets(Sheets.Count).Name = "Tronçon_" & MyVar1
Range("C9").Value = MyVar1
 
End Sub

[XBlade]

C'est parfait, cela me convient tout à fait.
Merci beaucoup.
@+