Fonction CopierValeur

Fermé
Despages Messages postés 5 Date d'inscription vendredi 1 janvier 2010 Statut Membre Dernière intervention 29 janvier 2010 - 2 janv. 2010 à 18:48
Bonjour,

Excel / VBA

j'ai qq difficultées à finaliser une FONCTION "CopieValeur"

Function CopieValeur (range As Variant)
range.Copy
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Function

Exemple:
en B1 : "ragondin";
en C1 = DROITE(B1;3) => ce qui donne "din"
en B6 : ma fonction = CopieValeur(C1)

résultat = 0 et non pas "din"

merci de votre aide

nota : je cherche une FONCTION et non pas une procédure (Sub) ou l'utilisation du copier valeur avec clic droit souris

merci encore

Despages