[EXCEL] Macro addition + historique

Macro addition + historique [EXCEL] - VB/VBA/VBS - Programmation

Marsh Posté le 21-10-2015 à 15:22:46    

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:


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

Marsh Posté le 21-10-2015 à 15:22:46   

Reply

Marsh Posté le 21-10-2015 à 17:07:31    

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


 
 
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:


 
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!
Reply

Marsh Posté le 21-10-2015 à 18:14:58    

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
Reply

Marsh Posté le 21-10-2015 à 18:27:55    

 
            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
 

Reply

Marsh Posté le 21-10-2015 à 18:42:51    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed