Microsoft 365 Choisir les colonnes les plus récentes pour effectuer un taux d'évolution entre 2 dates

Victor21

XLDnaute Barbatruc

• 18 Août 2019

• #2

Bonsoir, zaza34.

Un exemple allégé -et anonymisé- de votre fichier Excel nous aiderait à visualiser l'organisation, et à tester d'éventuelles propositions. Peut-être avec décaler() ?

 

Vote positif 0 Vote négatif

Z

zaza34

XLDnaute Nouveau

• 18 Août 2019

• #3

Bonsoir,

Voici un exemple allégé, sans les couleurs.

 

Pièces jointes

• Exemple excel.xlsx

  8.8 KB · Affichages: 6

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 18 Août 2019

• #4

Re,

Superbe exemple qui nous aide à comprendre ce que vous voulez faire...
Les deux colonnes les plus à gauche renseignées dans votre exemple sont les colonnes C et D.
Prenez ces deux colonnes.
Pour en faire quoi ? vous ne le dites pas
Pour mettre où ? vous ne dites pas
A tout hasard en E1 : =SI(($C1*$D1)>0;($C1-$D1)/$D1;"") à recopier vers le bas

 

Vote positif 0 Vote négatif

Z

zaza34

XLDnaute Nouveau

• 18 Août 2019

• #5

Bonsoir,

Je voudrais une formule pour que la colonne S se calcule automatiquement.

 

Pièces jointes

• Exemple excel.xlsx

  9.7 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Août 2019

• #6

Bonsoir zaza34, Patrick,

Voyez le fichier joint avec cette formule matricielle en S1 :

Code:

=SIERREUR(INDEX(A1:R1;PETITE.VALEUR(SI(ESTNUM(A1:R1);COLONNE(A1:R1));1))/INDEX(A1:R1;PETITE.VALEUR(SI(ESTNUM(A1:R1);COLONNE(A1:R1));2))-1;"")

Bonne nuit.

 

Pièces jointes

• Exemple excel(1).xlsx

  15.9 KB · Affichages: 6

Dernière édition: 19 Août 2019

Vote positif 0 Vote négatif

Z

zaza34

XLDnaute Nouveau

• 19 Août 2019

• #7

Bonjour job75,

Merci beaucoup pour votre aide.
Malheureusement, mes données sont sous forme de tableau et lorsque je veux valider la formule, j'ai une invite qui m'affiche: "Un tableau ne peut pas contenir de formules matricielles à plusieurs cellules."
J'aurais dû vous donner un exemple plus parlant qui faisait apparaître ce qui pour moi était un détail.
Auriez-vous une idée pour contourner ce problème ?

Cordialement,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Août 2019

• #8

Avec un tableau Excel structuré les formules matricielles vont très bien, voyez ce fichier (2).

Le problème vient du fait que vous avez essayé de valider en bloc une plage de plusieurs cellules.

Il faut valider par Ctrl+Maj+Entrée uniquement la cellule S2, la formule se recopie automatiquement vers le bas.

 

Pièces jointes

• Exemple excel(2).xlsx

  17.6 KB · Affichages: 5

Vote positif 0 Vote négatif

Z

zaza34

XLDnaute Nouveau

• 19 Août 2019

• #9

Merci job75,
Je vous joins le fichier qui me donne des résultats erronés, je ne sais pour quelle raison.
Pourriez-vous jeter un oeil sur celui-ci ?
Cordialement,

 

Pièces jointes

• Exemple excel.xlsx

  28.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 19 Août 2019

• #10

Bonjour,zzaz34, Gérard

Essayez en EP2:

VB:

=SIERREUR((INDEX(D2:DI2;PETITE.VALEUR(SI(ESTNUM(D2:DI2);COLONNE(A2:DF2));1))-INDEX(D2:DI2;PETITE.VALEUR(SI(ESTNUM(D2:DI2);COLONNE(A2:DF2));2)))/INDEX(D2:DI2;PETITE.VALEUR(SI(ESTNUM(D2:DI2);COLONNE(A2:DF2));2));"")

*COLONNE(A2: DF2) n'est pas une zone, mais un numéro d'ordre devant commencer par 1 (A2:A2), et contenir autant de membres qu'en contiennent les zones.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Août 2019

• #11

Tout à fait Patrick.

Puisque la formule détermine la position avec COLONNE() il faut utiliser INDEX(A2: DI2; en EP2.

Code:

=SIERREUR(INDEX(A2:DI2;PETITE.VALEUR(SI(ESTNUM(D2:DI2);COLONNE(D2:DI2));1))/INDEX(A2:DI2;PETITE.VALEUR(SI(ESTNUM(D2:DI2);COLONNE(D2:DI2));2))-1;"")

Fichier (3).

 

Pièces jointes

• Exemple excel(3).xlsx

  30 KB · Affichages: 5

Vote positif 0 Vote négatif

Z

zaza34

XLDnaute Nouveau

• 19 Août 2019

• #12

Gérard et Patrick,
Merci beaucoup pour m'avoir apporté la solution à ce problème, en un temps record qui plus est.
Bonne journée à tous,
Xavier

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Août 2019

• #13

Maintenant si vous voulez du VBA vous pouvez utiliser cette fonction, à placer impérativement dans un module standard :

VB:

Function Evolution(r As Range)
If Application.Count(r) < 2 Then Evolution = "": Exit Function
Dim a(1), n As Byte
For Each r In r
    If IsNumeric(CStr(r)) Then a(n) = r: n = n + 1: If n = 2 Then Exit For
Next
Evolution = a(0) / a(1) - 1
End Function

Formule très simple en EP2 du fichier .xlsm joint :

Code:

=Evolution(D2:DI2)

 

Pièces jointes

• Exemple excel VBA(1).xlsm

  34.7 KB · Affichages: 8

Vote positif 0 Vote négatif

Z

zaza34

XLDnaute Nouveau

• 19 Août 2019

• #14

Remarquable, mais là vous dépassez largement mon seuil de compétence et de compréhension
Je vais m'en tenir à la version Excel qui me sera peut-être plus facile à transposer au cas où je modifierais les cellules concernées à l'avenir.
Merci encore

 

Vote positif 0 Vote négatif