Discussion :

[diss10]

Bonjour tout le monde

S'il vous plait je voudrais sortir a l'aide d'une macro les noms de mes feuilles créer afin de faire une liste automatique a chaque q'une feuil est créé son nom s'ajoute en bas de la liste ainsi j’obtiens une sorte d'index des feuils créé .


Merci d'avance

[Jean-Philippe André]

Salut,

tu peux afficher la liste des feuilles avec le code suivant

Code :

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

1
2
3
4
Dim wsh as worksheet
For Each wsh in thisworkbook.worksheets
Msgbox wsh.name
Next

a toi de l'adapter a ce que tu appelles la liste

[diss10]

a toi de l'adapter a ce que tu appelles la liste

Je l'ai ajouté au bouton qui sert a créer et nommer une nouvelle feuil , ce que je voudrais c qu'elle renvoi le nom de chaque feuil dans les cellule d'une feuil a créer histoire d'avoir un listing de toutes les feuilles créé .


Merci d'avance

[Jean-Philippe André]

Bonjour,

le concept du forum etant de t'apprendre a pecher et non de pecher pour toi, quelques elements de lecture :

- ajouter une feuille
http://silkyroad.developpez.com/VBA/...alcul/#LII-A-2
- la derniere ligne d'une colonne
http://www.developpez.net/forums/d45...ees-d-feuille/

avec ces deux point plus celui deja evoque dans mon precedent post, ca devrait etre simple

[kiki29]

Salut, pour avoir toutes les feuilles ( Worksheets, Graph )

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit

Sub tst()
Dim i As Long
    Feuil1.Columns("A:A").ClearContents
    For i = 1 To ThisWorkbook.Sheets.Count
        Feuil1.Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

[diss10]

Salut, pour avoir toutes les feuilles ( Worksheets, Graph )

Merciiii bcp ça marche

Est ce que je pourrais ajouter devant chaque nom de feuille la valeur de la cellule A4 de chaque feuil sur ma liste ?

[Jean-Philippe André]

Attention, je me repete, on n'a pas vocation a te faire ton boulot

[diss10]

j'ai essayé avec ce code mais ça ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tst()
Dim i As Long
Dim j As Long
    Feuil3.Columns("A:A").ClearContents
    For i = 1 To ThisWorkbook.Sheets.Count
        Feuil3.Cells(i, 1) = Sheets(i).Name
    Next i
    Feuil3.Columns("B:B").ClearContents
    For j = 1 To ThisWorkbook.Sheets.Count
        Feuil3.Cells(j, 1) = Sheets(j).Cells(1, 4)
    Next j
 
End Sub

[kiki29]

Re, qqch du genre, à adapter sans doute

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
Option Explicit
 
Sub Tst()
Dim i As Long
Dim iType As Long
 
    Feuil1.Columns("A:B").ClearContents
    For i = 1 To ThisWorkbook.Sheets.Count
        iType = Sheets(i).Type
        With Feuil1
            .Cells(i, 1) = Sheets(i).Name
            If iType = xlWorksheet Then
                .Cells(i, 2) = Sheets(i).Cells(4, 1)
            End If
        End With
    Next i
End Sub