Discussion :

[mrmouche30]

Bonjour à tous,

Je me permets d'ouvrir une nouvelle discussion, cela sera plus facile pour le suivi.
je cherche à réconcilier automatiquement des données issu de deux sources différentes pour s'assurer que tout va bien.

Je copie colle donc dans une feuille excel les données d'une source, et j'en profite pour insérer une colonne N (Quantity + Pending) qui additionne les montants de la colonne M (Quantity) et S (Pending), ensuite je souhaiterai pouvoir supprimer les lignes où la cellule dans la colonne N est égal à zéro, voici le code que j'ai pour le moment :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sheets("Apex").Range("N1").EntireColumn.Insert
Sheets("Apex").Range("N1").Value = "Quantity + Pending"
 
 
For i = 2 To Sheets("Apex").Range("B2").End(xlDown).Row
Sheets("Apex").Cells(i, 14).Value = Sheets("Apex").Cells(i, 13).Value + Sheets("Apex").Cells(i, 19).Value
 If Sheets("Apex").Cells(i, 14).Value = 0 Then Sheets("Apex").Rows(i).Delete
 
Next
 
End

Ca ne fonctionne pas comme je le souhaiterai, auriez-vous quelques idées ?

Merci d'avance

[Philippe Tulliez]

Bonjour,

Ca ne fonctionne pas comme je le souhaiterai, auriez-vous quelques idées ?

Sujet régulièrement évoqué dans ce forum.
Lorsque l'on supprime les lignes d'une liste de données, on commence par la dernière et on remonte vers la première.
Il y a donc lieu de modifier ta boucle.

[mrmouche30]

Salut Philippe,

Désolé je débute un peu en VBA,

J'ai essayé ça mais ça ne fonctionne pas non plus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sheets("Apex").Range("N1").EntireColumn.Insert
Sheets("Apex").Range("N1").Value = "Quantity + Pending"
 
 
For i = 2 To Sheets("Apex").Range("B65536").End(xlUp).Row
Sheets("Apex").Cells(i, 14).Value = Sheets("Apex").Cells(i, 13).Value + Sheets("Apex").Cells(i, 19).Value
 If Sheets("Apex").Cells(i, 14).Value = 0 Then Sheets("Apex").Rows(i).Delete
 
Next
 
End

[Menhir]

J'ai essayé ça mais ça ne fonctionne pas non plus :

D'après le code que tu présentes, tu n'as pas compris l'explication de Philippe ( ).
La modification n'est pas à faire sur la recherche de la dernière cellule (même si c'est mieux ainsi) mais sur la boucle For To.

Ta boucle For To doit tourner "à l'envers", aller de la plus grande valeur à la plus petite en décrémentant le compteur au lieu de l'incrémenter.
Pour ça, il faut inverser les valeurs de tes bornes et ajouter un Step -1 pour indiquer d'aller à rebour.

[mrmouche30]

Salut,

Alors maintenant j'ai mis le code de cette façons et cela fonctionne :

Code :

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

1
2
3
4
5
6
7
8
 
Sheets("Apex").Range("N1").EntireColumn.Insert
Sheets("Apex").Range("N1").Value = "Quantity + Pending"
 
 
For i = Sheets("Apex").Range("B65536").End(xlUp).Row To 1 Step -1
Sheets("Apex").Cells(i, 14).Value = Sheets("Apex").Cells(i, 13).Value + Sheets("Apex").Cells(i, 19).Value
 If Sheets("Apex").Cells(i, 14).Value = 0 Then Sheets("Apex").Rows(i).Delete

J'ai juste un mini problème c'est qu'avec cette formule le nom que j'avais mis dans la colonne N1 "Quantity + Pending" a sauté à cause de la formule qui va du bas vers le haut

[Menhir]

J'ai juste un mini problème c'est qu'avec cette formule le nom que j'avais mis dans la colonne N1 "Quantity + Pending" a sauté à cause de la formule qui va du bas vers le haut

A mon avis, ça a surtout sauté à cause de ton To 1 qui ne correspond pas au For i = 2 de ton premier code.
Erreur d'inattention.