Discussion :

[keks42]

Bonjour tout le monde

La fonction ci-dessous est sensée écrire toto (dans la 3ème cellule de la plage de cellule MonNom) et renvoyer 0

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function MyFunction() As Integer
    Dim ws As Worksheet
    Dim rng As Range
 
    Set ws = ThisWorkbook.Worksheets("Feuil1")
    Set rng = ws.Range("MonNom")
    rng.Cells(3, 1).Value = "toto"
 
    MyFunction = 0
End Function

Si j’ajoute un bouton dans l’onglet Feuil1 qui appelle cette fonction, tout se passe bien (toto s'écrit bien où il faut et la fonction renvoie 0)
En revanche, si j’écris =MyFunction() dans une autre cellule de l’onglet Feuil1, alors toto ne s’écrit pas, et la fonction renvoie #VALEUR ! au lieu de 0

Quelqu’un peut-il m’expliquer pourquoi ?

Merci pour votre aide

[pgz]

Bonjour;

Quand tu utilises une fonction personnelle dans une feuille EXCEL, cette fonction renvoie une valeur enregistrée dans la cellule, mais cette fonction ne doit modifier aucun autre objet.
Si tu neutralises la ligne

Code :

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

rng.Cells(..).Value = "Toto"

le pb devrait disparaître.
Mais comme tu essayais jystement de modifier une autre cellule, cela ne te satisfait pas. Ce que tu essaies de faire n'est pas possible.

Cordialement,

PGZ

[Gorfael]

Salut keks42 et le forum
Function est une procédure dont le but est de retourner un résultat, pas d'effectuer des modifications, comme une formule normale.
Pour modifier des cellules, utilise une Macro SUB. Une macro appelée par une Function ne marchera pas non plus.
A+

[keks42]

Merci pour vos réponse.

Je vais essayer de trouver un moyen de contournement.

@++

[pgz]

Bonjour.

Peut-être utiliser l'évènement Calculate de la feuille pour déclencher une procédure qui fait les mêmes modifications, mais il faudra chercher les cellules concernées.

Cordialement,

PGZ