Traitement de données en VBA

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:

---

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

---

Bonsoir à tous
Bonsoir valjean0

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

Code:

---

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

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,

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

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é.

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.

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

Hello

Il faut prendre l'ensemble des nombres positifs se répétant en négatif.

On peut rajouter une condition si jamais c'est possible c'est que le numéro du montant en colonne D (relatif à chaque montant en G) soit le même.

Par ailleurs j'ai essayé de rajouter une autre condition à ta macro c'est d'inclure uniquement les nombres strictement supérieur à 10 mais cela m'affiche un message d'erreur.

Cordialement, et je te remercie encore de ton temps/aide.

Re

Que ce soit clair pour moi :

Exemple :
Le 1er nombre est négatif => on prend le 1er nombre positif suivant : c'est le premier nombre en descendant qui est prioritaire, dans les 2 cas (+ et -) ?

1ère condition : il faudrait que le montant "G" et "D" soit identique ?

2ème condition : + de 10, cela doit être possible

A+
Eric

1er : Dans la colonne D il y'a un numéro comprenant des string/int.

Si un montant en G2 et en G5 est le même (ex :-500; 500) mais de signe différent et que le numéro en D2 et D5 (ex : 5435A5) est exactement le même alors c'est bon.

2eme : Le montant en G > 10.

Merci

Re

2eme : Le montant en G > 10. ne serait-ce pas : on exclut de -10 à +10 ?

Pour pouvoir tester la colonne D il faudrait le fichier avec G et D, merci

A+

Re

Excuse moi de la réponse tardive,

En effet on exclut les montant compris entre -10 et 10.

Pour des raisons professionnelles je ne peux pas transmettre la colonne D, cependant je peux préciser que son architecture est de cette façon : Elle composée du même nombre de lignes que la colonne G et composée de 7 caractères dont un string et 6 int (444444A ou A444444).

Merci

Bonjour à vous, Bonjour au forum,

D'abord sur Excel.

Il faut à mon sens raisonner sur les différents critères par des colonnes de calcul intermédiaires.
Ceci afin d'aboutir à un résultat 1 ou 0.

Sur VBA, ensuite.

Et c'est ce résultat à partir duquel s'effectuera la procédure d'archivage dont j'ai énoncé le processus dans mon précédent post.

Un début de piste pour la partie Excel dans le fichier ci-joint.
Seraient archivées les données dont la dernière colonne résultante reporterait la valeur 1.

Bien entendu, j'utilise des références de formulation structurées, basées sur des objets tableau éponymes.
Avant d'adresser un retour, il te faudra évidemment comprendre les différentes formules.

Cela dit, si un tel paramétrage peut s'avérer si complexe, ce doit être alors la rigueur des données qui peut, sans doute, être remise en cause.