• Initiateur de la discussion Initiateur de la discussion Didier
  • 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 !

D

Didier

Guest
Bonjour le forum
Je souhaiterais insérer une formule =SOMME dans un VBA
comment faut il s'y prendre ?
Merci
Didier
 
Tiens, voilà copie d'un post, fait par Thierry, il y a deux mois.Je ne sais pas si cela fonctionne, je ne l'ai pas testé.

@ +

Moa

Auteur: musat (194.204.222.---)
Date: 21-11-02 11:47

Bonjour,

Je voudrais par MACRO aller à la dernière cellule contenant une valeur de la colonne F (soit F?) et effectuer la somme à partir de la cellule F10 jusqu'à la cellule juste au dessus de la cellule F?

Merci....😉


Répondre à ce message


Re: Aller à Une Cellule et sommer
Auteur: @+Thierry (57.67.9.---)
Date: 21-11-02 14:13

Salut Musat,

Il te faut une macro comme celles-ci en exemple :

La Premiere fera l'addition en reportant qu'une valeur
Sub MusatSUM()
ligne = Sheets("sheet1").Range("F65536").End(xlUp).Row + 1
Set myRange = Worksheets(1).Range("F10:F" & ligne - 1)
total = Application.WorksheetFunction.Sum(myRange)
Cells(ligne, 6).Value = total
End Sub

La seconde reportera une formule qui fera l'addition
Sub MusatFORMULA()
Ligne = Sheets("sheet1").Range("F65536").End(xlUp).Row + 1
Formule = "=SUM(F10:F" & Ligne - 1 & ")"
Cells(Ligne, 6).Value = Formule
End Sub

Attention je suis en US ici, pour cette dernière macro il faut traduire SUM avec SOMME (je crois, en français).

Voilà
Bon aprèm
@+Thierry
 
Bonsoir Didier, Moa et le forum

Additionner les totaux de colonne C à BT
de la ligne ici 16 a la fin de la colonnne B


Sub Total()
A = Range("b65535").End(xlUp).Row
For i = 3 To 72
Cells(A + 2, i).Select
ActiveCell.FormulaR1C1 = "=SUM(R16C:R[-2]C)/(R15C)"
Next i
End Sub

Donc sur Cx:BTx les totaux des cellules

Espérant avoir depanner

Amitié Mytå º¿º
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
188
Réponses
8
Affichages
69
Réponses
14
Affichages
526
Réponses
12
Affichages
471
Retour