Copier une feuille et l'ajouter

[Valentin_Loupe]

Bonsoir à tous,

Pouvez vous me dire où est mon erreur ?
Je souhaite copier la feuille "Pièce n°1", la mettre en dernière position et l'appeler "Pièce n°2" mais que si je recommence mon opération une nouvelle feuille nommée "Pièce n°3" s'affiche...

Avec en fait un compteur après le "n°"

Sheets("Pièce n°1").Copy(After:=Sheets(Sheets.Count)).Name = "Pièce n°" & Sheets.Count - 1

Merci d'avance

Valentin

 

[Cousinhub]

Re : Copier une feuille et l'ajouter

Re-,
essaie :

Sub ess()
Sheets("Pièce n°1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Pièce n°" & Sheets.Count - 1
End Sub

 

[Valentin_Loupe]

Re : Copier une feuille et l'ajouter

Hello !

C'est encore nickel !

Admettons maintenant que je souhaite intégrer une liste déroulante avec chaque Feuille du classeur comme ligne dans cette liste. Ainsi qu'un bouton à droite qui permettra de supprimer la feuille choisie dans la liste déroulante.
Comment procéder ?

Encore merci pour ton aide bhbh !

Valentin

 

[Cousinhub]

Re : Copier une feuille et l'ajouter

Bonjour,
regarde le fichier joint :
Dès que tu sélectionnes la cellule D1 (dans mon exemple), une liste de validation comprenant tous les onglets de ton classeur est créée (sans le nom de l'onglet "Résultat")
Si tu sélectionnes un nom, et que tu appuies sur Supprimer, cet onglet est supprimé
Cependant, après suppression de la Pièce 2 par exemple, et que tu as déjà 6 onglets (par exemple Pièce n°7), la prochaine s'appellera Pièce N°8

 

[Valentin_Loupe]

Re : Copier une feuille et l'ajouter

Bonsoir à tous,

Merci ça fonctionne par contre je voudrais savoir à quoi sert la ligne Application.DisplayAlerts = True/False

Aussi, existe t-il une méthode pour charger les onglets dans une combobox, car quand je disais "Liste déroulante", je pensais en fait à une combobox ? Et ensuite idem avec le bouton de suppression.

Encore merci

Valentin

 

[Cousinhub]

Re : Copier une feuille et l'ajouter

Re-,
j'ai pris ce que je savais faire....😱
pour Application.Display..., ceci t'évite d'avoir le message de confirmation de la suppression de l'onglet par Excel

 

[Valentin_Loupe]

Re : Copier une feuille et l'ajouter

Bonsoir,

Oki, merci beaucoup pour tout, j'essaie de voir de mon côté et je posterais la réponse.

A bientôt

Valentin