Discussion :

[valjean0]

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

[eric4577]

Bonsoir à tous
Bonsoir valjean0

Je ne sais pas si tu as trouvé, mais je te propose ceci au cas où :

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
45
46
47
48
49
50
Sub traitement_01()
 
Dim c As Range
Dim firstAddress As String
Dim firstlign As Integer
Dim mavar As String
Dim Rg_Ligne As Range, Rg_Total As Range
Dim tablo(2000)
Dim num As Boolean
 
'Dim test
 
For i = 2 To 2000
'test = num
    Set Rg_Total = ActiveSheet.Range("A2:G2")
 
    With Worksheets("Feuil1").Range("G:G")
        mavar = Range("G" & i)
        Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlPart) '
        If Not c Is Nothing Then
            firstAddress = c.Address
            firstlign = c.Row
            Do
                If mavar = WorksheetFunction.ImAbs(c.Value) Then
                    If c.Row <> firstlign Then
                        tablo(c.Row) = c.Row
                        num = True
                    End If
                End If
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
        If num = True Then tablo(firstlign) = firstlign    ' : Range("G" & firstlign).Clear
    End With
 
    num = False
Next i
 
For x = 2 To 2000
    If tablo(x) <> "" Then
        Set Rg_Ligne = ActiveSheet.Range("A" & tablo(x) & ":G" & tablo(x))
        Set Rg_Total = Application.Union(Rg_Total, Rg_Ligne)
    End If
Next x
 
Rg_Total.Copy Sheets("Feuil2").Range("a1")
 
Rg_Total.EntireRow.Delete
 
End Sub

Bien entendu, il faut l'adapter.

Tu nous dis

Eric

[valjean0]

Bonjour Eric,

Merci de ton aide, j'ai essayé ta version de la macro et ça marche plus ou moins.

Cela rapatrie des valeurs dont les doublons ne sont pas présents en négatif dans la colonne G.

Merci bien;

Valjean,

[eric4577]

Re

Je n'ai peut-être pas compris exactement la demande !

Faut-il que les deux nombres soient de signe contraire obligatoirement ? Sont-ils nommés plusieurs fois dans le colonne, c'est-à-dire 1 ou plusieurs fois 500 et 1 fois ou + -500 ?

Pourrais-tu mettre juste la colonne "G" en fichier joint pour que l'on puisse tester ?

A+
Eric

[MarcelG]

Salut,

Pour ma part, je gèrerais 2 tables de données (tableaux structurés)

Processus

1 - Balayer les cellules du corps de cellules d'une colonne en partant de la dernière
2 - Si la condition est remplie pour supprimer l'enregistrement alors
Alimenter une variable tableau
Supprimer l'enregistrement (ListRows)
3 - En fin de balayage, reverser la variable tableau sur le tableau structuré en destination

C'est ce processus que j'utilise pour mes applicatifs affectés d'un back-up d'archives, par exemple

Revenir si cette piste est envisageable pour le cas présenté.

[valjean0]

Bonjour Eric,

Les données sont nommées une seule fois en négatif et une fois ou plusieurs fois en positif (une seule fois à prendre uniquement).

Ci-joint la colonne G.

Merci de ton aide.

[eric4577]

Re

Sur le fichier communiqué, il y a certains nombres en négatif qui sont répétés avec les mêmes nombres en positif également cités plusieurs fois. Que doit-on faire ? Y a t il un critère ? on prend le premier ? le deuxième ? ......

Merci de nous éclairer.

A+
Eric