Discussion :

[mimi123456789]

Bonjour à tous,

Savez-vous si il est possible a une fonction vba de modifier la valeur d'une cellule dans une feuille de calcul et en meme temps retourner une valeur?
Je cherche déséspérement un moyen de le faire et ce sans passer par une procédure.

Un tout grand merci pour votre précieuse aide!

[Daniel.C]

Bonjour,

Pas directement, ce pendant, tu peux combiner une fonction et une macro évènementielle pour arriver à tes fins (c'est de la bidouille) :

Code :

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

1
2
3
Function test(c, Optional ValeurAutreCellule)
    test = 2
End Function

et :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula And Left(Target.Formula, 5) = "=test" Then
    txt = Split(Target.Formula, ",")(1)
    txt = Mid(txt, 2, Len(txt) - 3)
    Application.EnableEvents = False
    [J1] = txt
    Application.EnableEvents = True
End If
End Sub

[Daniel.C]

Ou, plus simple, avec une variable publique :

Code :

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

1
2
3
4
5
Public Var As Variant
Function test(c, ValeurAutreCellule)
    Var = ValeurAutreCellule
    test = 2
End Function

et dans le module feuille :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula And Left(Target.Formula, 5) = "=test" Then
    Application.EnableEvents = False
    [J1] = Var
    Application.EnableEvents = True
End If
End Sub

[mimi123456789]

Merci beaucoup pour ces réponses, par contre je n'arrive toujours pas à modifier la valeur de la cellule J1.

[gFZT82]

Bonjour,

Savez-vous si il est possible a une fonction vba de modifier la valeur d'une cellule dans une feuille de calcul et en même temps retourner une valeur?

Je ne suis pas sûr d’avoir bien saisi le problème et surtout la finalité de ta demande.
Pourquoi faut-il que ce soit impérativement une fonction ?
Regarde le test ci-dessous.

Code :

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

1
2
3
4
5
6
7
Sub Test()
    Range("K1") = Essai
End Sub
Function Essai()
    Range("J1") = "Bonjour, "
    Essai = "Ca va ?"
End Function

La fonction Essai modifie la valeur de J1 et retourne une valeur.

Cordialement.

[Daniel.C]

Bonjour,
@ gFZT82 :

Ca fonctionne effectivement si la fonction est appelée par VBA. Ca ne fonctionne pas si elle est utilisée comme une fonction perso dans Excel.

@ mimi123456789 :
Regarde le classeur joint.

[gFZT82]

Bonjour Daniel.C,

Ca fonctionne effectivement si la fonction est appelée par VBA. Ca ne fonctionne pas si elle est utilisée comme une fonction perso dans Excel.

Oui, mais mimi123456789 ne fait pas état d'une fonction personnelle.
Attendons ses précisions sur la finalité.

Cordialement.

[mimi123456789]

Merci pour toutes ces réponses. Effectivement j'ai besoin d'une fonction personnelle que "j'appelle" depuis une feuille de calcul excel.
Ma fonction perso doit pouvoir modifier la valeur d'une autre cellule (dans la feuille de calcul) et en même temps renvoyer une valeur.
Le projet sur lequel je travaille m'impose d'utiliser une fonction et non pas une procédure.

Merci pour votre aide.