Copier une feuille et l'ajouter

Cousinhub

XLDnaute Barbatruc

• 27 Février 2008

• #2

Re : Copier une feuille et l'ajouter

Re-,
essaie :

Code:

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

 

Vote positif 0 Vote négatif

V

Valentin_Loupe

XLDnaute Occasionnel

• 28 Février 2008

• #3

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 28 Février 2008

• #4

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

 

Pièces jointes

• donnees_validation_vba.zip

  12.6 KB · Affichages: 34

Vote positif 0 Vote négatif

V

Valentin_Loupe

XLDnaute Occasionnel

• 28 Février 2008

• #5

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 28 Février 2008

• #6

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

 

Vote positif 0 Vote négatif

V

Valentin_Loupe

XLDnaute Occasionnel

• 28 Février 2008

• #7

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

 

Vote positif 0 Vote négatif