RESOLU --- Liste des noms d'onglets

[Ternoise]

Bonjour / Bonsoir

J'aimerais récupérer dans une colonne le nom des onglets mais du 5ème et plus

C'est possible ?

Merci beaucoup

David

 

[mapomme]

Re : Liste des noms d'onglets

Bonsoir Ternoise,

Un essai via une function VBA: Onglet(xN As Long)

Le code de la fonction est dans module1:

Function Onglet(xN As Long)
'-----------------------------------------------------
' si xN = 0 -> renvoie le nombre d'onglet
' sinon -> renvoie le nom du xN ième onglet
' si erreur -> renvoie une erreur #N/A
'-----------------------------------------------------

  Application.Volatile
  On Error GoTo Err_Onglet_001
  If Int(Abs(xN)) = 0 Then
    Onglet = ThisWorkbook.Sheets.Count
  Else
    Onglet = ThisWorkbook.Sheets(Int(Abs(xN))).Name
  End If
  Exit Function
  
Err_Onglet_001:
  Onglet = CVErr(2042)
End Function

 

[BOISGONTIER]

Re : Liste des noms d'onglets

Bonjour,


NomsFeuilles =STXT(LIRE.CLASSEUR(1);TROUVE("]";LIRE.CLASSEUR(1))+1;99)&INDIRECT("iv65000")

=SI(LIGNES($1:5)<=NBVAL(NomsFeuilles);INDEX(NomsFeuilles;LIGNES($1:5));"")


Cf PJ


JB

 

[joss56]

Re : Liste des noms d'onglets

Bonjour à tous

Un petit essai en VBA. Le nom des onglets est stocké dans la colonne A de la feuille active.

Private Sub CommandButton1_Click()

Dim onglet, i As Integer

onglet = ThisWorkbook.Sheets.Count
If onglet > 4 Then
For i = 5 To onglet
Cells(i - 4, 1) = Sheets(i).Name
Next i
End If

End Sub

Bon dimanche,

Jocelyn

 

[Ternoise]

Re : Liste des noms d'onglets

Merci à tous

Cela fonctionne très bien

Bon dimanche