Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1724 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [EXCEL] Macro addition + historique

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[EXCEL] Macro addition + historique

n°2268219
relaxmax99​9
Posté le 21-10-2015 à 15:22:46  profilanswer
 

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
mood
Publicité
Posté le 21-10-2015 à 15:22:46  profilanswer
 

n°2268237
sh_kyra
Entre nous c'est Kyra
Posté le 21-10-2015 à 17:07:31  profilanswer
 

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!
n°2268244
relaxmax99​9
Posté le 21-10-2015 à 18:14:58  profilanswer
 

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
n°2268246
Marc L
Posté le 21-10-2015 à 18:27:55  profilanswer
 

 
            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
 

n°2268249
relaxmax99​9
Posté le 21-10-2015 à 18:42:51  profilanswer
 

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

Aller à :
Ajouter une réponse
  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 à platcopier 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


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR