Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour.
Une fonction renvoie une valeur mais ne modifie rien.
Transformer la fonction en sub.
Alain CROS
"xlb" a écrit dans le message de news: 41fb75f7$0$6495$Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour.
Une fonction renvoie une valeur mais ne modifie rien.
Transformer la fonction en sub.
Alain CROS
"xlb" <xavier.lebris@free.fr_nospam> a écrit dans le message de news: 41fb75f7$0$6495$636a15ce@news.free.fr...
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour.
Une fonction renvoie une valeur mais ne modifie rien.
Transformer la fonction en sub.
Alain CROS
"xlb" a écrit dans le message de news: 41fb75f7$0$6495$Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll et le
transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans une
feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la même ligne
ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
GaenoniusBonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll et le
transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans une
feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la même ligne
ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
Gaenonius
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll et le
transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans une
feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la même ligne
ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
GaenoniusBonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
bonjour,
oui , et alors ? à quel moment en suivant ta procédure, les données
s'inscrivent-elles dans la feuille en cours ?
Ai essayé ta proc et ne suis arrivé à aucun résultat, mais ai peut-être
manqué quelque chose ?
A+Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll et le
transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans une
feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la même ligne
ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
GaenoniusBonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
bonjour,
oui , et alors ? à quel moment en suivant ta procédure, les données
s'inscrivent-elles dans la feuille en cours ?
Ai essayé ta proc et ne suis arrivé à aucun résultat, mais ai peut-être
manqué quelque chose ?
A+
Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll et le
transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans une
feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la même ligne
ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
Gaenonius
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
bonjour,
oui , et alors ? à quel moment en suivant ta procédure, les données
s'inscrivent-elles dans la feuille en cours ?
Ai essayé ta proc et ne suis arrivé à aucun résultat, mais ai peut-être
manqué quelque chose ?
A+Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll et le
transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans une
feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la même ligne
ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
GaenoniusBonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
C'est la fonction qui renvoie les données du tableau dans la feuille de
calcul. Elle s'utilise comme une fonction matricielle "classique".
La procédure n'a pour objet que d'initialiser le tableau exemple (variable
publique V) renvoyé par la fonction. Il faut l'exécuter une fois avant
d'utiliser la fonction.
Dans la demande de "xlb", V devra être initialisé avec le tableau issu de
sa dll.
D'autres solutions sont possibles, notamment une procédure Sub qui ferait
tout le travail (récupérer les données de la dll et les renvoyer dans une
feuille de calcul).
Cependant la demande initiale portait sur le moyen de le faire à l'aide
d'une fonction.
--
Gaenoniusbonjour,
oui , et alors ? à quel moment en suivant ta procédure, les données
s'inscrivent-elles dans la feuille en cours ?
Ai essayé ta proc et ne suis arrivé à aucun résultat, mais ai peut-être
manqué quelque chose ?
A+Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll
et le transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans
une feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la
même ligne ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
GaenoniusBonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une
dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
C'est la fonction qui renvoie les données du tableau dans la feuille de
calcul. Elle s'utilise comme une fonction matricielle "classique".
La procédure n'a pour objet que d'initialiser le tableau exemple (variable
publique V) renvoyé par la fonction. Il faut l'exécuter une fois avant
d'utiliser la fonction.
Dans la demande de "xlb", V devra être initialisé avec le tableau issu de
sa dll.
D'autres solutions sont possibles, notamment une procédure Sub qui ferait
tout le travail (récupérer les données de la dll et les renvoyer dans une
feuille de calcul).
Cependant la demande initiale portait sur le moyen de le faire à l'aide
d'une fonction.
--
Gaenonius
bonjour,
oui , et alors ? à quel moment en suivant ta procédure, les données
s'inscrivent-elles dans la feuille en cours ?
Ai essayé ta proc et ne suis arrivé à aucun résultat, mais ai peut-être
manqué quelque chose ?
A+
Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll
et le transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans
une feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la
même ligne ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
Gaenonius
Bonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une
dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier
C'est la fonction qui renvoie les données du tableau dans la feuille de
calcul. Elle s'utilise comme une fonction matricielle "classique".
La procédure n'a pour objet que d'initialiser le tableau exemple (variable
publique V) renvoyé par la fonction. Il faut l'exécuter une fois avant
d'utiliser la fonction.
Dans la demande de "xlb", V devra être initialisé avec le tableau issu de
sa dll.
D'autres solutions sont possibles, notamment une procédure Sub qui ferait
tout le travail (récupérer les données de la dll et les renvoyer dans une
feuille de calcul).
Cependant la demande initiale portait sur le moyen de le faire à l'aide
d'une fonction.
--
Gaenoniusbonjour,
oui , et alors ? à quel moment en suivant ta procédure, les données
s'inscrivent-elles dans la feuille en cours ?
Ai essayé ta proc et ne suis arrivé à aucun résultat, mais ai peut-être
manqué quelque chose ?
A+Procède par étapes :
1 Une variable publique qui servira à récupérer le tableau depuis ta dll
et le transmettre à la fonction matricielle VBA
2 Une procédure qui initialise la variable avec le tableau
3 Une fonction VBA matricielle pour écrire les valeurs du tableau dans
une feuille de calcul.
Exemple simple :
''''''''''''''''dans un module de code ordinaire :
Public V
Sub test()
V = Array(10, 20, 30, 40, 50)
End Sub
Function MatricielleVBA()
If Application.Caller.Rows.Count = 1 Then
MatricielleVBA = V
Else
MatricielleVBA = Application.Transpose(V)
End If
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''
Dans une feuille de calcul, après avoir sélectionné 5 cellules sur la
même ligne ou la même colonne selon besoin :
=MatricielleVBA()
(à valider par Ctrl+Maj+Entrée)
--
GaenoniusBonjour
Dans une fonction, je récupère un variant tableau de valeurs depuis une
dll.
Je voudrais remplir une plage avec les valeurs de ce tableau.
J'ai essayé sans résultat :
Function MaFonctionVBA(ByVal DonneeEntree as String) As Variant
Dim V As Variant
V = MaFonctionDllQuiRenvoieLe Tableau(DonneeEntree)
MaFonctionVBA = ""
ActiveWorkbook.Worksheets("Feuil1").Range("A15:B30") = V
End Function
Je peux bien sûr renvoyer la valeur i,j avec une formule dans chaque
cellule, mais je voudrais le faire en une seule fois.
Est-ce possible ?
Xavier