XL 2016 Addition automatique même cellule

[Taratessy]

Bonjour, je cherche à créer une addition au sein d'une même cellule. A savoir : pouvoir entrer un premier chiffre dans la cellule aujoud'hui, qu'il soit gardé en mémoire , pouvoir par la suite, en entrer un 2ème dans cette même cellule et qu'elle fasse l'addition automatiquement en écrasant le premier.

merci pour votre aide

 

[JM27]

bonjour
A tester ( il faut que le style de la cellule soit "Entrée")
ici les cellules en roses
A toi de créer un style qui te conviens et de modifier la macro en conséquence

 

[job75]

Bonjour Taratessy, bienvenue sur XLD, salut JM27,

Il faut mémoriser la valeur de la cellule, par exemple dans un nom défini.

Voyez le fichier joint et cette macro évènementielle dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
With [A1] 'cellule à adapter
    Set Target = Intersect(Target, .Cells)
    If Target Is Nothing Then Exit Sub
    If Not IsNumeric([Memo]) Then ThisWorkbook.Names.Add "Memo", 0 'nom défini
    Application.EnableEvents = False 'désactive les évènements
    .Value = [Memo] + Val(Replace(.Text, ",", "."))
    .Select
    Application.EnableEvents = True 'réactive les évènements
    ThisWorkbook.Names.Add "Memo", .Value 'nom défini
End With
End Sub

Elle se déclenche automatiquement quand on renseigne ou efface la cellule A1.

A+

 

[patricktoulon]

Bonjour @JM27
c'est quoi ce truc on vois pas la macro ni aucun code dans le fichier

 

[JM27]

Bonjour
toujours aussi agressif ?
Ouvres les yeux

 

[patricktoulon]

re
je ne suis pas agressif
tu serais pas sur 365 ou 2019 des fois
si c'est le cas avec 2013 j'ai parfois des problèmes avec ces fichiers ils me font des bizarreries

 

[JM27]

Non je suis sur 2010

 

[patricktoulon]

re
ma fois ben chez moi les module feuilles et le module standard sont vide (blanc)
je vais le re télécharger pour voir

 

[patricktoulon]

ok c'est bon j'ai le code dans le module de la feuille
bizarre ce truc quand même,surtout que ça fonctionnait

 

[JM27]

je suis un magicien ?

 

[Taratessy]

Merci a vous
vous venez de me rendre un grand service
merci merci merci

 

[Eric C]

Bonjour le forum
Bonjour Taratessy, bonjour JM27, bonjour job75 & bonjour Patrick

Pour ma part, j'aime ce genre de sujet et j'en avais récupéré un que j'avais mis de côté. Je viens de le ressortir et de l'améliorer pour combler 2 petites lacunes. Il en reste encore avec le format des décimales si la cellule est en format standard.
Après essais avec les 2 excellents fichiers mis en ligne par nos amis JM27 & job75 (que je salue au passage ainsi que Patrick & Taratessy), j'ai remarqué que :
- Fichier de JM27 : Si on entre une valeur alphabétique, le code plante et il m'est obligé de relancer Excel pour revenir au fichier qui ne fonctionne plus. Bien le style de la Cellule.
- Fichier de job75 : Il manque la réinitialisation de la case "A1". J'ai essayé "Sup" - Espace" - "Ret" mais en vain. Prog complet.
Je vais, plus tard, regarder au plus près vos fichiers (la préparation du réveillon n'attend pas ...).
Bon réveillon à venir.
@+ Eric c

 

[patricktoulon]

re
bonjour
perso j'avais fait un truc du genre mais avec un commentaire qui enregistrait la donnée a la suite séparé par un "+" et entre les deux ligne enableevents=... je faisait un evaluate
ça me permettait aussi de revenir en détournant undo a une des valeur précédentes
j’essaierais de retrouver ce machin rigolo

 

[JM27]

Bonjour
Bien vu Eric
pourtant j'avais testé, mais il y avait des trous dans la raquette.
si on tapait une valeur alpha puis un num : ok
par contre l'inverse plantait
par contre effectivement si ca plante le displaysAlerts n'est plus réactivé , d'où la relance en fermant excel: normal
Correctif : a priori OK
seule la touche supp sur la cellule efface la valeur mémorisé

2 solutions pour le prix d'une: si l'on tape une valeur num , puis une alpha , puis retour sur une num , on récupère la somme des deux valeurs num Exemple bis

 

[job75]

Bonjour Eric C, le fil,

- Fichier de job75 : Il manque la réinitialisation de la case "A1". J'ai essayé "Sup" - Espace" - "Ret" mais en vain.

Si A1 contient 5 il suffit d'entrer -5.

Ou alors supprimer le nom défini Memo et effacer A1.

A+