XL 2010 VBA Copier coller lignes selon condition

[kan3pz]

Bonjour à tous,
j'ai un petit problème sur vba, je souhaite copier coller les lignes d'une table dans un autre onglet selon une condition.
J'ai trouvé une partie de ma réponse dans un autre post mais je n'arrive pas à adapter le code pour mon problème cf. PJ
Dans ce fichier exemple je souhaite copier le tableau de la Feuil1 dans la Feuil2 si l'âge des individus = 15.
Le code utilisé colle seulement 2 colonnes.... comment l'étendre au tableau complet ?
Merci d'avance !

 

[JBARBE]

Bonjour à tous,
Peut-être ceci !
Bonne journée !

 

[Lone-wolf]

Bonjour tout le monde

@JBARBE: je me suis permis d'apporter des corrections dans ton code, j'épère que te ne m'en veux pas.

Option Explicit

Sub test()
Dim i As Long, j As Long, x As Long
x = 2
Application.ScreenUpdating = False
Sheets("Feuil2").Range("A2:D65536") = ""
With Sheets("Feuil1")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 3) = "" Then Exit Sub
  If .Cells(i, 3) = 15 Then
   For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
   j = x
    .Range(.Cells(i, 1), .Cells(i, 4)).Copy Sheets("Feuil2").Cells(j, 1)
    x = x + 1
    Exit For
   Next j
   End If
Next i
End With
End Sub

 

[DoubleZero]

Bonjour à toutes et à tous,

Une autre suggestion en pièce jointe.

A bientôt

 

[kan3pz]

Au top ! tout fonctionne
Merci à vous

 

[Lone-wolf]

Bonjour DoubleZero

 

[JBARBE]

Bonjour tout le monde

@JBARBE: je me suis permis d'apporter des corrections dans ton code, j'épère que te ne m'en veux pas.

Bonjour Lone-wolf, DoubleZero, kan3pz,
Pas de probléme !
Chacun a sa méthode de programmation et est un bon enseignement à la formation VBA !
Bonne journée à tous !

 

[xls_62]

Bonjour Lone-wolf, DoubleZero, kan3pz,
Pas de probléme !
Chacun a sa méthode de programmation et est un bon enseignement à la formation VBA !
Bonne journée à tous !

Bonjour JBarbe,
peut on adapter votre code au fichier en PJ?
Merci de votre aide