Création d'un onglet avec nomination variable

Question

Bonjour, 

Je n'arrive pas à trouver de solution pour ce que je souhaite faire :
L'objectif étant que la macro une fois activée crée un onglet avec le nom d'une cellule déterminée (ça j'ai réussi). Par contre si je réactive cette macro, il y a forcément un problème car l'onglet existe déjà. De ce fait je souhaite prévenir par le biais d'un message box pour prévenir l'utilisateur que l'onglet existe déjà et qu'il puisse avoir le choix de pouvoir le remplacer ou de créer une version (2) et là, malheureusement ça devient compliqué pour moi. Quelqu'un peut -il m'aider...

merci d'avance

scinarf · Answer

dim i as integer
dim NomOnglet as String 

nomOnglet = "ManouvelleFeuille"

for i = 1 to sheets.counter
if (sheets(i).name == nomOnglet) then 
MSGbox "Le nom que vous proposez existe déjà il sera changé en " & nomOnglet & " (2)"
nomOblget = nomonglet & "(2)" 
end if
next i 

Dites moi si ca marche, logiquement il ne devrait pas y avoir d'erreur.

Mike-31 · Answer

Salut,

En supposant que le nom de la feuille se trouve en cellule A2 de la feuille active

Sub InsereFeuille()
    Dim n As Integer, trouve As Boolean
    For n = 1 To Sheets.Count
    If Sheets(n).Name = [A2].Value Then
    trouve = True
    MsgBox "La feuille " & [A2].Value & " existe déjà"
    Exit For
    End If
    Next n
    If Not trouve Then Sheets.Add.Name = [A2].Value
End Sub

eriiic · Answer

Bonjour,

et une 3ème proposition : une fonction.
Function existSheet(nomFeuille As String) As Long
    On Error Resume Next
    existSheet = Sheets(nomFeuille).Index
End Function
retourne 0 (False) si la feuille n'existe pas.

eric

Création d'un onglet avec nomination variable

3 réponses

Discussions similaires

Newsletters