Discussion :

[chickenhands]

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?

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

Déja un exemple pour lister les onglets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

Edit2 : Dans mon exemple pour deleter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F1.Delete

Pour renommer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
F1.name = "Nouveau Nom"

[aalex_38]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

Super Laetitia, un exemple complet

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox Sheets.Count
MsgBox Worksheets.Count