Discussion :

[loloboulot]

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 :

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

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 :

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

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 !

[joe.levrai]

Bonjour,

je ne comprend pas le problème

soit deux classeurs (Classeur1 et Classeur2)

j'écris dans un module standard de Classeur1

Code :

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

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 :

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

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

[Menhir]

Code :

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

1
2
3
4
5
function mafonction (plage as range)
dim tableau()
tableau = plage.value
mafonction = tableau (1,1)
endfunction

Essaye :

Code :

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

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 ?

[loloboulot]

Essaye :

Code :

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

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 ?

[Invité]

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!