Comment obtenir la cellule actuelle Excel

Question

J'ai une fonction VBA:

public function MyFunction(someParameters) as Double 

    ... do something ... 

    return aValue 

end function 

J'ai une feuille où ma fonction est appelée à partir de certaines cellules:

A1: =MyFunction(...) 

A2: =MyFunction(...) 

A100: =MyFunction(..) 

Je voudrais revenir un valeur (et ça marche) et aussi d'ajouter un commentaire à la cellule ...

Si je ActiveCell puis-je utiliser AddComment, il ajouter un commentaire à la dernière cellule, je quittai mon curseur, et non la « cellule active calculée '.

Comment faire?

Merci.

Answer 1

Vous ne pouvez pas faire cela en utilisant ActiveCell. Votre fonction recalcule et chaque fois qu'elle s'appelle ActiveCell est quelque chose de différent (selon la sélection). La logique pour ajouter des commentaires via UDF semble un peu imparfait mais vous pouvez essayer cette

Public Function MyFunction() As Double 

    MyFunction = 3.141519 

    Dim cell As Range 
    Set cell = Range(Application.Caller.Address) 

    cell.AddComment (cell.Address) 

End Function 

Answer 2

Vous devez utiliser Application.Caller, pas ActiveCell.

par exemple.

Function Test() As String 
    Test = Application.Caller.Address 
End Function 

Ref: http://msdn.microsoft.com/en-us/library/office/ff193687%28v=office.15%29.aspx