Discussion :

[astrid123]

Bonjour,

Je veux comparer la ligne( i )et la ligne suivante (i+1) selon la valeur de la cellule (i,1). Si la valeur de cette cellule est la même que celle de la ligne suivante, alors passer à l'enregistrement suivant. Si elle est différente, alors copier la ligne i et la ligne i+1 dans une autre feuille. Je joins un extrait de mon fichier.
J'ai élaboré le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test2()
 
Dim i As Integer
Dim LR As Integer
 
 
LR = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
 
For i = LR To 2 Step -1
If Sheets("Feuil1").Cells(i, 1).Value <> Sheets("Feuil1").Cells(i + 1, 1).Value Then
 
Sheets("Feuil1").Range(Cells(i, 1), Cells(i, 7)).Select
Selection.Copy
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste
 
End If
 
 
Next i
 
End Sub

Mais premier constat : ma condition ne marche pas du tout
deuxième constat : il y a un pb avec la sélection selon le débogage. Dans le code ci-dessus, il n'y a que la sélection de la ligne et pas de i+1

Merci d'avance,
H.