Garder que les 10 dernière valeur (VBA)

[xvella]

Bonjour,

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.

Merci d'avance.
Bonne Fête à tous.

A++

 

[DoubleZero]

Re : Garder que les 10 dernière valeur (VBA)

Bonjour, xvella, le Forum,

Un essai en pièce jointe.

A bientôt

 

[DoubleZero]

Re : Garder que les 10 dernière valeur (VBA)

Re-bonjour,

Une autre version tenant compte de ceci :

...Tout en renumérotant à partir de 1 la colonne du Tableau Résultat...

A bientôt

 

[xvella]

Re : Garder que les 10 dernière valeur (VBA)

Bonsoir,

Je te remercie beaucoup car cela me convient amplement.

Je te souhaite de passer une excellente fin d'année et tous plein de bonne chose pour la prochaine.

Encore MERCI.

A++

 

[Jack2]

Re : Garder que les 10 dernière valeur (VBA)

Bonjour à tous,

Une petite modification du code de DoubleZero pour supprimer les lignes par groupe (de 10 à n) pour accélérer le traitement. Remplacer :

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

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.

Bonne fête de fin d'année

A+ Jac2

 

[DoubleZero]

Re : Garder que les 10 dernière valeur (VBA)

Re-bonjour, bonjour, Jack2 ,

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

Grand MERCI pour ce "Like", Jack2.

Je dois, cependant, avouer que si je fais appel aux colonnes et / ou lignes provisoires c'est que j'ai, encore, beaucoup à apprendre ...

Bon réveillon, suivi d'une merveilleuse année !

A bientôt