Discussion :

[malabarbe]

Bonsoir,

Je voudrais pouvoir trier les lignes de la col B
pour récuppérer les données dans la col C
mais triées comme le résultat dans la col D.

Je joint mon fichier pour exemple

Merci à vous

[fring]

Bonsoir,

euuh......
avant tri
2
0
1
3
3
15
0

après tri
2
0
0
-1
-3
-2
-15

j'ai du louper un épisode...tu pourrais expliquer quelle est la logique dans ce tri ?

[malabarbe]

Bonsoir,

Merci de m'avoir répondu

J'avais toute une explication, mais elle
a disparue quand j'ai joint mon fichier.

Je m'explique :

Dans la col A, il y a 3 sections différentes
si on ne prends que la première section,
les données de la B2 doivent se retrouver dans la col C2
La col C3 est toujours a zéro.
Les données de B3 doivent se retrouver en C4 mais en négatif
Les données de B4 doivent se retrouver en C5 mais en négatif

etc...

et pareil pour chaque sections

A te lire

PS: Dans la col D, ce sont les résultats que je voudrais

[fring]

Un truc du genre devrait faire l'affaire

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
Sub test()
Dim section As String, i As Integer
 
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row '<-- boucle de la ligne 2 à la dernière ligne utilisée
    If Left(Cells(i, 1), 1) <> section Then '<-- vérifie le changement de section
        section = Left(Cells(i, 1), 1)  '<-- mémorise la nouvelle section (1er chiffre)
        Cells(i, 3) = Cells(i, 2)
        Cells(i + 1, 3) = 0
        i = i + 1
    Else
        Cells(i, 3) = -Cells(i - 1, 2)
    End If
Next
 
End Sub

[malabarbe]

Bonjour fring,

Je viens juste de tester ton bout de code

Cela tourne super et du premier coup

Un grand MERCI

@ +