Discussion :

[mouftie]

Bonjour,
Dans une cellule, on note les remboursements d'un client, mais on voudrait conserver l'historique des sommes déjà versées.
En saisie directe, c'est facile, il suffit d'entrer dans la cellule (F2) et de saisir "+ 10,50" pour ajouter 10 euros 50 et on obtient par exemple =100+100+(100*3)+25.5+14+10.5
Comment faire avec VBA ? j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim m As Double
    m = Range("A20")       
    Range("A20") = "=" & m & "+10.5"

mais j'ai le message erreur définie par l'application.
j'ai également essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim m As Double
    Range("A20") = Range("A20") + 10.5

mais je me retrouve avec le montant total et non le détail des sommes versées
Merci de votre aide

[halaster08]

Bonjour,

Ceci fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Left(Range("A20").Formula, 1) = "=" Then
    Range("A20").Formula = Range("A20").Formula & "+10.5"
Else
    Range("A20").Formula = "=" & Range("A20").Formula & "+10.5"
End If

[joe.levrai]

bonjour

MonRange.Formula = MonRange.Formula & "+10.5"

Je te laisse utiliser des variables pour ne pas conserver le "+10.5" hardcodé

[fuine0069]

pourquoi ne pas utiliser l'ajout de commentaire en VBA?
tu pourras même y mettre d'autres infos comme la date de l'adaptation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
sub comment()
dim m as string
dim n as double
on error resume next
m=Range("A20")
n=10,5
   Range("A20").AddComment
   Range("A20").Comment.Text Text:= m & "+" & n
Range("A20")= m + n
end sub

[mouftie]

Bonjour à tous,
Un grand merci à chacun pour votre aide.
J'ai utilisé la proposition de halaster08 qui prend en compte la 1ère ligne du tableau.
Désolée de ne pas avoir répondu plus tôt, j'ai pris qq jours de repos.