Discussion :

[MarcelG]

Salut les amis,

Question simple.

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
Option Explicit
 
Public Type mavariabletypée
        nb_1 As Long
        nb_2 As Long
End Type
 
Public Function lafonctiontypée(lenombre As Long) As mavariabletypée
 
With lafonction
    .nb_1 = lenombre * 2
    .nb_2 = lenombre * 3
End With
 
End Function

Comment entrer sur tableur la fonction lafonctiontypée

Si j'entre

=lafonctiontypée(50).nb_1

La cellule retourne l'erreur

CHAMP!

Par avance, merci.

[Thumb down]

bonjour,
le réceptacle doit être typé comme la fonction or il d'agit d'un range et un type personnalisé!

[MarcelG]

Salut,

Merci pour ta réponse.

Pourrais-tu être un peu plus explicite, s'il te plaît.

[Thumb down]

Bonjour,
Une cellule est un objet qui contient intrinsèquement des méthodes de conversion !
String = Integer on appel cela la surcharge des opérateurs. On détermine toutes méthodes de conversions de type pour la fonction = !
String = Integer, String = Date, Integer = String etc…

Range.value= mavariabletypée.nb_1 ???????
Attention ici on est dans un formule pas en vba !

[Menhir]

Il est très rare que je mette une matrice en output d'une fonction personnalisée mais quand je le fais, je procède ainsi :

Code :

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

1
2
3
Public Function LAFONCTION(lenombre As Long)
    LAFONCTION = Array(lenombre * 2, lenombre * 3)
End Function

Ou, légèrement plus propre :

Code :

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

1
2
3
4
5
6
7
Option Base 1
Public Function LAFONCTION(lenombre As Long)
    Dim MaVar(2) As Long
    MaVar(1) = lenombre * 2
    MaVar(2) = lenombre * 3
    LAFONCTION = MaVar
End Function

Et dans Excel :

Code :

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

1
2
3
=INDEX(LAFONCTION();2)
=SOMME(LAFONCTION)
... etc ...

Ca n'est pas très propre de ne pas typer une fonction mais je n'ai pas trouvé comment faire autrement.
L'avantage, c'est que ça fonctionne.

[MarcelG]

Merci Thumb down pour cette précision.

Hé, merci Menhir.

Je considère le fait de n'avoir que cette ressource est une lacune d'Excel.
Si l'on peut intégrer une fonction personnalisée, alors pourquoi ne pas envisager ce type de fonction basée sur un Type?

A bientôt pour de nouvelles aventures.

[Patrice740]

Bonjour Marcel

Je considère le fait de n'avoir que cette ressource est une lacune d'Excel.

Une formule ne peut retourner qu'une seule donnée dans une cellule.
C'est à dire une valeur parmi les quatre grands types de variables Excel : un nombre, un texte, un booléen ou une erreur (et uniquement une de celles prévues) et rien d'autre.
Pas de variable VBA, donc pas d'énumération, pas de variable typée, pas de collection, pas d'objet, pas de classe, ....

Est-ce pour autant une lacune ???
Comment pourrait-on réemployer une de ces dernières valeurs ???

[Menhir]

C'est à dire une valeur parmi les quatre grands types de variables : un nombre, un texte, un booléen ou une erreur (et uniquement une de celles prévues) et rien d'autre.

Tu oublies un type : une matrice.
Il existe en natif dans Excel des fonctions qui renvoient une matrice. La seule que j'utilise régulièrement est FREQUENCE() mais il en existe plusieurs autres : INVERSEMAT(), MODE.MULTIPLE(), TRANSPOSE(), etc.
Même INDIRECT() et DECALER() peuvent renvoyer une matrice.

[Patrice740]

Bonjour Menhir,

Tu oublies un type : une matrice

Non, je n'ai rien oublié ... (SIC le grand Charles)
Relis :

Une formule ne peut retourner qu'une seule donnée dans une cellule.

Une formule matricielle ne renvoie qu'une seule valeur par cellule.

[Thumb down]

Exactement, excel à été implémenté autour de type connus .{surcharge des opérateurs}.
Vba ne permet pas de créer ses propre surcharge et quand bien même il faudrait définir la valeur par défaut
=lafonctiontypée(50) retourne nb_1 ou nb_2.

[MarcelG]

Salut,

OK à tous les 3. Merci et bravo pour vos lumières.

Peut-être pourrait-on s'interroger, pour reprendre l'expression de Thumb down, sur l'implémentation d'Excel.
C'est tout ce que je voulais dire.
Mais, je l'avoue, ce sont des notions qui m'échappent quelque peu.

Bonne soirée à vous. Bonne soirée au Forum.