Créer de nouvelles feuilles pour chaque ligne avec spécifique colonne

Bonjour a toutes et tous,

J’espère que vous allez bien.

Je suis face a une difficulté, je souhaite créer de nouvelles feuilles pour chaque ligne en partant de la ligne 6 copier les résultats trouver en colonne A, B D et E ainsi que le titre en colonne en ligne 5. J ai trouver un code mais celui copie toutes les colonnes de la ligne 5 alors que je souhaite seulement des colonnes specifiques.

Pouvez vous m aider ?

Je vous remercie

Julia

Bonjour Juliagchd et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalités du forum à connaître
qui vous aideront dans vos demandes et réponses sur ce forum.

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)

Concernant votre demande, vouloir créer une nouvelle feuille pour chaque ligne spécifique me semble quelque peu inopportun
Ou alors vous n'avez pas beaucoup de ligne à traiter à chaque fois

Merci pour votre participation

A+

Bonjour BrunoM45,

Je vous remercie, pour la presentation !

Effectivement, il y a pas beaucoup de lignes a traiter, bien souvent 5 lignes maximum

Julia

Bonsoir à tous,

Julia, essaie ceci pour l'exercice.

Sub test()
    Dim i As Long
    With Sheets(1).Range("a5").CurrentRegion
        For i = 2 To .Rows.Count
            If Not Evaluate("isref('" & i - 1 & "'!a1)") Then
                Sheets.Add(, Sheets(Sheets.Count)).Name = i - 1
            End If
             Union(.Range("a1:b1"), .Range("d1:e1"), .Range("a" & i & ":b" & i), _
             .Range("d" & i & ":e" & i)).Copy Sheets(CStr(i - 1)).Cells(1)
        Next
    End With
End Sub

Édit : Sheets(1) est la 1ère feuille du classeur soit la feuille source.

klin89

Hello Klin89,

Super ! je te remercie, c'est exactement ce que je souhaitais !