XL 2016 Petite macro pour inscrire nom d'onglet

[LABEHAUT]

Bonjour à tous le forum,

voilà je bute sur une macro pour faire une copie d'onglet, la copie d'onglet devrais comporter le nom de la cellule B2 et comme ma connaissance excel n'est pas trop top, je joint un fichier pour prendre connaissance de mon souhait

merci de me dépatouiller de ce petit programme que je suis occupé pour notre club.

 

[Modeste]

Bonjour,

Pour renommer la feuille avec le contenu de B2, tu pourrais raisonnablement espérer que ceci fonctionne:

ActiveSheet.Name = ActiveSheet.[B2]

... sauf si certains caractères sont présents dans cette cellule ou que le nombre de caractères dépasse ce qui est autorisé


[Edit:] Bises itou, jeune fille! 😀

 

[DoubleZero]

Bonjour à toutes et à tous, bises à M😀deste,

Comme ceci (sans caractère interdit...) ?

Option Explicit
Sub Onglet_dupliquer()
    On Error Resume Next
    With Sheets("Recu")
        If .Range("b2") = "" Then
            MsgBox "Renseigner la cellule b2 !"
            .Range("b2").Select
            Exit Sub
        Else
            .Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = .Range("b2").Value
            ActiveSheet.DrawingObjects.Delete
        End If
    End With
    If ActiveSheet.Name Like "Recu (*)" Then
        MsgBox "Choisir un autre nom !"
        Application.DisplayAlerts = False
        ActiveSheet.Delete
        Application.DisplayAlerts = True
        Sheets("Recu").Activate
    End If
    On Error GoTo 0
End Sub

A bientôt 🙂

 

[LABEHAUT]

Rebonjour à tous,
merci de vos conseils, Modeste et doubleZero, je fais un essai vous dirais comment cela fonctionne
encore Merci de vos réponses,

 

[LABEHAUT]

Rebonjour à Modeste et DoubleZero,
vos deux petites compilation marche comme sur des roulettes c'est magnifique encore merci
à vous deux de me répondre aussi vite et résoudre mon problème.
grand merci