XL 2016 Compter les changements de prix et les qualifier (hausses/baisses)

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2023

• #2

Bonsoir @ador_matt ,

Avec une fonction personnalisée en VBA : Changement(plage, xtype) où :

• plage est la plage en ligne des valeurs
• xtype est le type de retour souhaité

• xtype égal à 0 => on compte les changements
• xtype négatif => on compte les baisses
• type positif => on compte les hausses

Voir les formules en H4, I4 et J4 à recopier vers le bas.

Le code est dans module1:

VB:

Function Changement&(xplage As Range, xtype&)
Dim t, n&, j&, res&
   t = xplage.Value
   For j = 1 To UBound(t, 2)
      If t(1, j) <> "" Then n = n + 1: t(1, n) = t(1, j)
   Next j
   If xtype < 0 Then
      For j = 1 To n - 1: res = IIf(t(1, j) > t(1, j + 1), res + 1, res): Next
   ElseIf xtype = 0 Then
      For j = 1 To n - 1: res = IIf(t(1, j) <> t(1, j + 1), res + 1, res): Next
   Else
      For j = 1 To n - 1: res = IIf(t(1, j) < t(1, j + 1), res + 1, res): Next
   End If
   Changement = res
End Function

 

Pièces jointes

• ador_matt- nbr variation- v1.xlsm

  18.9 KB · Affichages: 4

Vote positif 0 Vote négatif

A

ador_matt

XLDnaute Junior

• 12 Juin 2023

• #3

Bonsoir et merci @mapomme,

Je dois admettre ne pas trop être à l'aise voir totalement débutante avec la création d'un code VBA personnalisé mais grâce à vous je viens de m'initier!

Ca semble fonctionner parfaitement, à moi de l'industrialiser...même je dois avouer que le code en lui même me dépasse complètement et qu'il me serait impossible de l'expliquer

Merci encore!

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2023

• #4

Re,

Comme je l'ai indiqué dans ma signature :

Mes codes ne sont généralement pas commentés sauf si on me le demande gentiment...

Cliquez pour agrandir...

A vous de voir .

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2023

• #5

Re,

Voici le fichier v1b dont le code est commenté.

Soyez rassuré. On ne devient pas utilisateur confirmé du VBA en quelques jours. Il faut un peu de temps.

D'autant plus que les versions modernes d'Excel intègre un outil "Power Query" qui permet bien souvent de se passer de VBA (je pense que Excel 2016 l'intègre) et il y a aussi la version Office 365 avec ses nouvelles fonctions très élaborées qui permettent aussi de se passer de VBA.

C'est pourquoi de nos jours, on peut trouver différentes réponses à une même question qui utilisent des formules à l'ancienne ou du VBA ou Power Query ou bien des formules avec les nouvelles fonctions incluses dans O365.

 

Pièces jointes

• ador_matt- nbr variation- v1b.xlsm

  22.1 KB · Affichages: 4

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2023

• #6

Re,

Une version un peu capillotractée avec rien que des formules.
On passe par une feuille intermédiaire "Auxil" pour regrouper les valeurs non vides à partir de la colonne D.
Les calculs (changements, hausses et baisses) se font colonnes H à J sur la feuille auxil.
Sur la feuille initiale, on vient chercher les résultats de la feuille "Auxil".
Voir le fichier joint.

 

Pièces jointes

• ador_matt- nbr variation- v2 (formules).xlsx

  18.9 KB · Affichages: 7

Vote positif 0 Vote négatif

A

ador_matt

XLDnaute Junior

• 13 Juin 2023

• #7

Bonjour!
Merci pour ces différentes solutions, c'est vraiment très gentil de votre part.
Voilà plusieures version que je vais tester et essayer de comprendre par moi même(toujours plus gratifiant), un excellent exercice pour consolider mon piètre niveau .

Je reviens vers vous en cas de question(s)!
Excellente journée.
Mathilde

 

Vote positif 0 Vote négatif

A

ador_matt

XLDnaute Junior

• 19 Juin 2023

• #8

RE-bonjour,

J'ai bien mis en place avec succès le premier code VBA, c'est top ça fait le job!
Sans vouloir abuser, je me demandais si par hasard il y aurait une solution "simple" pour ajouter la moyenne des hausses et des baisses en pourcentage sur la période?

Merci beaucoup!!

 

Vote positif 0 Vote négatif