Ajouter une feuille dans excel+la renommer+ la déplacer+supprimer toutes les fenRésolu

Question

En essayant avec des macros, j'ai trouv&#233;:



Sheets.Add

Sheets("Feuil12").Move After:=Sheets(2)

Sheets("Feuil12").Name = "tttttttt"



Mon probl&#232;me est le suivant:



-pour d&#233;placer la feuille, comment on connait la derni&#232;re position
actuelle(je veux placer la feuille &#224; la derni&#232;re place possible.

-pour
renommer une feuille, faut connaitre d'abord son nom, et comment on le
connait &#224; ce moment la? on peut le r&#233;cup&#233;rer avec Sheets.Add???



et:



-ya moyen de supprimer toutes les autres fenetre &#224; 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!

cs_CanisLupus · Accepted Answer

Salut,

'pour ajouter une feuille directement &#224; la fin
Sheets.Add After:=Sheets(Sheets.Count)
'pour la renommer, par def, si elle vient d'&#234;tre ajout&#233;e c'est la feuille active donc
ActiveSheet.Name = "tttttttt"


'pour effacer toutes les autres
Dim ws As Worksheet
Application.DisplayAlerts = False 'pour &#233;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  !?

Nargzul · Answer

moultes mercis!

Ajouter une feuille dans excel+la renommer+ la déplacer+supprimer toutes les fen

2 réponses

Discussions similaires