Plage d'un autre classeur en argument d'une fonction VBA

Bonjour,

J'ai codé une fonction personnalisée qui prend une plage en argument et la stocke dans un tableau pour effectuer des opérations.

par exemple:

Code:

---

1 2 3 4 5 6 7 8 9

function mafonction (plage as range)   dim tableau() tableau = plage.value   mafonction = tableau (1,1)   endfunction

---

Elle fonctionne très bien quand la plage passée en argument provient du même classeur (même d'une feuille différente) mais pas quand je sélectionne une plage d'un autre classeur ouvert.

Ce qui m'étonne c'est que par exemple si je fais :

Code:

---

1 2	mafonction = worksheetfunction.sum(plage)

---

ça fonctionne même avec une plage d'un autre classeur...

Avez-vous une idée de ce qui bloque ?

Merci d'avance !

Bonjour,

je ne comprend pas le problème

soit deux classeurs (Classeur1 et Classeur2)

j'écris dans un module standard de Classeur1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function mafonction(plage As Range)   Dim tableau() tableau = plage.Value   mafonction = tableau(1, 1)   End Function   Sub toto() MsgBox mafonction(Selection) End Sub

---

je sélectionne une plage située dans classeur2

je lance la procédure toto, j'obtiens bien la valeur de la première cellule de ma sélection active

et d'ailleurs, nul besoin de passer par un tableau

Code:

---

1 2 3 4 5 6 7

Function mafonction(plage As Range) mafonction = plage.Cells(1, 1).Value End Function   Sub toto() MsgBox mafonction(Selection) End Sub

---

Citation:

---

Envoyé par loloboulot

Code:

---

1 2 3 4 5

function mafonction (plage as range) dim tableau() tableau = plage.value mafonction = tableau (1,1) endfunction

---

---

Essaye :

Code:

---

1 2 3

function mafonction (plage as range) mafonction = Plage.Range("A1") endfunction

---

[/QUOTE]
Comme ça tu sauras si le problème vient de la référence de plage ou du transfert dans "tableau".

Petite question au passage : Quand ça plante, est-ce que le fichier contenant ta plage est ouvert ?

Bonsoir,
Si pour me mettre en conformité avec la config d'un client je n'avais installé office 2010, ma surprise aurait été la même.

Je viens de faire un test erreur de type ou fonction défini par l'utilisateur !

Il faut préciser que nous nous avons développé une macro pas si compliqué que cela, elle fonctionne sur tous les pc de la terre sauf la sien!

Citation:

---

Envoyé par Menhir

Essaye :

Code:

---

1 2 3

function mafonction (plage as range) mafonction = Plage.Range("A1") endfunction

---

---

Comme ça tu sauras si le problème vient de la référence de plage ou du transfert dans "tableau".

Petite question au passage : Quand ça plante, est-ce que le fichier contenant ta plage est ouvert ?[/QUOTE]

Bonjour,

Merci de votre aide, en fait ça affiche juste #valeur dans la cellule où j'applique ma fonction. Effectivement le problème doit venir de transfert dans le tableau car le test ci-dessus fonctionne. Ce qui m'étonne encore plus c'est que la fonction tourne bien quand je la lance avec un échantillon de données rentré à la main dans une feuille d'un autre classeur.

J'ai essayé autre chose, en fait mon jeu de données a 62075 lignes, en prenant juste les 62 premières ça fonctionne, par contre 620 ça ne fonctionne déjà plus. Est-ce qu'il faut que je mette un format particulier pour pouvoir prendre toutes mes lignes ?