Fonction Excel Ecrivant Dans Plusieurs Cellules

Peut on dans une fonction excel inclure une instruction d'affectation de valeur à une cellule différente de celle où on fait appel à la fonction.
Voici un essai tout simple qui ne fonctionne pas:

Code:

---

1 2 3 4

Function cumpol() cumpol = 8 Cells(2, 2) = 145 End Function

---

Non, mais tu peux procéder autrement.
Si tu sélectionnes manuellement ta cellule, tu adaptes ce code et tu le places dans la feuille de code de la feuille

Code:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 And Target.Row = 5 Then _ Target.Offset(0, 2) = "Coucou !" End Sub

---

Si tu fais ça par soft, tu utilises ce même code au même endroit et tu mets le code suivant dans un module

Code:

---

1 2 3 4

Sub Selectionner() ThisWorkbook.Worksheets("Feuil1").Select Cells(5, 5).Select End Sub

---

Mais dans ce cas, je ne vois pas l'intérêt...
Tout ça pour dire qu'on ne peut pas affecter une valeur à une autre cellule par une fonction appelée dans une cellule.
Je crois néamoins qu'AlainTech avait proposé quelque chose (?)

Bonjour,

Est tu sûr que c'est sans espoir ...

A titre d'info:
Quand je passe en mode débogage, le fonction se plante sur l'instruction Cells(2, 2) = 145 , mais quand je continue à executer la fonction pas à pas l'instruction s'execute bien ....

Le problème que je dois résoudre nécessite que le calcul réalisé sur une cellule de la feuille s'impacte sur une série de cellules.
Ce calcul se fait à partir de la lecture d'une feuille annexe de plus de 20 000 lignes.
Si je n'arrive pas à résoudre le problème, il faudra que j'associe une fonction à chaque cellule, ce qui augmentera terriblement le temps de calcul !

Merci de ton aide,
Denis

J'ai dit AlainTech mais c'est peut-être bbil qui avair proposé quelque chose. Malheureusement Je ne me souviens pas de la formulation de la question pour la retrouver sur le forum :(
Mais je crois bien qu'il y avait effectivement une solution.
Ça ne t'avance pas beaucoup mais ça évite ainsi de t'affecter trop le moral ;)
Désolé, je n'ai pas pu m'en empêcher. :mouarf:

Je vais voir si je trouve ça (sans promesse inconsidérée...)

Edit
Désolé mais je n'ai pas retrouvé

Merci de tes efforts.
Denis

ta fonction fonctionne parfaitement, mais comme elle ne rime a rien, le code ne s'en sort pas. tu ne lui demande jamais un résultat

Code:

---

1 2 3 4 5 6 7 8

Function cumpol(variabledecumpol) cumpol = variabledecumpol * 2 Cells(2, 2) = 145 End Function   Sub suite() MsgBox cumpol(5) End Sub

---

et dans ce cas, tu constateras que la cellule est bien renseignée par le code

Merci alsimbad, ça m'énervait de ne pas trouver et j'arrive après la bagarre :(
C'était ici et c'est moi qui avait donné la solution :oops: Mais ça n'avait rien à voir :oops:

Dans le module ThisWorkbook, tu mets le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private chg As Boolean   Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If chg = False Then If Target.Formula Like "=mafonction(*)" Then chg = True Sh.Cells(2, 2) = 145 'etc... chg = False End If End If End Sub

---

Dans un module standard, tu mets une fonction bidon :

Code:

---

1 2 3

Public Function mafonction(valeur) mafonction = valeur End Function

---

Ensuite dans n'importe quelle cellule sauf peut-etre celles affectées par la macro, tu peux mettre la formule :

Code:

---

=mafonction(1654646)

---

Edit : Dans le module ThisWorkbook tu peux également mettre :

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Formula Like "=mafonction(*)" Then Application.EnableEvents = False Sh.Cells(2, 2) = 145 'etc... Application.EnableEvents = True End If End Sub

---