[VBA\Excel] ecrire dans des cellules Fermé

Question

Bonjour,

J'ai un problème avec les fonctions Excel. J'ai écrit une fonction en VBA et je voudrais que cette fonction modifie d'autres cellules. Le problème qui se pose est que apparament, si on fait l'appel de cette fonction à partir de la feuille excel, elle ne peut modifier que la valeur de cette cellule. Par contre, si on fait l'appel depuis une macro, et bah les cellules sont modifiés.

Quelqu'un pourrait m'aider svp à trouver une solution pour pouvoir modifier des cellules à partir de l'appel d'une fonction dans la feuille Excel?

Merci,

TheAhmed · Answer

Help please, j'en ai besoin pour mon stage

TheAhmed · Answer

Aucune solution ou bien la problématique n'est pas claire????

Bidouilleu_R · Answer

Et si vous montrez la fonction (le code) on vous dira pourquoi !!!!
A+

lermite222 · Answer

Bonjour,
Essaye avec...
Public Function toto() As Integer
Dim Lig As Long, Col As Integer
    Lig = ActiveCell.Row
    Col = ActiveCell.Column
    For i = 1 To 10
        Cells(Lig + i, Col) = i
    Next

toto = 1
End Function
A+

Bidouilleu_R · Answer

le problème vient du fait fait de la ligne 
Set Cellule = Application.ActiveCell 

Public Function toto() As Integer 
Dim i As Integer 
Dim Cellule As Cell 

Set Cellule = Application.ActiveCell   'cette ligne sera actualisée dès l'entrée dans la boucle For
For i = 1 To 10 
Cellule.Offset(i,0).Value = i 
Next 

toto = 1 

End Function

pour le mettre en évidence : place un point d'arrêt et utilise le pas à pas tu verras que cellule.address n'est plus définie

il faut donc lui passer l'adresse de départ  
essaye toto (adresse as range) as integer

définit ensuite 
set cellulle as range(adresse)
et teste ....

je ne peux pas faire le test mais c'est une piste.
A+

lermite222 · Answer

Je pense que j'ai compris, tu en fais une fonction excel...  =toto()
Si OUI, la réponse est NON impossible de modifier une autre cellule que celle dans lequel est la fonction.

De plus, dans ce genre de fonction, les commandes que tu applique ne sont pas valable, il faut employer 
Application.Caller

Bidouilleu_R · Answer

Exact je viens de faire un test de plus.

pour le moment ce n'est pas possible pour moi je pensais que l'on pouvais contourner le problème.
mais l'adresse de départ est perdue quand on rentre dans la boucle.
Bon courage.

[VBA\Excel] ecrire dans des cellules

7 réponses

Discussions similaires

Newsletters