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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:228e201c45dab$86174800$a301280a@phx.gbl...
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
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
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
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" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:228e201c45dab$86174800$a301280a@phx.gbl...
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
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
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 .
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
.
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 .