J'aimerais en VBA Lister tous les onglets sauf les 5 premi=E8res
feuilles du classeur dans une feuille nomm=E9e "Liste des feuilles".
Et sans vouloir pouss=E9, ajouter =E0 la liste des onglets, la valeur de
la celulle "A4" de chaque feuilles.
Cette valeur peut soit =EAtre =E0 la suite du lien hypertexte ou dans une
autre colonne soit "B"
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
Tatanka
Salut Crole,
En supposant que la feuille « Liste_Des_Feuilles » est en dernier, essaie cette macro :
Sub Lister() For i = 6 To ActiveWorkbook.Sheets.Count - 1 k = k + 1 Sheets("Liste_Des_Feuilles").Cells(k, 1) = Sheets(i).Name Sheets("Liste_Des_Feuilles").Cells(k, 2) = Sheets(i).[a4] Next i End Sub
Serge
a écrit dans le message de news: Bonsoir le groupe,
J'aimerais en VBA Lister tous les onglets sauf les 5 premières feuilles du classeur dans une feuille nommée "Liste des feuilles". Et sans vouloir poussé, ajouter à la liste des onglets, la valeur de la celulle "A4" de chaque feuilles. Cette valeur peut soit être à la suite du lien hypertexte ou dans une autre colonne soit "B"
Merci pour vos réponses. Cordialement Crole
Salut Crole,
En supposant que la feuille « Liste_Des_Feuilles »
est en dernier, essaie cette macro :
Sub Lister()
For i = 6 To ActiveWorkbook.Sheets.Count - 1
k = k + 1
Sheets("Liste_Des_Feuilles").Cells(k, 1) = Sheets(i).Name
Sheets("Liste_Des_Feuilles").Cells(k, 2) = Sheets(i).[a4]
Next i
End Sub
Serge
<crolegoogle@skynet.be> a écrit dans le message de news: d87a604f-8515-4350-b4fa-856b2196d129@i29g2000prf.googlegroups.com...
Bonsoir le groupe,
J'aimerais en VBA Lister tous les onglets sauf les 5 premières
feuilles du classeur dans une feuille nommée "Liste des feuilles".
Et sans vouloir poussé, ajouter à la liste des onglets, la valeur de
la celulle "A4" de chaque feuilles.
Cette valeur peut soit être à la suite du lien hypertexte ou dans une
autre colonne soit "B"
En supposant que la feuille « Liste_Des_Feuilles » est en dernier, essaie cette macro :
Sub Lister() For i = 6 To ActiveWorkbook.Sheets.Count - 1 k = k + 1 Sheets("Liste_Des_Feuilles").Cells(k, 1) = Sheets(i).Name Sheets("Liste_Des_Feuilles").Cells(k, 2) = Sheets(i).[a4] Next i End Sub
Serge
a écrit dans le message de news: Bonsoir le groupe,
J'aimerais en VBA Lister tous les onglets sauf les 5 premières feuilles du classeur dans une feuille nommée "Liste des feuilles". Et sans vouloir poussé, ajouter à la liste des onglets, la valeur de la celulle "A4" de chaque feuilles. Cette valeur peut soit être à la suite du lien hypertexte ou dans une autre colonne soit "B"
Merci pour vos réponses. Cordialement Crole
crolegoogle
Bonsoir serge
Merci pour ta réponse En fait la feuille "Liste des Feuilles" est en premier
Merci pour vos réponses Cordialement Crole
Bonsoir serge
Merci pour ta réponse
En fait la feuille "Liste des Feuilles" est en premier
Mais alors tu veux les noms des onglets à partir de quelle feuille ?
Liste Des Feuiles F2 F3 F4 F5 F6 F7 F8 F9 F10 ...
Serge
a écrit dans le message de news: Bonsoir serge
Merci pour ta réponse En fait la feuille "Liste des Feuilles" est en premier
Merci pour vos réponses Cordialement Crole
crolegoogle
Re Bonsoir Serge,
La feuille à tenir compte pour être considérée comme celle de référence est "Accueil" soit "Feuille 5" Et l'idéal serai de ne pas afficher les hyperliens des 5 premières feuille car les autres sont des Devis et Factures
Merci Cordialement Crole
Re Bonsoir Serge,
La feuille à tenir compte pour être considérée comme celle de
référence est "Accueil" soit "Feuille 5"
Et l'idéal serai de ne pas afficher les hyperliens des 5 premières
feuille car les autres sont des Devis et Factures
La feuille à tenir compte pour être considérée comme celle de référence est "Accueil" soit "Feuille 5" Et l'idéal serai de ne pas afficher les hyperliens des 5 premières feuille car les autres sont des Devis et Factures
Merci Cordialement Crole
Tatanka
J'ai remplacé Sheets par WorkSheets au cas où il y aurait des feuilles graphiques.
Sub Lister() For i = 6 To ActiveWorkbook.Worksheets.Count k = k + 1 Worksheets("Liste_Des_Feuilles").Cells(k, 1) = Worksheets(i).Name Worksheets("Liste_Des_Feuilles").Cells(k, 2) = Worksheets(i).[a4] Next i End Sub
Est-ce que ça répond à ta question ?
Serge
a écrit dans le message de news: Re Bonsoir Serge,
La feuille à tenir compte pour être considérée comme celle de référence est "Accueil" soit "Feuille 5" Et l'idéal serai de ne pas afficher les hyperliens des 5 premières feuille car les autres sont des Devis et Factures
Merci Cordialement Crole
J'ai remplacé Sheets par WorkSheets au cas où
il y aurait des feuilles graphiques.
Sub Lister()
For i = 6 To ActiveWorkbook.Worksheets.Count
k = k + 1
Worksheets("Liste_Des_Feuilles").Cells(k, 1) = Worksheets(i).Name
Worksheets("Liste_Des_Feuilles").Cells(k, 2) = Worksheets(i).[a4]
Next i
End Sub
Est-ce que ça répond à ta question ?
Serge
<crolegoogle@skynet.be> a écrit dans le message de news: 01727a91-00a7-4e16-af80-f155ceadc4af@l42g2000hsc.googlegroups.com...
Re Bonsoir Serge,
La feuille à tenir compte pour être considérée comme celle de
référence est "Accueil" soit "Feuille 5"
Et l'idéal serai de ne pas afficher les hyperliens des 5 premières
feuille car les autres sont des Devis et Factures
J'ai remplacé Sheets par WorkSheets au cas où il y aurait des feuilles graphiques.
Sub Lister() For i = 6 To ActiveWorkbook.Worksheets.Count k = k + 1 Worksheets("Liste_Des_Feuilles").Cells(k, 1) = Worksheets(i).Name Worksheets("Liste_Des_Feuilles").Cells(k, 2) = Worksheets(i).[a4] Next i End Sub
Est-ce que ça répond à ta question ?
Serge
a écrit dans le message de news: Re Bonsoir Serge,
La feuille à tenir compte pour être considérée comme celle de référence est "Accueil" soit "Feuille 5" Et l'idéal serai de ne pas afficher les hyperliens des 5 premières feuille car les autres sont des Devis et Factures
Merci Cordialement Crole
crolegoogle
Serge C'est tout simplement Génial :-))
Je te souhaite ainsi qu'au groupe une bonne nuit et merci d'avoir consacré de ton temp Pour ma par je continue à peauffiner mon projet
Mille merci Cordialement Crole
Serge
C'est tout simplement Génial :-))
Je te souhaite ainsi qu'au groupe une bonne nuit
et merci d'avoir consacré de ton temp
Pour ma par je continue à peauffiner mon projet