calcul un peu spécial sous excel 200

A

andré

Guest

• 15 Juin 2004

• #2

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é.

 

Vote positif 0 Vote négatif

M

michel

Guest

• 15 Juin 2004

• #3

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

 

Vote positif 0 Vote négatif

D

Dugenou

Guest

• 16 Juin 2004

• #4

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é !

 

Vote positif 0 Vote négatif

D

Dugenou

Guest

• 16 Juin 2004

• #5

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 16 Juin 2004

• #6

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å

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 16 Juin 2004

• #7

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å

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 17 Juin 2004

• #8

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é

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 17 Juin 2004

• #9

re tlm

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

bye bye
Hervé

 

Vote positif 0 Vote négatif

A

andré

Guest

• 17 Juin 2004

• #10

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é.

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 17 Juin 2004

• #11

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é

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 18 Juin 2004

• #12

resalut andré,

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

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

bye bye

Hervé

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 18 Juin 2004

• #13

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å

 

Vote positif 0 Vote négatif

A

andré

Guest

• 18 Juin 2004

• #14

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é.

 

Vote positif 0 Vote négatif