VBA / Fonction Matricielle

Bonjour
A mon avis il va falloir re-formuler ta question parce que de toute évidence
on n'a pas bien compris quelle était ta demande.
;-)

Cordialement
Pascal


"JGP_NoMail" <NoMail@Invalid-server.com.invalid> a écrit dans le message de
news: d720ul$t9$1@s1.news.oleane.net...

Bonjour,

Je cherche a ecrire une fonction matricielle

A1:B2 => {=MaFonction("abcdefghij")}


Pour cela j'ai besoin de connaitre dans ma fonction le nombre de lignes et
colonnes de la matrice ou se trouve la formule.

Quelless solutions ?



Cordialement.

JGP

Bonjour
A mon avis il va falloir re-formuler ta question parce que de toute évidence
on n'a pas bien compris quelle était ta demande.
Ok, je reformule :

Je cherche a ecrire en vba la fonction "MaFonction( sData as string)"
qui retourne une matrice

Si je rentre la formule {=MaFonction("abcdefghijklmnopqrstuvwx")}
* dans A1:B2 => la matrice resultante devra donc contenir 2 lignes et
2 colonnes avec A1 = 'a', B1 = 'b', A2 = 'c', B2 = 'd'

* dans A1:c7 => la matrice resultante devra donc contenir 7 lignes et
3 colonnes avec A1 = 'a', B1 = 'b' C1 = 'c', A2 = 'd', B2 = 'd', ....



J'ecris ma fonction et merci de remplir les ????????
Merci.

public MaFonction( sData as string) as variant

Dim ret() As Variant

' ICI que dois-je mettre dans lig et dans col ?
Lig = ????????
Col = ????????

ReDim ret(Lig, col)

' Pour la suite, c'est bon, je sais faire.
For ...
ret (i,j) = mid( sData , ...,1)
end for

MaFonction = ret
end function

JGP

;-)

Cordialement
Pascal


"JGP_NoMail" <NoMail@Invalid-server.com.invalid> a écrit dans le message de
news: d720ul$t9$1@s1.news.oleane.net...

Bonjour,

Je cherche a ecrire une fonction matricielle

A1:B2 => {=MaFonction("abcdefghij")}


Pour cela j'ai besoin de connaitre dans ma fonction le nombre de lignes et
colonnes de la matrice ou se trouve la formule.

Quelless solutions ?



Cordialement.

JGP