Discussion :

[law56100]

Bonjour

Je ne comprends pas trop se qu'il se passe et comment faire fonctionner mon problème

Voici mon programme :

etape 1 : je crée mon menu

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim newMenu As CommandBarPopup
    Set MonMenuBar = CommandBars.ActiveMenuBar
    Set newMenu = MonMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    newMenu.Caption = TitreMenu
 
    With newMenu
        Call MenuOption(newMenu, "Test", "MtestMouv")
    End With
End Sub

fonction MenuOpition :

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 MenuOption(p_MenuItem As Object, p_Libelle As String, Optional p_fonction As String, Optional p_parametres As String, Optional p_separateur As Boolean = False)
    Dim o_SubMenuItem As CommandBarButton
    Set o_SubMenuItem = p_MenuItem.Controls.Add(Type:=msoControlButton)
 
    With o_SubMenuItem
        .Caption = p_Libelle
        .BeginGroup = p_separateur
        .OnAction = p_fonction
        If p_parametres <> "" Then
            .Parameter = p_parametres
        End If
    End With
End Sub

fonction MTestMouv :

Code :

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

1
2
3
4
 
Public Sub MTestMouv()
    tableauMouv
End Sub

fonction TableauMouv

Code :

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

1
2
3
4
5
6
Public Function tableauMouv() As String
    ActiveSheet.Cells(1, 1).Value = "DATE"
    ActiveSheet.Cells(1, 2).Value = "DEBIT"
    ActiveSheet.Cells(1, 3).Value = "CREDIT"
End Function

1) Si je clique sur mon menu sur "Test", ça lance la fonction MTestMouv qui lance la fonction tableauMouv et le resultat est que la cellule A1="Date", A2="DEBIT" et A3 = "CREDIT"

2) je selectionne une cellule et dans le fx je tape = tableauMouv(), j'obtien un #valeur dans ma cellule que j'ai séléctionné. et le code plante à la ligne rouge ci-dessus. Je pense que cela est du a .Value

je ne comprend pas trop le comportement et comment je peux résoudre le problème.

Pour le comportement :
pour le n°1 : je ne suis pas dans la cellule donc je peux affecter des cellules
pour le n°2 : je suis a l'intérieur d'une cellule et je peux juste affecté la cellule

cordialement law56100

[Pierre Fauconnier]

Bonjour

Une fonction utilisée dans une feuille de calcul ne peut pas modifier la valeur des cellules. Elle peut juste renvoyer une valeur...

[law56100]

Une fonction utilisée dans une feuille de calcul ne peut pas modifier la valeur des cellules. Elle peut juste renvoyer une valeur...

oui cela j'avais compris. Mais il n'est pas possible de faire cela

dans la cellule A1 j'ai fx=MaFonction()
MaFonction renvoie une valeur a A1 et remplit
A2 ="toto", B2= "TITI, C2="TATA"

[Pierre Fauconnier]

oui cela j'avais compris. Mais il n'est pas possible de faire cela

dans la cellule A1 j'ai fx=MaFonction()
MaFonction renvoie une valeur a A1 et remplit
A2 ="toto", B2= "TITI, C2="TATA"

Ben... si tu avais compris cela, tu ne poserais pas la question...

Tu ne peux pas utiliser dans une feuille une fonction qui modifie la valeur d'une cellule... Donc, une fonction utilisée dans une formule ne peut pas contenir du code tel que

Code :

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

range("b1")=...

... Je ne vois pas trop comment le formuler autrement pour que tu comprennes...

[law56100]

Si j'ai compris que c'est impossible mais je m'etais dis qu'il y aurai peut être une astuce pour contourner le problème.

[Pierre Fauconnier]

Non, car si on pouvait faire cela, on risquerait de créer des références circulaires.

Examine ce qui suit:

En A1, une formule telle que celle-ci

Code :

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

=Mafonction(...) + B1

et une fonction

Code :

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

1
2
3
4
function MaFonction(...)
    range("B1")= 14
    mafonction = 7
end function

Excel ne s'en sortirait pas...