Macro Excel copier coller ligne avec Condition

Bonjour à tous,

Je recherche une méthode de copier coller toutes la lignes à partir du moment où il y a marqué "Erreur" dans un autre onglet appellé "Résumé"

Dans le fichier joint, j'ai pris quelques petits exemples mais dans mon vrai tableau, cela commence de la ligne 15 à la ligne 6000.

Je n'ai pas trouvé de solution à ce souci.

Si vous pouvez m'aider ca serait génial

Merci

bonjour

on peut faire une macro évidemment mais si le tableau est bien construit un filtre avancé suffirait largement

à suivre

Ma question est justement comment se construit cette macro?

Bonjour,

Essaie avec ce code :

Sub test()
'Macro dan le 22/07/2010
For Each cel In Range("G10:G" & Range("G65536").End(xlUp).Row)
If UCase(cel) = "ERREUR" Then
Range("D" & cel.Row & ":G" & cel.Row).Copy _
    Sheets("Résumé").Range("A" & Sheets("Résumé").Range("A65536").End(xlUp).Row + 1)
End If
Next
End Sub

Code à associer à un bouton placé sur ta feuille "Base"

Si ok n'oublie pas de cloturer le fil en cliquant sur le V de couleur vert à coté du bouton "éditer"

Amicalement

Merci enormement Dan, ca marche parfaitement.

Si je souhaite mettre le bouton sur un onglet ç part où il y a d autre bouton executant les macros, je dois changer le code comme ceci?

Sub test()
'Macro dan le 22/07/2010
For Each cel In Sheets("Base").Range("G10:G" & Range("G65536").End(xlUp).Row)
If UCase(cel) = "ERREUR" Then
Range("D" & cel.Row & ":G" & cel.Row).Copy _
    Sheets("Résumé").Range("A" & Sheets("Résumé").Range("A65536").End(xlUp).Row + 1)
End If
Next
End Sub

Merci

-- 22 Juil 2010, 13:30 --

C est bon, j'ai trouvé.

Pour ceux a qui cela pourrait interesser :

Sub test()
'Macro dan le 22/07/2010
For Each cel In Sheets("Base").Range("G10:G" & Sheets("Base").Range("G65536").End(xlUp).Row)
If UCase(cel) = "ERREUR" Then
Sheets("Base").Range("D" & cel.Row & ":G" & cel.Row).Copy _
    Sheets("Résumé").Range("A" & Sheets("Résumé").Range("A65536").End(xlUp).Row + 1)
End If
Next
End Sub