Une cellule, plusieurs valeurs

[Chubby]

Bonjour,

J'ai un petit soucis pour construire un tableau. Dans une cellule je fais figurer plusieurs valeurs indépendantes l'une de l'autre. Je les sépare par un "-" ou un "/" ou un espace (à voir). Puis je dois être en mesure de multiplier indépendamment chaque valeur.
Vous me direz mais diantre pourquoi ne pas utiliser plusieurs cellules. Oui, sinon que c'est dans un tableau et l'ajout de colonnes va me compliquer la vie pour d'autres calculs.
Je vous laisse un bout de fichier pour que vous voyez mieux mon cas précis.
Merci à vous.

 

[job75]

Re : Une cellule, plusieurs valeurs

Bonjour Chubby,

Placez cette fonction VBA dans un module standard :

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 :

=M(B2;B4;" - ")

A+

 

[Chubby]

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!

 

[job75]

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) :

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+

 

[Chubby]

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

 

[job75]

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+

 

[Chubby]

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

 

[Chubby]

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.

 

[job75]

Re : Une cellule, plusieurs valeurs

Re,

Là vraiment Chubby faut faire une cure 🙄

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

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

A+

 

[Chubby]

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!

 

[job75]

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+

 

[Chubby]

Re : Une cellule, plusieurs valeurs

Merci à toi Job!