Menu

Copier-coller lignes sous certaines conditions

- - Dernière réponse : Kalissi
Messages postés
197
Date d'inscription
jeudi 2 mai 2013
Dernière intervention
10 janvier 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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
197
Date d'inscription
jeudi 2 mai 2013
Dernière intervention
10 janvier 2019
16
0
Merci
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
Commenter la réponse de Kalissi