Aide sur formule

[nonoTT]

Bonjour
Je n'arrive pas à réaliser la somme des cellules définies par leur adresse.
Pouvez-vous m'indiquer la bonne syntaxe.
Je suis arrivé à afficher l'adresse mais pas à faire l'addition.
J'ai une erreur #NOM? en F1 et dans la cellule j'ai comme formule =SOMME(Comptage)
Voici le code :

Sub cellule()

Dim Comptage As Variant
    
Comptage = Range("F2", Range("F2").End(xlDown)).Address

'Affiche l'adresse des cellules sélectionnées
ActiveSheet.Range("F1").value = Comptage
'Faire la somme des cellules
ActiveSheet.Range("F1").Formula = "=SOMME(Comptage)"

End Sub

Merci pour le coup de main

 

[tototiti2008]

Re : Aide sur formule

Bonjour nono,

peut-être

ActiveSheet.Range("F1").Formula = "=SUM(" & Comptage & ")"

Edit :
Bonjour Hasco, tu as raison, c'est soit

ActiveSheet.Range("F1").Formula = "=SUM(" & Comptage & ")"

soit

ActiveSheet.Range("F1").FormulaLocal = "=SOMME(" & Comptage & ")"

J'ai corrigé

 

[Guest]

Re : Aide sur formule

Bonjour,

Si comptage contient bien l'adresse de la plage:

ActiveSheet.Range("F1").Formula = "=SUM(" & Comptage & ")"

A+

[Edit] Hello Tototiti🙂

 

[Kiseki]

Re : Aide sur formule

Bonjour,

Pour complété le message d'Hasco :

Sub cellule()

Dim Comptage As String
   
Comptage = Range("F2", Range("F2").End(xlDown)).Address

'Faire la somme des cellules
ActiveSheet.Range("F1").Formula = "=SUM(" & Comptage & ")"

End Sub

Ce résume à :

Sub cellule()
ActiveSheet.Range("F1").Formula = "=SUM(" & Range("F2", Range("F2").End(xlDown)).Address & ")"
End Sub

On utilise le terme anglais pour que la formule soit traduite en fonction de la langue d'Excel, sinon avec =Somme, un Excel anglais ne comprendrais pas.

Regarde bien les guillemet, ce qui à entre guillemet représente du texte.

 

[TempusFugit]

Re : Aide sur formule

Bonjour

Une autre voie possible

Sub cellule()
Range("F2", Range("F2").End(xlDown)).Name = "Comptage"
'Faire la somme des cellules
ActiveSheet.Range("F1").FormulaLocal = "=SOMME(Comptage)"
End Sub