XL 2016 Valeur de départ puis incrémentation possible via autre cellule ?

Lone-wolf

XLDnaute Barbatruc

• 13 Août 2022

• #2

Bonjour bilbinou, le Forum.

À copier dans le module de la feuille.

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    If Range("b1").Value = "pomme" Then
        Range("a1").Value = Range("a1").Value + 1
    Else
        Range("a1").Value = Range("a1").Value - 1
    End If

    Application.EnableEvents = True

End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Août 2022

• #3

Bonjour @bilbinou

Edit : Bonjour @Lone-wolf

Je te propose ce fichier :

Merci de ton retour

@Phil69970

 

Pièces jointes

• Pomme ou fraise V1.xlsm

  15 KB · Affichages: 11

Vote positif 0 Vote négatif

B

bilbinou

XLDnaute Nouveau

• 13 Août 2022

• #4

Bonjour @Phil69970 , @Lone-wolf

Cliquez pour agrandir...

Un grand merci pour votre retour à vous 2. Ma question était plus tournée vers les formules de cellule sans codage vba. Savez-vous quelle fonction dois-je utiliser pour parvenir au même résultat que vos deux propositions ?
Encore une fois, merci à vous
Cordialement

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Août 2022

• #5

Rebonjour bilbinou, Phil69970.

Regarde le fichier que Phil a mis en pj.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Août 2022

• #6

Re

Sans VBA je suis pas sur que cela soit possible

@Phil69970

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Août 2022

• #7

Bonjour bilbinou, Lone-wolf, Phil69970,

Menu Fichier => Options => Formules, cocher Activer le calcul itératif, Nb maximal d'itérations => 1.

Formule en C1 :

Code:

=SI(CELLULE("address")="$A$1";A1;SI(CELLULE("address")="$B$1";C1+(B1="pomme")-(B1="fraise");C1))

A+

 

Pièces jointes

• Calcul itératif.xlsx

  10.1 KB · Affichages: 8

Vote positif 0 Vote négatif

B

bilbinou

XLDnaute Nouveau

• 13 Août 2022

• #8

Bonjour @Lone-wolf, @Phil69970, @job75
Merci pour vos retours. En effet, il y a bien incrémentation avec cette formule mais j'aimerai que l'incrémentation se fasse dans la cellule a1 et non C1.
Je rentre une valeur dans a1 (cette cellule n'a donc pas de formule) et la valeur de a1 va s'incrémenter ou décrémenter en fonction de ce qu'il y a écrit dans b1 (pomme ou fraise). Est-ce possible de faire cette opération sans macro ?
Merci d'avance pour votre aide
Cordialement

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Août 2022

• #9

Bonjour,

Tout comme Phil69970 je ne crois pas que ce soit possible sans VBA.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Août 2022

• #10

Si l'on veut que A1 s'incrémente par formule il faut une formule en A1 comme je l'ai fait en C1.

Donc il ne faudra plus y entrer de valeur manuellement puisque ça effacerait la formule.

 

Vote positif 0 Vote négatif