XL 2019 Fonction Volume (X;Y;Z) avec entrée 1 cellule

[jbull]

Bonjour,

Je n'ai pas trouvé la solution sur les forums d'Excel, mais peut être que j'utilise les mauvais mots clefs.
Je ne suis pas assez compétent pour construire mon code.


1) Objectif :
Le but de mon fichier est de calculer différents indicateurs.
Pour clarifier la situation je prends une fonction qui est similaire à celles de calcul de mes indicateurs (plusieurs entrées de nombre décimaux positifs).


2) Contexte :
Prenons la fonction V = X * Y * Z, que je note en VBA :
------
Function V(X, Y, Z)

V = X * Y * Z

End Function
-------

3) Contrainte
Cette fonction est utilisée dans un fichier où on trouve X, Y et Z dans une seule cellule nommée A2 au format (X;Y;Z) (X, Y et Z étant des nombres).
Ma contrainte est que je ne peux pas mettre 1 colonne pour X, 1 colonne pour Y et 1 colonne pour Z.
C'est à dire que je ne peux créer 3 colonnes dans la feuille via la fonction convertir.

4)Origine du problème
Puisque ma contrainte de travail m'empêche de diviser A2 dans 3 cellules de ma feuille pour faire V(A2 ; A3 ; A4).

5) Description de la solution :
Je veux pouvoir écrire dans la cellule B2 = V (A2)
Donc il faudrait que je puisse extraire X, Y, et Z de A2 afin que V puisse accepter A2 en entrée utilisateur au lieu de V(A2 ; A3 ; A4).

6) Description opérationnelle de la solution en code VBA :

??? c'est là que j'ai besoin de votre aide 😀.
Comment modifier mon code.



Je vous remercie pour votre aide.
Vous souhaitant une bonne journée 🙂

 

[jmfmarques]

Bonjour
ouvre ton aide interne VBA à la rubrique Split, fonction. Elle est ta solution;

 

[sylvanu]

Bonjour Jbull, Jmfmarques,
En PJ, un exemple simple :

Function V(N)
    tablo = Split(N, ";")
    V = tablo(0) * tablo(1) * tablo(2)
End Function

J'ai pris comme séparateur le point virgule au cas où on aurait des chiffres décimaux avec une virgule.

Fonction Split (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

docs.microsoft.com