Commentaires

[Bronson]

Bonjour à tous,

Avant de partir en week end, j'aimearis bien résoudre le problème suivant sur lequel je sèche lamentable depuis 2 jours:

A partir d'un UF je crée un commentaire de cellule sous la forme : 107,89 +135,76 +163,62.

Je veux récupérer dans une cellule de la WS la valeur numérique de ce commentaire.

Qui à une idée sur la manière de réaliser ceci.

D'avance merci à celui qui pourra me dépanner.

 

[michel]

bonjour Bronson

la macro ci dessous recupere les valeurs numeriques dans le commentaire de la cellule A1

Sub SommeDansCommentaire()
Dim i As Byte
Dim Cible As String
Dim Nombre As Double, Total As Double

Cible = Range("A1").Comment.Text 'recuperation valeur commentaire
Cible = Application.Substitute(Cible, ",", ".") 'pour que fonction Val puisse reconnaitre decimales

For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
MsgBox Nombre
Total = Total + Nombre
i = i + (Str(Nombre)) - 2
End If
Next

MsgBox "Le total du commentaire : " & Total
End Sub


bonne soiree
michel

 

[wally]

Bonsoir Bronson et le forum,

Une variante avec la méthode Evaluate :

MonCommentaire = Range("A1").Comment.Text
Range("B1").Value = Evaluate(Replace(MonCommentaire, ",", "."))


Slts

wally