Dans un second Tableau je souhaite garder que les 10 dernières lignes de valeur pour chaque produit.
Tout en renumérotant à partir de 1 la colonne du Tableau Résultat.
Une petite modification du code de DoubleZero pour supprimer les lignes par groupe (de 10 à n) pour accélérer le traitement. Remplacer :
Code:
For i = Cells(Rows.Count, "e").End(xlUp).Row To 7 Step -1
If Range("e" & i) > 10 Then Rows(i).Delete
Next i
par
Code:
i = Cells(Rows.Count, "e").End(xlUp).Row
While Range("e" & i) <> ""
If Range("e" & i) > 10 Then
Deb = CLng(Range("e" & i)) - 10
Deb = i - Deb + 1
Rows(Deb & ":" & i).Delete Shift:=xlUp
i = Deb - 11
Else
i = i - CLng(Range("e" & i))
End If
Wend
Ca a l'ai de fonctionner. Comme je croise la route de DoubleZero , j'en profite pour mettre un "Like +" pour toutes ses méthodes de lignes, colonnes provisoires et autres qui sont bien utiles.
....Comme je croise la route de DoubleZero , j'en profite pour mettre un "Like +" pour toutes ses méthodes de lignes, colonnes provisoires et autres qui sont bien utiles...