Bonjour,

Excel / VBA

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
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