Fonction Copier Valeur

Bonjour,

Excel / VBA

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

Code:

---

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" :calim2:

merci de votre aide :lun:

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

J'ai essayé la fonction suivante qui fonctionne :

Code:

---

1 2 3

Function copievaleur(ByVal Macell As Range) As String copievaleur = Macell.Value End Function

---

Bonjour

Une fonction par définition renvoie une valeur contrairement à "sub"
On doit donc écrire dans le corps de la procédure

Code:

---

1 2 3 4

........................ CopieValeur= valeur retournée .......................

---

C'est cette valeur que l'on retrouve dans la cellule.

JP014

Citation:

---

Envoyé par aalex_38

J'ai essayé la fonction suivante qui fonctionne :

Code:

---

1 2 3

Function copievaleur(ByVal Macell As Range) As String copievaleur = Macell.Value End Function

---

---

Bien merci,

Module5

1/on trouvevisiblement bien "din" dans Macell de la feuille excel: cad la valeur de la cellule copiée; à contrario si l'on se place sur Macell, évidemment, on retrouve "=CopieValeur(Macell)" F15

2/avec un copier/coller valeur (clicdroit_souris) = "din" visible ET dans Macell ET "din" dans la cellule Macell (plus de fonction) elle même E15

ah ! là là! :oops:

slts - Despages

re,

Citation:

---

1/on trouvevisiblement bien "din" dans Macell de la feuille excel: cad la valeur de la cellule copiée; à contrario si l'on se place sur Macell, évidemment, on retrouve "=CopieValeur(Macell)" F15

2/avec un copier/coller valeur (clicdroit_souris) = "din" visible ET dans Macell ET "din" dans la cellule Macell (plus de fonction) elle même E15

---

Je ne comprend pas ta demande, peux-tu préciser (retour lundi)

Salut
Alors, si je comprend ton probleme
MaCell contient du text, par exemple ragondin (c'est pas courant comme exemple ^^)
Dans CelluleX tu veux que le text "din" soit placé, correspondant au 3 dernières lettres du mot contenu dans Macell
Hors lorsque tu clique sur CelluleX, on se rend compte que ce n'est pas du text mais une formule.
Tu as donc 2 choix possibles
1/ Tu veux vraiment le texte "din" dans CelluleX et surtout pas une formule.
Dans ce cas de figure, il va te falloir utiliser, par exemple, l'évènement Change de l'objet Worksheet, ainsi a chaque changement du contenu de Macell, tu changera le contenu de CelluleX en y inscrivant les 3 dernier caractères de MaCell.

2/Tu acceptes qu'il y ai une formule dans CelluleX mais si l'utilisateur clique sur cette cellule, tu ne veux pas qu'il vois le formule utilisée.
Dans ce cas tu gardes par exemple la formule "=Droite(Macell,3) dans celluleX et dans Format de cellule de celluleX, onglet protection, tu coches Masquer. Par contre pour que le masquage soit effectif, il te faudra Proteger ta feuille, ce qui implique de bien régler les formats de cellules (prtection- verouiller/Masquer) pour que l'utilisateur puisse saisir ce qu'il veux. En fonction de ta version d'excel tu aura plus ou moins de possibilité (exemple sur excel 2003 une fois la feuille protégée, tu ne pourras plus faire de filtre ...)

A++
Qwaz

Citation:

---

Envoyé par Qwazerty

Salut
Alors, si je comprend ton probleme
MaCell contient du text, par exemple ragondin (c'est pas courant comme exemple ^^)
Dans CelluleX tu veux que le text "din" soit placé, correspondant au 3 dernières lettres du mot contenu dans Macell
Hors lorsque tu clique sur CelluleX, on se rend compte que ce n'est pas du text mais une formule.
Tu as donc 2 choix possibles
1/ Tu veux vraiment le texte "din" dans CelluleX et surtout pas une formule.
Dans ce cas de figure, il va te falloir utiliser, par exemple, l'évènement Change de l'objet Worksheet, ainsi a chaque changement du contenu de Macell, tu changera le contenu de CelluleX en y inscrivant les 3 dernier caractères de MaCell.

2/Tu acceptes qu'il y ai une formule dans CelluleX mais si l'utilisateur clique sur cette cellule, tu ne veux pas qu'il vois le formule utilisée.
Dans ce cas tu gardes par exemple la formule "=Droite(Macell,3) dans celluleX et dans Format de cellule de celluleX, onglet protection, tu coches Masquer. Par contre pour que le masquage soit effectif, il te faudra Proteger ta feuille, ce qui implique de bien régler les formats de cellules (prtection- verouiller/Masquer) pour que l'utilisateur puisse saisir ce qu'il veux. En fonction de ta version d'excel tu aura plus ou moins de possibilité (exemple sur excel 2003 une fois la feuille protégée, tu ne pourras plus faire de filtre ...)

A++
Qwaz

---

Bonjour,

réponse 1

oui, tout à fait, je désire bien récupérer la valeur absolue et non pas la fonction, soit "din" de notre fameux ragondin :ange: , et ceci, malgré !! l'appel de la fonction copiervaleur :yaisse1:

pourquoi ?? parce que d'autres fonctions s'enchaînent à la suite, à partir de "CelluleX", et la premiére_suivante fonction (la prochaine) n'accepte que des valeurs_absolues (= din), au cas contraire (=CopieValeur(MaCell)) j'ai le fameux "#Valeur!" comme résultat de la fonction suivante :calim2:

à contrario, je suis plutôt pas trés costaud_arithméticien, :oops:, aussi si vous ..... compléter la function soumise plus haut cela me serait bien symphatique/utile :bravo:

merci - slts - Despages

Salut
Alors je n'ai pas Excel sous la main, je me pose la question de savoir si ta fonction suivante accepterait le retour d'une fonction dans CelluleX qui renverait un string, comme le proposait aalex_38 dans la post #2 de cette conversation.

Si ca n'est pas le cas, essai un truc comme ca, n'ayant pas excel je ne garanti pas le resultat

Code:

---

1 2 3 4 5 6 7 8

Dans le WorkSheet_Change(Target As Range) On error resume next 'Fait pour etre sur de passerpar enableEvents = true (regarde mes topic recent g deja abordé le sujet dans un code similaire) if not intersect(Range("C:C"),Target) is nothing then 'la cellule qui vient de changer est en colonne C 'je ne sais pas quelle cellule doit etre renseigné, je vais partir du principe qu'elle se trouve sur la meme ligne mais 2 colonne plus loin (colonne E) Application.EnableEvents = False Target.Offset(0,2) = RightStr(Target.Value,3) Application.EnableEvents = True end if

---

++
Qwaz

Bonjour,

j'ai essayé cela, mais mes capacités sont limitées .;. :zoubi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function CopieValeur(Target As Variant) Target.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False     'Dans le WorkSheet_Change(Target As Range) On Error Resume Next 'Fait pour etre sur de passer par enableEvents = true '(regarde mes topic recent g deja abordé le sujet dans un code similaire) If Not Intersect(range("C:C"), Target) Is Nothing Then 'la cellule qui vient de changer est en colonne C ' je ne sais pas quelle cellule doit etre renseigné, ' je vais partir du principe qu'elle se trouve sur la meme ligne ' mais 2 colonne plus loin (colonne E) Application.EnableEvents = False Target.Offset(0, 2) = RightStr(Target.Value, 3) Application.EnableEvents = True End If     End Function

---

cela donne #valeur! :aie:

Despages

Salut
Arff, alors c'est pas ^possible de le faire ainsi, il n'est pas possible de modifier une autre cellule dans le code d'une function perso utiliser comme function dans une cellule Excel.
Il y a peut être d'autres méthodes que je peux te proposer, mais je souhaiterai en savoir un peu plus sur le pourquoi de cette function CopierValeur.
il faudra aussi des info sur la structure de ton tableau.
A++
Qwaz

Bonjour,

encore :merci: à toi Qwazerty

oui il m'avait bien semblé qu'il soit impossible de remplacer :scarymov: le clic droit souris coller valeur par une fonction

il s'agissait de pouvoir remplacer le clicdroitcopiervaleur_ souris par une fonction à la demande :chin:

Despages

Salut
Je n'ai pas trop compris ton message :p, il est possible de copier des valeur d'une cellule a l'autre avec VBA, je ne voudrais pas qu'on se comprenne mal, ce qui n'est pas possible de faire, c'est de mettre dans une cellule, une formule utilisant une function qui modifie le contenu d'une autre cellule.
Mais tu peux intercepter l'évènement Change du WorkSheet afin de faire ce que tu souhaites, mais il faut savoir un peu plus de choses sur la structure de ta feuille.
A++
Qwaz