Discussion :

[comme de bien entendu]

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:

=change_cellule_nommee(N7)

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

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

Code :

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

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.

[Kimy_Ire]

Bonjour,

Qu'est-ce que

Code :

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

MsgBox la_sequence.Text

te retourne ?

[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.

[Godzestla]

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

Code :

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

.Range(tab_range(i)).Formula

ne peut pas fonctionner.

[comme de bien entendu]

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 :

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

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

Code :

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

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

[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 …

[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 ?