OVH Cloud OVH Cloud

liste toutes feuilles sauf une

3 réponses
Avatar
gilles
bonjour =E0 tous
une macro qui liste les feuilles du classeur sur une=20
feuille recap
quel code utiliser pour qu'elle ne prenne pas en compte=20
l'une des feuilles?
merci =E0 ceusses qui peuvent m'aider la dessus

3 réponses

Avatar
papou
Bonjour
For Each S In Sheets
If S.Name <> "LaFeuille" Then
Worksheets("Recap").Range("a65536").End(xlUp)(2).Value = S.Name
End If
Next S

Cordialement
Pascal

"gilles" a écrit dans le message de
news:228e201c45dab$86174800$
bonjour à tous
une macro qui liste les feuilles du classeur sur une
feuille recap
quel code utiliser pour qu'elle ne prenne pas en compte
l'une des feuilles?
merci à ceusses qui peuvent m'aider la dessus
Avatar
ChrisV
Bonjour Gilles,

En supposant que l'onglet à exclure se nomme "zaza"
(et si la macro est "la suite" de ta demande (d'ailleurs restée sans
réponse...) d'hier à 15h40)

Sub ListFeuil()
Dim i As Integer
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
Sheets("Sommaire").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Sommaire"
[A1] = "Liste des onglets du classeur"
For i = 2 To Sheets.Count
If Sheets(i).Name <> "zaza" Then _
ActiveSheet.Hyperlinks.Add Anchor:=[A65536].End(xlUp)(2), _
Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _
TextToDisplay:="Lien vers " & Sheets(i).Name
Next i
End Sub


ChrisV


"gilles" a écrit dans le message de
news:228e201c45dab$86174800$
bonjour à tous
une macro qui liste les feuilles du classeur sur une
feuille recap
quel code utiliser pour qu'elle ne prenne pas en compte
l'une des feuilles?
merci à ceusses qui peuvent m'aider la dessus
Avatar
gilles
merci à Chris et papou
je vais tester ça
Effectivement Chris, je ne t'ai pas remercié plus tot car
ce que tu m'a proposé fonctionne, mais j'ai dû supprimer
Dim i As Integer
car un message m'indiquait qu'il était deja présent, bien
que je ne l'ai pas retrouvé dans la macro qui est très
longue
Après suppression , ça marche impeccable, sauf si je
l'essaie sur xl97 ou là, je n'ai pas de message d'erreur ,
mais ou aucune recopie d'onglet se porte sur la page recap
Je ne sais pas encore d'ou vient le pb
merci encore
à+
-----Message d'origine-----
bonjour à tous
une macro qui liste les feuilles du classeur sur une
feuille recap
quel code utiliser pour qu'elle ne prenne pas en compte
l'une des feuilles?
merci à ceusses qui peuvent m'aider la dessus
.