Menu

Calcul de cellule en vba

Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Dernière intervention
9 mars 2019
- - Dernière réponse : guismo33
Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Dernière intervention
9 mars 2019
- 9 mars 2019 à 18:17
Bonjour à tous,

j'ai un tableau ,dans D10:D22 des nombres et en D26 je voudrais faire le calcul automatique de D12+D13+D14+D16+D17+D18+D21 en VBA sachant que par un bouton j'efface toutes les cellules a la fin de mon travail , ce calcul doit se faire a chaque reprise de cette feuille.

merci à vous
Afficher la suite 

Votre réponse

2 réponses

Messages postés
8824
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
25 mars 2019
1914
0
Merci
Re-Bonjour

avec ce que j'ai compris
Private Sub Worksheet_Activate()
Dim plage As Range
Dim a
Set plage = Union(Range("D12:D18"), Range("D21"))
a = Application.WorksheetFunction.Sum(plage)
' a toi de voir ce que tu veux faire de a
MsgBox a
' pour effacer plage
plage.ClearContents
End Sub

Cdlmnt
guismo33
Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Dernière intervention
9 mars 2019
1 -
Bonjour,
en congés je reviens vers vous pour cette Macro, elle fonctionne a chaque fois que j'ouvre le feuille.
ce que je voulais dire en calcul automatique c que quand j'argumente "D12:D18" le calcul se fait de suite dans la Cellule "D26".

en vous remerciant.


bien à vous
Commenter la réponse de ccm81
Messages postés
8824
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
25 mars 2019
1914
0
Merci
Comme ça ?

https://www.cjoint.com/c/ICjoZzxZphB

Cdlmnt
guismo33
Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Dernière intervention
9 mars 2019
1 -
re,
oui c bien comme cela, merci, et pour répondre a ta question pourquoi ne pas mettre "Somme dans D26"
car la somme de "D26" peut être modifier au clavier et sans fermé le classeur j'efface tous et reviens au menu principal pour ré-ouvrir la même feuille. classeur que tu avais gentiment travailler dessus " Palette et Bouteilles"
merci encore.

bon week

bien à vous
Commenter la réponse de ccm81