Qui peut corriger ma formule ? (sur l'adresse cellule)

[timekeeper]

bonjour,
vois ma formule :

1. GR = ActiveCell.AddressLocal
2.
3. Worksheets("tt").Range("G20").FormulaLocal = "=Somme(G4:" & GR & ")"


elle fonctionne bien mais je souhaiterais que GR retranche 2 cellules a l'activecell

je suis pas clair , je m'en rend compte.

je souhaiterais par exemple que si je selectionne la cellule G48 , GR= activecell - 2 rangés

exemple : je selectionne G25 et GR= G23


merci d'avance

 

[Pierrot93]

Re : Qui peut corriger ma formule ? (sur l'adresse cellule)

Bonjour,

essaie peut être comme ceci :

GR = ActiveCell.Offset(-2).AddressLocal
Worksheets("tt").Range("G20").FormulaLocal = "=Somme(G4:" & GR & ")"

bon après midi
@+

 

[timekeeper]

Re : Qui peut corriger ma formule ? (sur l'adresse cellule)

superbe ...par contre ca me le mets sous Format "G$16$" ..est il possible de l'avoir simplement en format "G16"

merci

 

[Pierrot93]

Re : Qui peut corriger ma formule ? (sur l'adresse cellule)

Re,

GR = ActiveCell.Offset(-2).Address(0, 0)

 

[timekeeper]

Re : Qui peut corriger ma formule ? (sur l'adresse cellule)

Grand Merci c'est Parfaitement ca