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