calcul un peu spécial sous excel 200

[jeff]

Voila je voudrait faire un calcul assez spécial ,

en claire je voudrait que dans une cellule , il y ait marquer par exemple, 25+35+65 et que dans la cellule d'a coter, la somme de se calcul soit calculé automatiquement, et je ne trouve pas de fonction qu'il le fasse sous excel 2000 🙁

si qq'un pouvais m'aider sa serai bien 🙂

merci d'avance

 

[andré]

Salut jeff,

Patience, ne crois que tu sois oublié !

Personnellement j'ai essayé divers trucs, mais sans y parvenir.
J'ai mélangé les CNUM, SUBSTITUE, CONCATENER et "en veux-tu, en voilà" mais sans résultat.

Je ne désespère pas.
Ândré.

 

[michel]

bonjour André , bonjour Jeff

la macro ci-dessous permet d'extraire les valeurs numeriques de la cellule A1 et d'en faire l'addition


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

Cible = Range("A1") 'recuperation valeur cellule
Cible = Application.Substitute(Cible, ",", ".") 'pour que fonction Val puisse reconnaitre les decimales
'Cible = Application.Substitute(Cible, " ", "x") ' pour gerer deux nombres qui se suivent
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 + Len(Str(Nombre)) - 1
End If
Next

MsgBox "Le total de la cellule : " & Total
End Sub


bonne soiree
michel
MichelXld

 

[Dugenou]

avec des formules :
s'il y a 4 chiffres dans la cellule c5 (du genre 1+56+589+5) quelque soit la longueur des chiffres :
=CNUM(GAUCHE(C5;CHERCHE("+";C5)-1))+cnum(STXT(C5;CHERCHE("+";C5)+1;CHERCHE("+";C5;CHERCHE("+";C5)+1)-CHERCHE("+";C5)-1)+STXT($C$5;CHERCHE("+";C5;CHERCHE("+";C5)+1)+1;CHERCHE("+";C5;CHERCHE("+";C5)+CHERCHE("+";C5;CHERCHE("+";C5)+1)+1)-CHERCHE("+";C5;CHERCHE("+";C5)+1)-1))+cnum(STXT($C$5;CHERCHE("+";C5;CHERCHE("+";C5)+CHERCHE("+";C5;CHERCHE("+";C5)+1)+1)+1;NBCAR(C5)-CHERCHE("+";C5;CHERCHE("+";C5)+CHERCHE("+";C5;CHERCHE("+";C5)+1)+1)))

la même pour 3 chiffres :
=CNUM(GAUCHE(C5;CHERCHE("+";C5)-1))+CNUM(STXT(C5;CHERCHE("+";C5)+1;CHERCHE("+";C5;CHERCHE("+";C5)+1)-CHERCHE("+";C5)-1))+CNUM(STXT(C5;CHERCHE("+";C5;CHERCHE("+";C5)+1)+1;NBCAR(C5)-CHERCHE("+";C5;CHERCHE("+";C5)+1)))

je me suis bien amusé !

 

[Dugenou]

J'oubliais : la celluel contenant le calcul à faire est en c5 !! lol

 

[Mytå]

Bonsoir le forum

Pourqoui pas une petite fonction du style

Function Calcul(Cell As Range)
Calcul = Evaluate("=" & Cell.Value)
End Function

ou si des décimales

Function Calcul(Cell As Range)
Calcul = Evaluate("=" & Application.Substitute(Cell, ",", "."))
End Function

Mytå

 

[Mytå]

Re le forum

Dans la première fonction Cell.Value peut etre remplacer par Cell tout court

Function Calcul(Cell As Range)
Calcul = Evaluate("=" & Cell)
End Function

Mytå

 

[Hervé]

salut tlm,


Complement d'info : il existe une fonction EVAL() qui je pense fait la même chose.
en A1= '1+1+2
en A2=eval(A1) résultat 4


bye bye
Hervé

 

[Hervé]

re tlm

Correction : les données doivent être entrées avec un espace devant et non un ' comme indiqué par erreur.

bye bye
Hervé

 

[andré]

Salut Hervé,

Mais où trouves-tu donc cette fonction EVAL() ?
Même l'aide Microsoft ne la connaît pas.
J'ai vérifié sous Fonctions 2000 (de Ti) et rien !

Enlève-moi cette épine du pied, car cela m'intéresse bougrement.
Merci d'avance.

Ândré.

 

[Hervé]

salut andré

c'est une macro tirée de l'excellent morefun.xls que tu trouveras via ce lien :

<http://longre.free.fr/pages/telecharge>

j'espere que ce lien marchera (pas très bon en HTML je suis)

sinon recontacte moi

A+ tlm

Hervé

 

[Hervé]

resalut andré,

Qu'est-ce donc que les "fonctions 2000" ?

moi a pas connaitre, moi a na être intrigué ????

bye bye

Hervé

 

[Mytå]

Bonsoir le forum

Et bien ma petite fonction n'a pas été aimé...🙁((

Si vous aimer mieux "bourrer" votre EXCEL de macro complémentaire

C'est votre choix

Mytå

 

[andré]

Salut à vous,

Petite erreur de language, par "fonction" j'avais compris une fonction de formule, alors qu'en réalité il s'agit d'une fonction de VBA !

Comme quoi, une fonction peut en cacher une autre.

La procédure de Myta fonctionne très bien, j'avais espéré pouvoir le faire par une formule, dommage.

Ândré.