Ajouter une feuille dans excel+la renommer+ la déplacer+supprimer toutes les fen [Résolu]

Signaler
Messages postés
438
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
26 juillet 2007
-
Messages postés
438
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
26 juillet 2007
-
En essayant avec des macros, j'ai trouvé:



Sheets.Add

Sheets("Feuil12").Move After:=Sheets(2)

Sheets("Feuil12").Name = "tttttttt"



Mon problème est le suivant:



-pour déplacer la feuille, comment on connait la dernière position
actuelle(je veux placer la feuille à la dernière place possible.

-pour
renommer une feuille, faut connaitre d'abord son nom, et comment on le
connait à ce moment la? on peut le récupérer avec Sheets.Add???



et:



-ya moyen de supprimer toutes les autres fenetre à part celle sur
laquelle on est? ou il faut faire un while sur toutes les feuilles et
regarder si elle porte le meme nom et dans le cas contraire, le
supprimer???



merci beaucoup!

2 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
14
Salut,

'pour ajouter une feuille directement à la fin
Sheets.Add After:=Sheets(Sheets.Count)
'pour la renommer, par def, si elle vient d'être ajoutée c'est la feuille active donc
ActiveSheet.Name = "tttttttt"


'pour effacer toutes les autres
Dim ws As Worksheet
Application.DisplayAlerts = False 'pour éviter les confirmations de delete
For Each ws In Sheets
If ws.Name <> "tttttttt" Then
ws.Delete
End If
Next
Application.DisplayAlerts = True

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 110 internautes nous ont dit merci ce mois-ci

Messages postés
438
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
26 juillet 2007
3
moultes mercis!