Copier des lignes suivant un critère

Odesta

XLDnaute Impliqué

• 23 Juin 2010

• #2

Re : Copier des lignes suivant un critère

Bonjour.
Une piste de résolution

Code:

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

 

Vote positif 0 Vote négatif

B

Benjy

XLDnaute Occasionnel

• 23 Juin 2010

• #3

Re : Copier des lignes suivant un critère

Bonjour:

Un essai :

Code:

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 23 Juin 2010

• #4

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Sophie11

XLDnaute Occasionnel

• 23 Juin 2010

• #5

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 😛 😛

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 23 Juin 2010

• #6

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Juin 2010

• #7

Re : Copier des lignes suivant un critère

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

Code:

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

 

Vote positif 0 Vote négatif

Sophie11

XLDnaute Occasionnel

• 25 Juin 2010

• #8

Re : Copier des lignes suivant un critère

Merci Efgé 🙂 🙂

 

Vote positif 0 Vote négatif