Addition de commentaire dans une cellue

Salut le forum

Suite à un message dans ma messagerie privé de Nad-Dan, m'a solution

Tu entres tes commentaires avec le signe (+) ou (-) devant ou n'importe lequelles formules calculable.

Exemple sur une même ligne +10+10.5+20

ou sur des lignes différentes

+10

+10.5

+20

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Target = Evaluate(Target.Comment.Text)
Cancel = True
End Sub

Tester sous Excel 2003 et 2007

Mytå

bonjour et merci de prendre tout ce temp pour m'aider

mais si je rentre la macro de Myta

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next

Target = Evaluate(Target.Comment.Text)

Cancel = True

End Sub

puis

+10

+10.5

+20

quand je double clik sur la cellule j'obtient #VALEUR!

pourtant teste par Myta

cordialement

Bonjour

Avec la macro de Myta, je n'ai plus aucun problème.

Essaye d'enregistrer le fichier, de le fermer et de le réouvrir.

Amicalement

Nad

re,

exact Teddy, j'ai aussi la même erreur.

Teddy, juste pour savoir. Ta version d'excel est bien 2007 ?

A te relire

Dan

oui c'est bien excel 2007

re,

Oups je suis pas réveillé là

Contrairement à ce que je t'ai dit, cela fonctionne.

As-tu bien mis les signes (+ ou - comme Myta le dit) devant tes valeurs ?

A te relire

Dan

re bonjour

alors je recapitule

j'ai tout refait pour etre sur de n'avoir pas fait d'erreur

je fait un copier coller de la macro de Myta

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next

Target = Evaluate(Target.Comment.Text)

Cancel = True

End Sub

j'ouvre excel sur ma feuille 1 click droit puis visualiser le code

j'ai une fenetre VB qui s'ouvre je copie le code dans cette fenetre

puis je ferme la fenetre VB je me retrouve sur ma feuille 1

click droit sur une cellule vierge puis inserer un commentaire

j'efface le texte qui et ecris "nom de l'ordi"

puis je rentre

+10

+10

double clik sur la cellule cela fonctionne resultat 20.000

mais si je rentre

+10

+10.5

double clik sur la cellule j'obtient #VALEUR!

amicalement

Re

Je sais qu'on en a déjà parlé au début du fil, mais vérifie quand même dans les options d'excel (options avancées) si ton séparateur de décimale est bien le

A te relire

Amicalement

Nad

Re,

Je t'adresse un fichier avec différentes possibilités. 4 feuilles avec les deux codes proposés. Dans la cellule D8 des données mises avec un point ou une virgule selon la feuille.

Peux-tu tester et nous dire les résultats.

Fichier

Amicalement

Dan

re

je te joint une partie de mon fichier(une page par semaine)

https://www.excel-pratique.com/~files/doc/exemple_stock.xls

si tu regarde l'addition se fait mais que les deux premier nombre alors que mes commentaire peuvent en avoir jusqu'a 20

la seule macro qui fonctionne et

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim i As Byte

Dim k, z

Dim tablo() As String

On Error Resume Next

z = Target.Comment.Text

tablo = Split(z, Chr(10))

For i = 0 To UBound(tablo)

k = CDec(Evaluate(k + tablo(i)))

Next

Target = IIf(k > 0, k, "")

Cancel = True

End Sub

mon separateur et une virgule

ne vous prenez plus la tete j'ai deja beaucoup abuser de votre gentillesse et de votre patience je mettrais un 0 en debut de commentaire puis mes nombres

le seul probleme restant et que il n'y en a que deux qui s'additionne (grrrrrrrrr)

amicalement a tous

re,

Merci de ton fichier mais pourrais-tu me dire ce que tu as comme résultats avec le fichier que je t'ai mis dans mon précédent.

A te relire

Dan

je n'obtient aucun resultat avec ton fichier

ni affichage d'une erreur ni resultat sur les quatres pages

Re,

Là je comprends plus car sur la feuille Myta-point, c'est excatement le code que Myta te propose et pour lequel tu dis que cela te retourner VALEUR.

Sur cette feuille, remplace mes données par les siennes pour voir ce que cela te donne.

Dan

re

tout fonctionne a merveille avec la macro de Myta

dans mes commentaire certain etais avec des virgules d'autre avec des points (grossiere erreur de ma part) je m'en excuse

mais je tenais a vous remercier tous pour le temps que vous avez passer a m'aider

je suis un homme de 50 ans novice et debutant mais j'apreci beaucoup cette amabilite que l'on trouve sur la toile comme je vient de trouver ses jours derniers avec vous tous et j'espere pouvoir un jour moi aussi aider un nouveau venu avec mes petites competences

encore merci tout particulierement a Nad-Dan , Myta , et galopin

Re le forum

Si tu veux utiliser la virgule dans tes commentaires ou le point comme séparateur décimal.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Target = Evaluate(Replace(Target.Comment.Text, ",", "."))
Cancel = True
End Sub

Tu ne devrais plus avoir de problème

Tu peux même écrire ta forumle sur une seule ligne +10+10.5+10,5+11

Mytå

P.S. VBA utilise par défaut le point comme séparateur décimal (US)