Nommer une feuille suivant l'index d'une cellule

Bonjour à tous

J'ai dans une maccro l'enregistrement ci dessous:

ActiveSheet.Name = Range("b3")

lorsque une feuille est déjà nommée sous cette forme (b3)cela me provoque un blocage

quelle formule dois je rajouter m'avertir qu'une feuille porte déjà le nom de (b3)?

Dans l'attente de votre réponse,Merci

jeff

Bonjour,

essaye avec

Sub test()
Dim i%
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = Range("b3") Then
            MsgBox (Worksheets(i).Name & " existe déjà !")
            Exit Sub
        End If
    Next
        ActiveSheet.Name = Range("b3")
End Sub

Amicalement

Claude

dubois a écrit :

Bonjour,

essaye avec

Sub test()
Dim i%
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = Range("b3") Then
            MsgBox (Worksheets(i).Name & " existe déjà !")
            Exit Sub
        End If
    Next
        ActiveSheet.Name = Range("b3")
End Sub

Amicalement

Claude

Bonjour

Je suis désolé mais cela ne fonctionne pas.

On est d'accord ,j'ai une feuille "trame" dont je veux faire une copie sous forme de maccro en la nommant à partir de la cellule "b3".

Peut être peux tu m'aider avec cette explication

Amicalement

jeff

Bonjour,

il n'était pas question d'ajouter une nouvelle feuille !

envoie la feuille "Trame"

Claude

Rebonjour

je t'envoie la feuille "trame".

Amicalement

re,

La feuille "trame" doit être placée en 1er

la dernière ligne du code incrémente la trame (tu peux supprimer cette ligne si inutile)

Sub AjoutFeuille()
Dim i As Byte, Nm$
    Nm = Sheets("trame").Range("b3")
    For i = 2 To Worksheets.Count
        If Worksheets(i).Name = Nm Then
            MsgBox ("Une feuille " & Nm & " existe déjà !")
            Exit Sub
        End If
    Next
        Sheets("trame").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Nm
        Sheets("trame").Range("b3") = Nm + 1
End Sub

claude

Bonjour Claude

Merci,cela fonctione.

Je n'étais pas trop loin de la réponse sauf pour la chronologie.

Encore Merci

Amicalement

jeff

Je n'étais pas trop loin de la réponse sauf pour la chronologie.

c'est ce qui fait toute la différence !

Pour clôturer le poste, c'est ici