Garder que les 10 dernière valeur (VBA)

DoubleZero

XLDnaute Barbatruc

• 31 Décembre 2013

• #2

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

Bonjour, xvella, le Forum,

Un essai en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - xvella - Dix dernières valeurs.xls

  83.5 KB · Affichages: 43

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 31 Décembre 2013

• #3

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

Re-bonjour,

Une autre version tenant compte de ceci :

xvella à dit:

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

Cliquez pour agrandir...

A bientôt 🙂

 

Pièces jointes

• 00 - xvella - Dix dernières valeurs V2.xls

  84.5 KB · Affichages: 48

Vote positif 0 Vote négatif

xvella

XLDnaute Occasionnel

• 31 Décembre 2013

• #4

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

 

Vote positif 0 Vote négatif

J

Jack2

XLDnaute Occasionnel

• 31 Décembre 2013

• #5

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 :

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.

Bonne fête de fin d'année

A+ Jac2

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 31 Décembre 2013

• #6

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

Re-bonjour, bonjour, Jack2 🙂,

Jack2 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif