Bonjour le forum,

J'essaye en vain de réaliser un traitement de données sur une base, dans cette dernière j'ai la même donnée en positif et en négatif dans deux lignes différentes (-500 en G30 et 500 en G78 par exemple) mais dans la même colonne (colonne G), (sur 1000 lignes y'en a 300/350 dans ce cas). La vocation étant de sélectionner ces deux lignes et de les couper coller et les mettre dans un autre onglet si elles présentent le même montant de signe différent en G.

Je n'arrive pas à trouver un moyen et je serais vraiment reconnaissant de votre aide.

Bien à vous



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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub Traitementdata()
 
Dim i As Integer
 
Dim j As Integer
 
Dim Col As String
 
Dim EX As Variant
 
Dim VE As Variant
 
Dim nb_lignes As Integer
 
Col = "G"
 
nb_lignes = 2000
 
    For i = 2 To nb_lignes
 
        For j = 2 To nb_lignes
 
            EX = Cells(i, Col)
 
            VE = -1 * (Cells(j, Col))
 
                If EX = VE Then
 
                  EX.Row.Cut
 
                  Sheets("Test").Paste
 
                  VE.Row.Cut
 
                  Sheets("Test").Paste
 
                End If
 
         Next j
 
     Next i
 
End Sub