Fonction et Range

[MangePasDpain]

Bonjour à tous,

Le résultat que j'obtiens avec cette macro n'est pas celui que je souhaite,

Range("A1").Select
Range("B1").Value = "=SUM(Range(ActiveCell.Address) & "":"" & Z1)"


Je voudrai la somme de la plage A1 à Z1 en utilisant l'adresse de la cellule active.
Range(ActiveCel.......) est copié comme du texte.

Comment faire pour obtenir le bon résultat ?

Merci de vos réponses.

 

[Pascal76]

Bonjour

cela s'ecrirait plutôt comme ceci

Range("B1").Value = "=SUM(" & ActiveCell.Address & ":Z1)"

Mais là tu dois faire une erreur quelque part car tu vas avoir une reference circulaire car tu mets en B1 une somme qui inclus la cellule B1

Bon courage

Pascal