Copier-coller lignes sous certaines conditions

bob -  
Kalissi Messages postés 218 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   20
 
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