Copier des lignes de différents folio sur un folio principal

Bonjour ,

Je suis à la recherche d'une macro qui permet à la fin de copier la ligne 11 à 26 de chaque folio pour la coller sur un folio principal "Listing" .

Pour l'instant ma macro réalise le nom de chaque folio avec un lien permettant lorsque l'on clique dessus d'arriver sur le folio directement . Puis le nom d'

un libélé

J'aimerais intégrer le copie colle de façon à ce que les lignes qui vont apparaître sur le folio principal soit en dessous du Folio correspondant .

Exemple : 13.101 c'est le folio , Gestion de projet le libélé et j'ai mes lignes à inserer ça doit donner ça :

13.101 Gestion de Projet

• Ligne 1
• Ligne 2
• Ligne 3
• Ligne ...

Voici maintenant la macro et le fichier excel

Sub main()

Dim wb As Workbook
Dim ws As Worksheet
Dim myws As Worksheet
Set wb = ThisWorkbook
Set myws = wb.Sheets("Listing")
Dim idx As Double

idx = 1
For i = 1 To wb.Worksheets.Count
    Set ws = wb.Sheets(i)
    Set myws = wb.Sheets("Listing")
    If ws.Name <> "Source" And ws.Name <> "Listing" Then
        'myws.Cells(idx, 1) = ws.Name
        myws.Cells(idx, 1).Select
        TxtSubAdress = "'" & ws.Name & "'!A1"
        myws.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=TxtSubAdress, TextToDisplay:=ws.Name

        myws.Cells(idx, 2) = ws.Cells(6, 2)  'Libellé
        idx = idx + 1
    End If
Next

End Sub

Merci à vous et bonne période de confinement ^^

Bonsoir,

Ci-joint une proposition à tester.

Bouben

Merci Bouben cela fonctionne parfaitement !!!

J'ai encore une question j'ai vu que sur le document original folio dans les folio 70 il m'arrive de dépasser 49 lignes .

Est-il possible en VBA de dire tant que la cellule A contient du texte alors je copie la ligne et à la première cellule vide en A qu'il rencontre . Le programme passe au folio suivant ! ?

Mais ton programme fonctionne à merveille merci !

Bonjour,

Ci-joint une nouvelle version, avec copie uniquement des premières lignes renseignées de chaque onglet

Bouben

Bonjour,

Merci pour ton aide précieuse Bouben !

Tout fonctionne à merveille