ajout valeur et somme avec valeur existante

[Jul018]

Bonjour le forum,

J'aimerais savoir s'il est possible d'envoyer une valeur dans une cellule et de l'additionner avec la valeur si trouvant déjà?

j'ai dans l'idée que l'on peux peut être vérifier si la cellule contient déjà une valeur et si c'est le cas de l'additionner avec la nouvelle mais je n'ai pas la moindre idée de la réalisation..

Je suis tout ouie..

Julien
@+🙂

 

[pierrejean]

Re : ajout valeur et somme avec valeur existante

bonjour Julien

Un essai

La cellule est la cellule A1
Si l'on change sa valeur elle devient la somme de cette valeur + la valeur qu'elle avait auparavant
notes: pour la mettre a 0 il faut entrer - la valeur . Je n'ai pas cherché a traiter les erreurs en cas d'entrée d'une lettre

 

[Jul018]

Re : ajout valeur et somme avec valeur existante

Bonjour PierreJean, merci de ta réponse

Si je comprends bien tu attribues un nom de variable (en public) à la valeur dans la cellule lors de sa sélection puis tu en fais la somme lors de la modification.

Est-ce bien cela?

la seule chose que je ne comprends pas c'est le "flag"

Julien
@+

 

[pierrejean]

Re : ajout valeur et somme avec valeur existante

Re
Comme la macro crée une modification ,sans le flag elle bouclerait sur elle-même
le flag est mis a un avant la modif
la modif est faite ,rappelle une seconde fois la macro qui se termine sur le exit sub
le flag est remis a 0 pour autoriser une modif ulterieure

 

[Jul018]

Re : ajout valeur et somme avec valeur existante

Re,

J'ai une question supplémentaire PierreJean,

Dans mon cas de figure je souhaite ajouter cette valeur depuis un autre fichier excel. Dans ce cas le code que tu viens de me faire passer je le laisse dans la feuille ou le résultat s'affichera?

Julien
@+

 

[pierrejean]

Re : ajout valeur et somme avec valeur existante

Re
Comment veux-tu proceder pour ajouter la valeur ?

 

[Jul018]

Re : ajout valeur et somme avec valeur existante

Re,

je procède par un activecell.select

mon code est le suivant:

Sheets("Gestion Achat").Activate
Dim Code As short
Dim Montant_Achat As Long

With Sheets("Gestion Achat")
Range("B6").Select
While ActiveCell.Value <> Cat_Mat
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then ActiveCell.Value = Cat_Mat
Wend

ActiveCell.Offset(0, 7).Select
ActiveCell.Value = Code
        
ActiveCell.Offset(0, 4).Select


ActiveCell.Value = [COLOR="Red"]Montant_Achat[/COLOR]
        
End With
        
ActiveWorkbook.Close (SaveChanges = False)
Call Supprimer_zonecopie
End Sub

Montant_achat est la cellule qui additionera la valeur précédente avec la nouvelle valeur.

Julien
@+