XL 2010 création fonction COPIECELL

[gobogui]

Bonjour,

j'aimerais créer une fonction COPIECELL(A;B).
Les arguments des cette fonction seraient deux cellules A et B.
Je souhaiterais simplement copier le contenu de la cellule A dans la Cellule B.

J'ai essayé ce code simple :

Function COPIECELL(a As Range, b As Range)
b.Value = a.Value
End Function

Mais je n'obtiens que le message d'erreur #VALEUR! dans la cellule ou je saisie ma cette fonction.

La cellule "Source" contient un nombre décimal.

Quelqu'un peut'il me venir en aide ???

Merci d'avance.

 

[Jacky67]

Bonjour,

Je souhaiterais simplement copier le contenu de la cellule A dans la Cellule B.

Quelqu'un peut'il me venir en aide ???

.

Bonjour;
Essaye comme ceci

Function COPIECELL(a As Range)
COPIECELL = a.Value
End Function

Dans la cellule de destination
=COPIECELL(A1)

 

[gobogui]

Bonjour Jacky67

Merci pour ta réponse rapide.
Je n'ai pas été assez précis et je te présente toutes mes excuses .
Mais j'ai besoin de laisser la cellule de destination vide de toute fonction.
Voilà pourquoi la fonction a deux cellules en argument. Une cellule source et une cellule destination.

Soit la cellule destination est complètement vide, soit elle reçoit le contenu d'une autre cellule.

Est-ce possible ??

 

[Dranreb]

Bonjour
Une fonction ne peut opérer aucun changement de contenus de cellules, seulement des changement de valeurs des seules cellules qui l'utilisent dans leurs formules.
Il faut une Sub pour cela, et déterminer quand elle doit être exécutée, obligatoirement en dehors d'une phase d'évaluation de formules. À première vue ce serait le travail d'une Sub Worksheet_Change dans le module de la feuille. Toutefois une fonction perso pourrait laisser une consigne dans un tableau VBA global qui serait repris ensuite par une Worksheet_Calculate.

 

[gobogui]

Ouch ....

Tant pis pour cette piste ...

Merci encore pour votre aide à tous .