[EXCEL] Macro addition + historique

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [EXCEL] Macro addition + historique

relaxmax999

Bonjour à tous :hello:

J'ai une macro qui basiquement me fait une addition :

Citation :

Cells(X, Y).Value = Cells(X, Y).Value + Débit

Considérons que cela soit equivalent à :

A1 = A1 + B1

Si ma case A1 est "=10+20+30" et que ma case B1 est "=40"

Ma macro va me donner A1 est "100"

Et moi je voudrais qu'elle me donne A1 est "=10+20+30+40"

En gros je souhaites conserver les termes de mon addition (pour avoir un historique) est-ce possible ? :heink:

Message cité 1 fois

---------------
(FZ7) 30D + 75-300 + 18-55 + 50 1.8 - Mon Filckr

Publicité

sh_kyra

Entre nous c'est Kyra

relaxmax999 a écrit :

Bonjour à tous :hello:

J'ai une macro qui basiquement me fait une addition :

Citation :

Cells(X, Y).Value = Cells(X, Y).Value + Débit

Je suis pas sûr mais t'as essayé de voir avec l'attribut Formula?

Cells(X, Y).Formula = "=$A$4+$A$10"

Sinon il faut gèrer du texte...

Message cité 1 fois
Message édité par sh_kyra le 21-10-2015 à 17:09:07

---------------
http://gruikgruik.spreadshirt.fr/ <- des t-shirts qu'ils sont beaux, qu'ils sont geeks, qu'ils sont... gruik!

relaxmax999

sh_kyra a écrit :

Je suis pas sûr mais t'as essayé de voir avec l'attribut Formula?

Cells(X, Y).Formula = "=$A$4+$A$10"

Sinon il faut gèrer du texte...

EDIT :

Je ne connais pas l'attribut Formula. J'ai regardé un peu et je ne voit pas comment l'utiliser dans mon cas ...

En tout cas l'exemple proposé ne donne rien

Message édité par relaxmax999 le 21-10-2015 à 18:25:43

---------------
(FZ7) 30D + 75-300 + 18-55 + 50 1.8 - Mon Filckr

Marc L

Bonjour, bonjour !

Si la cellule B1 est juste égale à 40 (sans le signe "=", vaut mieux limiter un peu les conneries inutiles !) :

[A1].Formula = [A1].Formula & "+" & [B1].Formula …

Message cité 1 fois

relaxmax999

Marc L a écrit :

Bonjour, bonjour !

Si la cellule B1 est juste égale à 40 (sans le signe "=", vaut mieux limiter un peu les conneries inutiles !) :

[A1].Formula = [A1].Formula & "+" & [B1].Formula …

Ah super ca marche !

Par contre, évidement c'était un peu pour l'exemple. Ma situation est un peu plus compliquée ... (Voir mon autre post)

EDIT : Je ne souhaite pas utiliser A1 mais Cell(X,Y) avec X et Y défini selon des menus déroulants ...

Citation :

Sub Test()
Débit = Range("A4" ).Value

X = Range("B2" ).Value
Y = Range("C2" ).Value

Cells(X, Y).Formula = Cells(X, Y).Formula & "+" & Débit

Range("A4" ).Value = 0

End Sub

Message édité par relaxmax999 le 21-10-2015 à 18:49:36

---------------
(FZ7) 30D + 75-300 + 18-55 + 50 1.8 - Mon Filckr

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[EXCEL] Macro addition + historique

Sujets relatifs
[EXCEL] Selectionner cellule avec 2 paramètres	[Excel/VBA] Pivot table - Filtrer automatiquement sur une liste d'ID
Macro rechercher remplacer liens hypertexte EXCEL 2010	[EXCEL/VBA] Automatiser remplissage de fichier
Excel formule avec si(et(ou	[EXCEL ou VBA] Chercher une valeur parmi un ensemble de valeur
[EXCEL] passer d'un tableau croisé à des lignes à plat	copier des cellules excel et les ajouter au corps de mail en image
Passage d'excel à une page web
Plus de sujets relatifs à : [EXCEL] Macro addition + historique

Page générée en 0.040 secondes