Discussion :

[UnLionBleu]

Bonjour,

J'ai un tableau Excel avec des cases du type (3 exemples) :
50*50
100*550
3.5*250

Je souhaite sommer automatiquement ces nombres via une formule (ou un code VB) pour obtenir respectivement :
100
650
253.5

Bref, oui, je souhaite sommer des nombres d'une même case séparés par des étoiles. Quelqu'un aurait la solution ?
Merci d'avance,

UnLionBleu

[jfontaine]

Bonjour,

Solution avec VBA

Code :

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

1
2
3
4
5
6
7
Dim i As Long
 
For i = 1 To Range("A:A").End(xlDown).Row
 
    Range("B" & i).FormulaLocal = "=" & Replace(Range("A" & i).Value, "*", "+")
 
Next i

[UnLionBleu]

Bonjour,

Tout d'abord merci, mais mes connaissances en VB étant ultra-limitées, je n'arrive pas à faire tourner ton code. Mon but serait de faire une fonction pour Excel. Du coup, le code ne devrait-il pas commencer par :

Code :

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

1
2
3
Sub Fonction1 ()
' Ton code ....
End sub

J'ai essayé mais ça ne marche pas. Pourrais-tu me donner la procédure à faire pour créer cette fonction ?

Merci encore.

[jfontaine]

Essai cette fonction. a copier dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Fonc_Multiplication(Rg As Range) As Double
 
Dim i As Long
Dim Dbl As Double
Dim dblTxt() As String
 
dblTxt = Split(Rg.Value, "*")
 
For i = 0 To UBound(dblTxt)
    Dbl = Dbl + dblTxt(i)
Next i
 
Fonc_Multiplication = Dbl
 
End Function

et a utiliser comme cela

Code :

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

=Fonc_Multiplication(A1)

[UnLionBleu]

Re,

VB c'est comme le piano : si on arrête, on régresse vite, mais quand on sait faire, ça deviens presque magique !

Merci beaucoup, c'est parfait !!

[jfontaine]

Une petite variante, en mettant le délimitateur en variable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Fonc_Multiplication(Rg As Range, Delimitateur As String) As Double
 
Dim i As Long
Dim Dbl As Double
Dim dblTxt() As String
 
dblTxt = Split(Rg.Value, Delimitateur)
 
For i = 0 To UBound(dblTxt)
    Dbl = Dbl + dblTxt(i)
Next i
 
Fonc_Multiplication = Dbl
 
End Function

Code :

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

=Fonc_Multiplication(A1;"*")

[mercatog]

Bonjour
Une éventuelle autre proposition

Code :

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

1
2
3
4
5
6
Function Som(Rng As Range) As Double
Dim c As String
 
c = Replace(Rng.Value, "*", "+")
Som = Evaluate(c)
End Function