Despages
Nouveau membre
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
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