Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Dupliquer une feuille

netparty

XLDnaute Occasionnel
Bonjour à tous

J'utilise ce code :
VB:
Sub Dupliquer_feuille()

'**** Dupliquer la feuille active
 
        ActiveSheet.Copy before:=Sheets("RENDEMENT CHANTIER")
        
'*********************************************************************
'   Renome la feuille
'*********************************************************************
'   Oblige l'utilisateur d'entrer un nom

    Dim NomFeuil As Variant
reponse:

    NomFeuil = InputBox("Veuillez définir le nouveu nom de l'onglet")

    If NomFeuil = "" Then GoTo reponse
    ActiveSheet.Name = NomFeuil
 
 
End Sub

Pour dupliquer les feuilles de mon classeur est-il possible d'avoir un avertissement si le nom d'une feuille existe déja ?

Merci
 

Discussions similaires

Réponses
2
Affichages
615
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…