Discussion :

[Philippe Boulanger]

Bonjour,
Je suis nouveau sur le site et ne suis pas certain d'être au bon endroit pour poser ma question mais je tente quand même.
Je cherche une formule qui me permettrait, dans un tableau xls, de faire une soustraction sur base d'une condition.
Par exemple, dans un petit tableau avec 2 colonnes (A et B) et 5 lignes de 1 à 5.
La celulle A5 est alimentée par des données venant d'un formulaire.
Pour calculer la valeur de la celulle B5, ma formule est la suivante: si A5 <> 0 alors B5 = A5 - A4 sinon B5 = A5 - (la valeur de la première cellule différente de 0 en remontant de A5 vers A1)

Cela ne doit pas être très compliqué mais je ne suis pas un expert en vba et je cherche une solution depuis plusieurs jours sans trouver un code adapté.
Merci pour votre aide,
Bien à vous
Philippe

[Invité]

Bonjour Philippe,

Je pense qu'avec un fichier et un exemple de ce que vous voulez, il serait plus facile de comprendre 🤔

A+

[Philippe Boulanger]

Bonjour Philippe,

Je pense qu'avec un fichier et un exemple de ce que vous voulez, il serait plus facile de comprendre 🤔

A+

En effet, voici un petit fichier avec qqs explications complémentaires.
J'espère que ça peut aider à voir ce que je cherche.
Merci

[Invité]

Bonjour Philippe

Je ne sais pas si les valeurs sont systématiquement grandissante dans ton tableau,
si tel est le cas, voici une formule à mettre en B2, recopie vers le bas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(ESTNUM(A1);A2<>0);A2-MAX(A$1:A1);0)

Sinon, je ne sait pas si c'est faisable en Power Query, il faudra alors une fonction personnalisée en VBA

A+

[jurassic pork]

Hello,
Voici une fonction personnalisée en VBA avec comme paramètre une cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CalcDiff(Cellule As Range)
Dim x As Integer
CalcDiff = 0
If Cellule.Value = 0 Then Exit Function
x = -1
Do
   If Not IsNumeric(Cellule.Offset(x, 0)) Then Exit Do
   If Cellule.Offset(x, 0).Value <> 0 Then
       CalcDiff = Cellule.Value - Cellule.Offset(x, 0)
       Exit Do
   End If
   x = x - 1
Loop
End Function

Le principe :
Si la cellule est égale à 0 on renvoie 0
Si la cellule est différente de 0 on boucle sur les cellules au-dessus jusqu'à ce que l'on trouve une cellule dont la valeur est différente de 0 ou n'est pas numérique. Au pire on sortira de la boucle quand on atteindra la ligne de titre du tableau car les valeurs ne sont pas numériques. La valeur renvoyée est la différence entre la valeur de la cellule de départ et la première valeur non nulle trouvée dans les cellules au-dessus.


A voir si cela fonctionne dans tous les cas de figure.


En tout cas cela semble fonctionner avec le tableau fourni :



Ami calmant, J.P

[Philippe Boulanger]

Bonjour Jurassic Pork,
Un tout grand merci pour cette fonction magique qui fonctionne parfaitement et que j'ai pu appliquer à toutes les colonnes calculées de mon tableau.
En fait vous avez traduit en code ce que j'avais dans ma petite tête de pensionné apprenti en VBA, c'est super.
Je tiens également à vous remercier BrunoM45 et vous pour votre rapidité à me répondre, c'est encourageant.
Si je peux me permettre il y 2 choses que je voudrais encore demander:
1: Je me suis trompé concernant le résultat à obtenir pour la première ligne du tableau en cellule B2. En fait, si la cellule en (-1,0) est numérique cela signifie que je suis sur la première ligne contenant des valeurs et dans ce cas uniquement la valeur de B2 devrait être égale à la valeur de A2.
2: Dans le cas de changement de valeur dans une des cellules existante de la colonne A, il faudrait que toutes les valeurs de la colonne B soient recalculées afin de garder un résultat correct.
Avec la fonction actuelle, seule la cellule de la ligne sur laquelle je change la valeur de A est recalculée et ensuite les autres restent identiques.
Est-il envisageable de recalculer l'ensemble des cellules en colonne B ?

J'espère que mes explications sont claires.
Merci encore,
Bien à vous,
Philippe

[Philippe Boulanger]

Grand merci BrunoM45,
en effet la formule fonctionne parfaitement si les valeurs de la colonne A sont toujours croissantes.
Malheureusement, dans mon tableau qui contient une quinzaine de colonnes et qqs centaines de lignes, il y a 2 colonnes dans lesquelles il peut y avoir de temps en temps une valeur décroissante et dans ce cas le résultat n'est pas correct.
S'il y avait un moyen d'adapté la formule ce serait magnifique.
Bonne journée à toi et à bientôt surement,
Philippe

[Invité]

Bonjour Philippe

Il faudra utiliser la super fonction de Jurassik pork que je salue

A+