Multiplication d'un format

[JuPyro]

Bonjour,

J'ai une petite question pour une multiplication de cellule:

Dans la cellule A1,
j'ai "5/20/1",

qui représente le conditionnement de:
5 produits dans 20 sous-conditionnements dans 1 carton.

je veux multiplier cette cellule par 40 (poids en gramme d'un produit).
Je dois donc obtenir 40 x 5 x 20 x 1 = 4000 grammes.

Comment faut-il faire pour avoir la multiplication d'un nombre (40) par une cellule du format "5/20/1"?

Merci d'avance

Julien

 

[Philippe68]

Re : Multiplication d'un format

Bonjour et bienvenu,

Merci de mettre un exemple, il y aura plus de chance de réponses 😎

 

[gilbert_RGI]

Re : Multiplication d'un format

Bonjour tous,

voilà un test

cela convient-il à la demande ? 😕

 

[JuPyro]

Re : Multiplication d'un format

gilbert_RGI, c'est presque ça, le problème c'est que ma boîte a plusieurs type de conditionnement..
J'ai mis ton excel modifié en pièce jointe avec les différents types de conditionnement que nous avons.

merci pour vos réponses rapides

 

[Philippe68]

Re : Multiplication d'un format

Bonjour Gilbert,

ta formule ne fonctionne pas de mon coté (Excel 2010)

 

[hoerwind]

Re : Multiplication d'un format

Bonjour, salut les autres,

=40*EVAL(SUBSTITUE(A1;"/";"*"))
formule à copier vers le bas.

EVAL est une fonction complémentaire de Morefunc (à télécharger gratuitement sur la toile).
Il y a aussi moyen de le faire par la fonction EVALUER (macro XL4)

 

[gilbert_RGI]

Re : Multiplication d'un format

gilbert_RGI, c'est presque ça, le problème c'est que ma boîte a plusieurs type de conditionnement..
J'ai mis ton excel modifié en pièce jointe avec les différents types de conditionnement que nous avons.

merci pour vos réponses rapides

il faut modifier un peu comme ça

 

[Victor21]

Re : Multiplication d'un format

Bonjour.

En attendant plus simple :

=SI(NBCAR(A1)-NBCAR(SUBSTITUE(A1;"/";""))=1;C1*STXT(A1;1;TROUVE("/";A1;1)-1)*STXT(A1;TROUVE("/";A1;1)+1;9);C1*STXT(A1;1;TROUVE("/";A1;1)-1)*STXT(A1;TROUVE("/";A1;1)+1;TROUVE("/";SUBSTITUE(A1;"/";"£";1);1)-TROUVE("/";A1;1)-1)*STXT(A1;TROUVE("/";SUBSTITUE(A1;"/";"£";1);1)+1;9))

Conditionnement en A1, multiplicateur en C1 (Si C1 est constant( remplacer C1 par la constante)

 

[PrinceCorwin]

Re : Multiplication d'un format

Bonjour,

Voici une autre solution avec une fonction personnalisée

Function fSplit(tCell As Range)

Dim tCompte() As String
Dim dResult As Long

tCompte = Split(tCell.Value, "/")
dResult = 1

For i = LBound(tCompte) To UBound(tCompte)
    dResult = dResult * CLng(tCompte(i))
Next
fSplit = dResult

End Function

Bonne continuation.

 

[JuPyro]

Re : Multiplication d'un format

Merci pour toutes ces réponses,
j'ai choisis la fonction EVAL de hoerwind qui me parait la plus adaptée à ce que je recherche et qui ne nécessite pas de macro.

Encore merci pour votre aide!