Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide sur formule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nonoTT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nonoTT

XLDnaute Occasionnel
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 :
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
 
Trier par date Trier par votes
Re : Aide sur formule

Bonjour nono,

peut-être

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

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

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

soit

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

J'ai corrigé
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Aide sur formule

Bonjour,

Si comptage contient bien l'adresse de la plage:

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

A+

[Edit] Hello Tototiti🙂
 
Vote positif 0 Vote négatif
Re : Aide sur formule

Bonjour,

Pour complété le message d'Hasco :

Code: 
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 à :

Code: 
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.
 
Vote positif 0 Vote négatif
Re : Aide sur formule

Bonjour

Une autre voie possible

VB: 
Sub cellule()
Range("F2", Range("F2").End(xlDown)).Name = "Comptage"
'Faire la somme des cellules
ActiveSheet.Range("F1").FormulaLocal = "=SOMME(Comptage)"
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
461
juju91
J
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
684
sylvanu
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
660
AtTheOne
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
647
safranien
S
J
  • Question Question
XL 2013 calcul somme sur une feuille avec Range et cells
Réponses
3
Affichages
707
olivier 76
O
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
683
Lu76Fer
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
  • Résolu(e)
XL 2013 Afficher date arrivé sous condiotion
2
Réponses
15
Affichages
1 K
chaelie2015
  • Question Question
Microsoft 365 Suivant une sélection filtré remplacer les formules par leurs valeurs
Réponses
2
Affichages
734
chris
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
735
tactic6
  • Résolu(e)
XL 2013 renvoyer valeur sous condition
Réponses
5
Affichages
599
Gégé-45550
K
  • Résolu(e)
Microsoft 365 FORMULE Excel VBA
2
Réponses
17
Affichages
2 K
gbinforme
G
  • Résolu(e)
XL 2013 (RESOLU) Un code VBA sur des cellules spécifiques pour afficher calendrier
Réponses
2
Affichages
649
chaelie2015
F
  • Question Question
XL 2021 insérer une formule dans la cellule D2 via VBA
Réponses
7
Affichages
613
fabrice123456789
F
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
779
loreak
L
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
2 K
Dudu2
G
  • Question Question
XL 2021 Dictionnaire - Calcul ne s'effectue pas
Réponses
2
Affichages
495
gvives
G
  • Suggestion Suggestion
Recherche & référence Rand_Between_Nodouble
Réponses
0
Affichages
623
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…