fonction traitement de plage nommées qui ne s execute pas

Version imprimable

Bonjour,
J'ai codé une fonction dont l'objectif est de recuperer les references de plages nommées pour appliquer un calcul sur une colonne "parallele".
explication : J'ai mon calcul en colonne N via des plages nommées et je voudrais pouvoir l'obtenir sur la colonne M, comme si je l'avais glissé d'une colonne à l'autre.
Pour obtenir le résultat j'ai donc utilisé en colonne M la fonction ci-dessous mais je n'arrive pas à l'executer. (j'ai pourtant ajouté l'instruction volatile pour forcer le calcul)
Je lance la fonction dans la cellule M7 avec comme parametre la range N7:

Citation:

=change_cellule_nommee(N7)

N7 contient ce code (une liste de plages nommées) :

Citation:

=MiddleWare+DVB+STB_Bdx+TV_Bdx+Bouquet_Bdx+Spare_Bdx+Accessoires_Bdx
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function change_cellule_nommee(la_sequence As Range) As String Application.Volatile Dim tab_range() As String Dim concat_cellule_nommee As String concat_cellule_nommee = "" With ActiveSheet tab_range = Split(la_sequence.Text, "+") For i = 0 To UBound(tab_range) - 1 concat_cellule_nommee = concat_cellule_nommee & .Range (tab_range(i)).Formula Next i change_cellule_nommee = concat_cellule_nommee End With End Function
Merci d'avance de vos idées.

12/12/2013, 18h32
Kimy_Ire

Bonjour,

Qu'est-ce que

Code:

MsgBox la_sequence.Text

te retourne ?
13/12/2013, 10h07
comme de bien entendu

Le Messagebox ne s'execute pas, car la fonction ne s'execute pas.
Y aurait il trop de fonctions déjà présente dans cette application Excel ?
A noter que la complétion fonctionne, c'est à dire que "=change_cellule_nommee" est reconnue par Excel comme une fonction.
D'avance merci de vos idées.
13/12/2013, 10h58
Godzestla

Bonjour,
Pour moi "=MiddleWare" (donc Tab_Range(0)) n'est pas un range, donc

Code:

.Range(tab_range(i)).Formula

ne peut pas fonctionner.

Attention Tab_Range(0) est une String et non un Range, je viens d'essayer par Sub,
ca fonctionne correctement. (c'est le passage en mode fonction qui ne fonctionne pas.)
Voilà le code en mode sub :

Code:

Call change_cellule_nommee(Worksheets("Bordereau de prix").Range("N7").Formula, "M")

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub change_cellule_nommee(la_sequence As String, la_colonne As String)
    Dim tab_range() As String
    Dim concat_cellule_nommee As String
    concat_cellule_nommee = ""
    With ActiveSheet
    tab_range = Split(la_sequence, "+")
    For i = 0 To UBound(tab_range) - 1
        concat_cellule_nommee = concat_cellule_nommee & .Range(tab_range(i)).Formula
    Next i
    concat_cellule_nommee = Replace(concat_cellule_nommee, "=", "+")
     concat_cellule_nommee = Replace(concat_cellule_nommee, "N", la_colonne)
   Worksheets("Bordereau de prix").Range(la_colonne & "7").Formula = "=0" & concat_cellule_nommee
    End With
End Sub

13/12/2013, 15h22
Marc-L

Bonjour,

par pitié, arrêtez le carnage ! Comme indiqué dans l'aide d'Excel,
une fonction personnalisée ne peut modifier que la cellule appelante et rien d'autre !

Donc la ligne n°12 est systématiquement zappée …

Voir Les fonctions personnelles dans Excel …
13/12/2013, 15h33
comme de bien entendu

Est ce que tu nous parles du code de la Sub ou de la fonction. Parce que si c'est la Sub qui est incriminée j'ai envie de dire " par pitié lisez ce qui est écrit"
Sinon c'est le with Activesheet (en ligne 12 de la fonction) qui provoque le probleme ?