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

[bastou93]

Une autre encore en utilisant split:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function Som(Rng As Range) As Double
 
dim a as long
dim b as long
 
a = Val(Split(Rng.Value,"*")(0))
b = Val(Split(Rng.Value,"*")(1))
 
Som =a+b
 
End Function

Bastien

[UnLionBleu]

Merci de vos réponses.
Je n'arrive seulement à faire tourner celles de jfontaine.

Une question supplémentaire, je souhaite utiliser la fonction avec une ligne ayant un "nom" :

Toute la ligne 1 ayant un nom, "DiffApport" par exemple. Du coup je souhaiterais placer la fonction =Fonc_Multiplication(DiffApport) ou =Fonc_Multiplication(DiffApport;"*") en A2 et tirer vers la droite pour calculer toute la ligne 2.

Une idée pour ce type d'utilisation ?
Merci.

[jfontaine]

Dans cette fonction DiffApport ne peut contenir plus d'une cellule

De plus si utilisation d'une plage nommée, tu ne peux plus utiliser le glisser pour reporter ta formule

[UnLionBleu]

Ok, et bien dans la formule je mettrai le code de ma cellule (A1 par exemple) et je glisserai vers la droite.

Merci beaucoup