Discussion :

[OncleVini]

Bonjour a tous,

Je vous souhaite une tres bonne annee 2023.

J'ai creer un fichier excel qui devient tres dur a gerer. J''ai trop de feuilles et je perds l'ordre des priorites. Je recherche un moyen de creer une feuille supplementaire (feuille R) qui me servira de resume.
En clair j'aimerais, si possible, ecrire le nom de mes feuilles une par une (l'une en dessous de l'autre sur la feuille R) et prendre une information sur chaque feuille.
Exemple:
Cellule A1 de la feuille R = Nom de la feuille 1 / Cellule A2 de la feuille R = Information de la cellule A3 de la feuille 1
Cellule B1 de la feuille R = Nom de la feuille 2 / Cellule B2 de la feuille R = Information de la cellule A3 de la feuille 2
Cellule C1 de la feuille R = Nom de la feuille 3 / Cellule C2 de la feuille R = Information de la cellule A3 de la feuille 3

Chaque feuille represente un project et la cellule A3 de chaque feuille represente une echehance a respecter.

Dans ma tete c'est clair, dite moi si je dois preciser.

Merci a tous

[ARTURO83]

Bonjour,

Ajoutez ce code dans un module standard

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
Sub RecupListeDesFeuilles()
    Dim f1 As Worksheet
    Dim i As Long, L As Long
    Application.ScreenUpdating = False
    Set f1 = Sheets("R")
    f1.Cells.ClearContents
    L = 1
    For i = L To Sheets.Count
        If Sheets(i).Name <> "R" Then
            f1.Cells(L, "A") = Sheets(i).Name
            f1.Cells(L, "B") = Sheets(Sheets(i).Name).Range("A3").Value
            L = L + 1
        End If
    Next i
End Sub

Cdlt

[OncleVini]

Super, Ca fonctionne tres bien. Un grand merci pour ton aide Arthuro