Copier-coller lignes sous certaines conditions

Fermé
bob - 10 janv. 2019 à 09:09
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 10 janv. 2019 à 20:15
Bonjour, voici mon code. Je voudrais copier-coller les lignes de la feuille 1 pour lesquelles la colonne G est différentes de 1, et pour lesquelles, la colonne B ou C est différente pour un meme groupe de ligne 4 ou 2 ici. Il se peut aussi que pour un groupe de ligne, il y ait les meme B ou C, et auquel cas je ne veux pas prendre ces lignes.

Pourriez vous m'aidez pour la boucle à construire s'il vous plait.

Mon fichier : https://www.cjoint.com/c/IAiskulugsh

Sub tri()
i = 2
While i < 10
If Cells(i, 7) <> 1 And Cells(i, 2) <> Cells(i + 1, 2) Or Cells(i, 3) <> Cells(i + 1, 3) Then

Rows("i:i").Select
Selection.Copy
Sheets("Feuil2").Select
Rows("i:i").Select
ActiveSheet.Paste

End If

Wend

End Sub


Configuration: Windows / Firefox 60.0
A voir également:

1 réponse

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
10 janv. 2019 à 20:15
Bonjour

Remplacer :

Rows("i:i").Select
Selection.Copy
Sheets("Feuil2").Select
Rows("i:i").Select
ActiveSheet.Paste


par

Rows("i:i").Select
Selection.Copy
Sheets("Feuil2").Select
Range("I1").Select
ActiveSheet.Paste



K
0