FONCTION CopierCollerValeur

[Despages]

Bonjour

Sub test()
Range("A1") = "Hello World!"
Range("A2") = "=Left(A1,6)"
End Sub

Je cherche une FONCTION "copiercollervaleur" à double détente :

1/ dans une cellule (C4 par ex) la fonction (qui ramène la valeur)
2/ dans une autre cellule (C6 par ex) la valeur elle_même

Function ValeurCellule(Target As Range) As Variant
If Not Nothing Is Target Then
ValeurCellule = Target.Value
End If
End Function

cette fonction ramène bien la valeur d'une autre fonction ,
par ex en C4: =ValeurCellule(A2) donne "Hello", que l'on voit dans la cellule C4;
mais évidemment si l'on se place sur C4 on lit "=ValeurCellule(A2)"

* je cherche à la complémenter pour générer une (2ème) cellule C6 ( créée par offset?? dans la fonction elle-même), où l'on trouverais la valeur, cad que lorsque l'on se place sur cette cellule C6 on lit bien "Hello" et non pas =quelquechose(A2 (ou C4)

à l'identique du clic_droit_souris collervaleur :sol:

grand merci - je n'ai pas su écrire cela - Despages

 

[zeb]

Vous devez être connecté pour voir les images.

 

[Despages]

Bonjour

[cpp][/cpp]
Sub test()
Range("A1" ) = "Hello World!"
Range("A2" ) = "=Left(A1,6)"
End Sub
[cpp][/cpp]

Je cherche une FONCTION "copiercollervaleur" à double détente :

1/ dans une cellule (C4 par ex) la fonction (qui ramène la valeur)
2/ dans une autre cellule (C6 par ex) la valeur elle_même

[cpp][/cpp]
Function ValeurCellule(Target As Range) As Variant
If Not Nothing Is Target Then
ValeurCellule = Target.Value
End If
End Function
[cpp][/cpp]

cette fonction ramène bien la valeur d'une autre fonction ,

par ex en C4: [=ValeurCellule(A2)] donne "Hello", que l'on voit dans la cellule C4;

mais évidemment si l'on se place sur C4 on lit "=ValeurCellule(A2)"

* je cherche à complémenter cette Fonction "ValeurCellule" pour générer une (2ème) cellule : C6 (par ex ( créée par offset?? dans la fonction elle-même), où l'on trouverait la valeur, cad que lorsque l'on se place sur cette cellule : focus en C6, on puisse bien lire "Hello" et non pas "=quelquechose(A2 (ou C4)"

à l'identique du clic_droit_souris collervaleur :sol:

grand merci - je n'ai pas su écrire cela - Despages

 

[Storos]

Euh... comment dire...

1. il était inutile de reposter ton message, il suffisait d'éditer le premier avec le bouton ad-hoc... :spamafote:

2. les balises "cpp" s'utilisent de la façon suivante:
- On place une balise "cpp" entre "[]" en début de code
- On place une balise "\cpp" entre "[]" en fin de code

Tu peux vérifier l"effet de tes balises avant de poster grâce au bouton "aperçu".