Une cellule, plusieurs valeurs

job75

XLDnaute Barbatruc

• 20 Mai 2014

• #2

Re : Une cellule, plusieurs valeurs

Bonjour Chubby,

Placez cette fonction VBA dans un module standard :

Code:

Function M$(t$, multi#, sep$)
Dim s, i%
s = Split(t, sep)
For i = 0 To UBound(s)
  s(i) = Format(s(i) * multi, "0.0") 'format à adapter
Next
M = Join(s, sep)
End Function

Et dans votre feuille de calcul :

Code:

=M(B2;B4;" - ")

A+

 

Vote positif 0 Vote négatif

Chubby

XLDnaute Impliqué

• 20 Mai 2014

• #3

Re : Une cellule, plusieurs valeurs

Bonjour Job75,
Et merci pour veiller au grain et apporter ta précieuse touche ici.
Je dois être assez nul car je n'arrive pas à faire fonctionner ta macro. Dire que ce n'est pas mon truc, c'est certain mais en plus tu m'as mâché le travail et j'ai un message d'erreur genre: "End Sub attendu"
Euh, je ne panique pas et je reste calme en attendant la patrouille de secours!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Mai 2014

• #4

Re : Une cellule, plusieurs valeurs

Re,

Si l'on veut un résultat quel que soit le séparateur décimal utilisé (sur l'ordi et dans la cellule source) :

Code:

Function M$(t$, multi#, sep$)
Dim s, i%
s = Split(t, sep)
For i = 0 To UBound(s)
  s(i) = Format(Val(Replace(s(i), ",", ".")) * multi, "0.0") 'format à adapter
Next
M = Join(s, sep)
End Function

A+

 

Vote positif 0 Vote négatif

Chubby

XLDnaute Impliqué

• 20 Mai 2014

• #5

Re : Une cellule, plusieurs valeurs

Job,
J'ai recopié ta macro sur une page vba, enregistré et mis ta formule dans la page excel. J'ai alors un "#nom" qui s'affiche.
J'ai pas tout capté apparemment

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Mai 2014

• #6

Re : Une cellule, plusieurs valeurs

Re,

#NOM? s'affiche parce que vous n'avez pas mis la macro dans un module standard (post #2).

A+

 

Vote positif 0 Vote négatif

Chubby

XLDnaute Impliqué

• 20 Mai 2014

• #7

Re : Une cellule, plusieurs valeurs

Re,

Effectivement ça marche. Merci Job pour ce super petit coup de patte.
J'avais copié ta macro sur une feuille. J'ai alors bidouillé, sans trop savoir ce que je faisais, mais le résultat est là. Je regarde ce qu'est un module standard.
Bonne journée à toi

 

Dernière édition: 20 Mai 2014

Vote positif 0 Vote négatif

Chubby

XLDnaute Impliqué

• 20 Mai 2014

• #8

Re : Une cellule, plusieurs valeurs

Re Job75,

A l'utilisation j'ai voulu inverser l'ordre des données: avoir d'abord la cellule "multiplicateur" puis la cellule contenant les valeurs "0,0 - 0,0 - 0,0".
J'ai donc juste inversé par rapport à l'exemple pour lequel ta macro est tip top. Et là ... nada!
J'ai alors essayé à tâtons d'inverser les membres des fonctions de la macro... résultat nul
Pourrais tu me dire comment faire. Je t'en remercie d'avance.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Mai 2014

• #9

Re : Une cellule, plusieurs valeurs

Re,

Là vraiment Chubby faut faire une cure 🙄

Code:

Function M$(multi#, t$, sep$)

Même ordre des arguments bien sûr dans la feuille de calcul...

A+

 

Vote positif 0 Vote négatif

Chubby

XLDnaute Impliqué

• 20 Mai 2014

• #10

Re : Une cellule, plusieurs valeurs

Re Job,
Arfff distrait de chez distrait. J'avais inversé mais pas le (multi#).
Oui Job75 un bon stage ça me ferait du bien!
J'ai honte,
merci Job, ne m'en veux pas! Dis moi plutôt ce que veut dire: sep$ , s et t$ ... le multi là c'est bon!

 

Dernière édition: 20 Mai 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Mai 2014

• #11

Re : Une cellule, plusieurs valeurs

Re,

t$ peut s'écrire t As String, argument qui prend le texte de la cellule source.

sep$ peut s'écrire sep As String, le séparateur texte de la liste.

s c'est le tableau créé par la fonction Split, voir l'aide VBA.

A+

 

Vote positif 0 Vote négatif

Chubby

XLDnaute Impliqué

• 20 Mai 2014

• #12

Re : Une cellule, plusieurs valeurs

Merci à toi Job!

 

Vote positif 0 Vote négatif