Discussion :

[Despages]

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

[aalex_38]

J'ai essayé la fonction suivante qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Despages]

J'ai essayé la fonction suivante qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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à!

slts - Despages

[aalex_38]

re,

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)

[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

[Despages]

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 , et ceci, malgré !! l'appel de la fonction copiervaleur

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

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

merci - slts - Despages

[jp014]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
........................
CopieValeur= valeur retournée
.......................

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

JP014