épuration note de frais

[Novice avance !?]

bonjour,
en pièce jointe un fichier explicatif

pour un code vba qui permettrait grace à différente boucle de supprimer des n° compte spécifique; supprimer les n° de compte dont les sous-totaux sont négatifs et donc ne conserver que les positifs...

merci par avance
Cordialement

 

[pierrejean]

Re : épuration note de frais

bonjour

Vois si cela te convient

 

[Novice avance !?]

Re : épuration note de frais

bonjour

Vois si cela te convient

bonjour et merci mais ...
voici le code récupéré grace à pierrejean :

Sub test()
Application.ScreenUpdating = False
For n = Range("C65536").End(xlUp).Row To 11 Step -1
If Range("H" & n) = 68 Or Range("C" & n) = 311002189 Then
Rows(n).Delete
End If
Next n
For n = 11 To Range("C65536").End(xlUp).Row
tot = tot + Range("G" & n)
If Range("C" & n + 1) <> Range("C" & n) Then
Range("B" & n) = tot
tot = 0
End If
Next n
For n = Range("C65536").End(xlUp).Row To 11 Step -1
If Range("B" & n) < 0 Or adeleter = Range("C" & n) Then
adeleter = Range("C" & n)
Rows(n).Delete
End If
Next n
Application.ScreenUpdating = True
End Sub
________________________________________________________________
pour le code en rouge : qui permet semble-t-il de calculer les sous-totaux par n° de compte : les astérisques (*) en colonne B souligne la ligne du sous-total déjà calculé donc le code nous donne de mauvais résultat;

n'est-il pas possible de laisser les lignes avec * dont le sous-total est positif telles-quels ?
_________________________________________________________________

pour le code en vert : comment expliquer ce code ?


merci par avance
bonne journée

 

[pierrejean]

Re : épuration note de frais

Re

Je ne vois pas de sous_total deja calculé
Quel resultat attends_tu , si celui donné est faux ???
On verra a expliquer la partie en vert ensuite

 

[Novice avance !?]

Re : épuration note de frais

si lon reprends le fichier initial :

- en B15 une * , en G15 : 122.20 soit la somme G13:G14 pour le compte n° 311001858

- en B56 une *, en G56 : -209.35 soit la somme G51:G55 pour le compte n° 311004228

donc je ne veux voir apparaitre aucun sous-total puisqu'il sont déjà calculé par n° de compte
simplement supprimer les n° de compte dont le sous-total que l'on trouve en colonne G de chaque ligne où il y a une * en colonne B est négatif

les lignes avec * en colonne B et les lignes au-dessus correspondant au même n° de compte dont le sous-total est positif sont à conserver telles-quelles

en dehors des autres contraintes définis dans le fichier initial

merci

 

[pierrejean]

Re : épuration note de frais

Re

J'avais compris : mettre un sous_total ou il y a un * et non
la ou il y a un * c'est un sous_total
Mes excuses donc
et vois si cela va mieux ainsi