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

Depuis une feuille excel, tu ne peut appeler qu'une fonction en lui passant une VALEUR (excel convertit automatiquement la cellule source C1 en valeur) et cette dernière te retournera une valeur.
 
Ta fonction ne pourra donc pas remplacer sa formule par une valeur d'elle même, car les fonctions ne manipules pas les cellules directement.
 
http://www.cpearson.com/excel/differen.htm  =>  
"A FUNCTION procedure can only return a value to Excel, nothing more.
"

Bonjour,
 
certes, certes,
 
mais le CopierValeur clic droit (windows software ingeneers) renvoie bien la valeur et non pas la formule, alors il y a peut-^tre une petite entourloup^ete pour malgré tout écrire une FUNCTION copier_valeur d'une cellule où il y a DéJa une fonction ...,
 le clipbooard semble être vide pour les copies de cellules ou il y a une fonction ...
 
slts
 
Despages