Copier des lignes suivant un critère

[Sophie11]

Bonjour,
Je voudrais copier les lignes de ma feuille aaa pour lesquelles il contient "Sophie" dans la colonne D vers ma feuille bbb
J'ai crée le code suivant mais je fais encore des erreurs.. si vous avez une idée? J'ai mis en rouge la ligne que je pense avoir faux...

For n = Sheets("aaa").Range("A65536").End(xlUp).Row To 2 Step -1
If Range("D" & n) = "Sophie" Then [B][COLOR="Red"]Sheets("bbb").Range("A2") = Rows(n)[/COLOR][/B]
Next n

Merci d'avance 🙂😎

 

[Odesta]

Re : Copier des lignes suivant un critère

Bonjour.
Une piste de résolution

ligne = 2
If Range("D" & n) = "Sophie" Then 
   Sheets("bbb").Rows(ligne_cible).Value = Rows(n).Value
   ligne_cible = ligne_cible + 1 '(pour le cas où il y a plusieurs Sophie)
End if

Cordialement

 

[Benjy]

Re : Copier des lignes suivant un critère

Bonjour:

Un essai :

For n = Sheets("aaa").Range("A65536").End(xlUp).Row To 2 Step -1
If Range("D" & n) = "Sophie" Then rows(n).copy
sheets("bbb").select
rows(n).select
Selection.PasteSpecial
sheets("aaa").select

Next n

 

[camarchepas]

Re : Copier des lignes suivant un critère

Bonjour,

Testé , reste à approuver :

Sub test()
Déplace = 2
For n = Sheets("aaa").Range("A65536").End(xlUp).Row To 1 Step -1
If Sheets("aaa").Range("D" & n) = "Sophie" Then
Sheets("aaa").Range("A" & n & ":IV" & n).Copy Destination:=Sheets("bbb").Range("A" & Déplace)
Déplace = Déplace + 1
End If
Next n
End Sub

 

[Sophie11]

Re : Copier des lignes suivant un critère

Merci à vous trois, toutefois je n'aime pas utiliser des "select" dans mon code..
Je vais utiliser le code de Odesta mais je remarque qu'on doit déclarer ligne_cible avant de la mettre en fonction 🙂 🙂 (J'ai une erreur sinon)

ligne_cible = ligne_cible + 1 '(pour le cas où il y a plusieurs Sophie)
Sheets("bbb").Rows(ligne_cible).Value = Rows(n).Value


en tout cas merci beaucoup 🙂 🙂 it is good 😛 😛

 

[Odesta]

Re : Copier des lignes suivant un critère

Bonjour à tous
Oui, j'ai fait une petite erreur, c'est ligne_cible = 2, et non ligne = 2

 

[Efgé]

Re : Copier des lignes suivant un critère

Bonjour à tous,
Puisqu'il y a beaucoup de monde à jouer, je propose:

Sub sophie()
For n = Sheets("aaa").Range("A65536").End(xlUp).Row To 2 Step -1
    If Sheets("aaa").Range("D" & n) = "Sophie" Then
        x = Sheets("bbb").Range("A65536").End(xlUp).Row + 1
        Sheets("aaa").Rows(n).EntireRow.Copy Sheets("bbb").Range("A" & x)
    End If
Next n
End Sub

Cordialement

 

[Sophie11]

Re : Copier des lignes suivant un critère

Merci Efgé 🙂 🙂