Listing des onglets dans un UserForm

Bonjour,

Je souhaite, après ouverture d'un fichier, lister les onglets disponibles dans un Userform. L'utilisateur en selectionnera un qui sera par la suite renommé et les autres seront supprimés. pouvez-vous m'aider à lister les onglets d'un fichier dans le UserForm?

Bonjour,
une proposition à adapter pour la première partie de la question, en ayant ajouter une listbox sur un USF

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To Sheets.Count ListBox1.AddItem Sheets(i).Name Next i End Sub

---

Déja un exemple pour lister les onglets :

Code:

---

1 2 3 4 5 6 7 8

Dim F1 As Worksheet dim Mess as string   For Each F1 In Sheets Mess = F1.Name & vbcrlf Next   msgbox Mes

---

Edit1 : Casefayere plus rapide et plus complet que moi, bravo ! :ccool:

Edit2 : Dans mon exemple pour deleter :

Code:

---

F1.Delete

---

Pour renommer

Code:

---

1 2	F1.name = "Nouveau Nom"

---

je pense qu'il vaut mieux parcourir les feuilles que toutes les sheet (dont les graph par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub FF_boucle_onglet() Dim F1 As Worksheet   ' ------------------------------- ' ' Existence de l'onglet ' ------------------------------- ' For Each F1 In Worksheets ListBox1.AddItem F1.Name 'F1.Name = MySheet ' F1.Delete MsgBox "La feuille " & F1.Name Next   End Sub

---

bonjour chickenhands l' ami casefayere aalex
je verrais bien un truc comme ca un user une listbox une textbox un commandbutton

clic dans listbox envoi dans textbox on renomme puis clic sur le commandbutton

pour remplir la listbox j' ai repris le code de l ami casefayere qui est trés bien

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit Dim ws As Worksheet, i As Variant Private Sub CommandButton1_Click() With Application .DisplayAlerts = False .ScreenUpdating = False Sheets(i).Name = TextBox1 For Each ws In Worksheets If ws.Name <> TextBox1 Then ws.Delete Next ws .DisplayAlerts = True .ScreenUpdating = True End With Unload Me End Sub Private Sub ListBox1_Click() TextBox1 = ListBox1: i = ListBox1 End Sub Private Sub UserForm_Initialize() For i = 1 To Sheets.Count ListBox1.AddItem Sheets(i).Name Next i End Sub

---

Super Laetitia, un exemple complet :ccool:

juste par sécurité pour le code du bouton :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() on error goto fin With Application .DisplayAlerts = False .ScreenUpdating = False End With   Sheets(i).Name = TextBox1 For Each ws In Worksheets If ws.Name <> TextBox1 Then ws.Delete Next ws   fin: Application.DisplayAlerts = True Application.ScreenUpdating = True

---

edit :
Attention à ne pas confondre sheets et worksheets, si on a des graph ça peut causer des plantages, dans ce cas les deux peuvent être différents :

Code:

---

1 2	MsgBox Sheets.Count MsgBox Worksheets.Count

---