Séléction des 12 dernières lignes dans un tableau

Résolu
Bonjour,
J'ai un tableau qui est dynamique et se complémente en permanence de nouvelles données. J'aimerai récupérer seulement les valeurs des 12 dernières lignes.
Est-ce faisable?
En vous remerciant

Cordialement.

Sam

4 réponses

  1. Bonjour

    tes données en colonne A, pour calculer la moyenne des 12 dernieres
    =MOYENNE(DECALER(A1;NB($A:$A)-1;0;-12;1))

    Cdlmnt

    formule rectifiée
    0
    1. Bonjour,

      Je souhaite récuperer les valeurs mais pas leur moyennes.
      C'est comme si on avait un copier coller du tableau mais que pour la partie inférieure
      0
  2. Contributeur
    Bonjour
    sans votre modèle, juste un principe à adapter en supposant que la colonne A feuil1 (ou autre) de votre tableau n'ait pas de cellule vide intercalée:

    pour éditer les 12 dernières valeur de la colonne A en feuil2 A2:

    =DECALER(feuil1!$A$1;NBVAL(feuil1!A:A)-12+LIGNE()-2;)
    pour avoir la valeur de A et tirer jusqu'en ligne 13 pour avoir le total
    même formule pour éditer B
    mais avec:
    =DECALER(feuil1!$A$1;NBVAL(feuil1!A:A)-12+LIGNE()-2;1)
    ;2) pour C, ect...
    Note
    __NBVAL peut s'adresser à n'importe quelle colonne remplie
    __attention aux signes $ sur $A$1
    __=LIGNE()-2 doit donner 0 sur la ligne où la 1° formule se trouve)
    __le -12 est à ajuster selon que A commence en A1 ou A2, avec ou sans titre ect...
    crdlmnt

    Errare humanum est, perseverare diabolicum
    0
    1. Merci beaucoup ça marche sur excel Nickel!!
      0
  3. Je souhaite récuperer les valeurs
    Ok, mais pour en faire quoi ?
    0
    1. Un exemple peut être
      http://www.cjoint.com/c/EFDnexHDzFg

      Cdlmnt
      0
      1. les valeurs je les réccupère pour tracer un graphe à 12 mois seulement.
        En tous cas merci pour votre aide
        0
      2. Voici la solution en vba pour les intéressées!

        Sub test()

        Range("A65536").End(xlUp).Offset(-11, 0).Select
        Range(Selection, Selection.End(xlToRight)).Select
        With Selection

        .Copy

        Range("h1").Select
        'Selection.End(xlDown).Select
        Selection.Insert

        End With
        End Sub
        0