Calcul de cellule en vba

Fermé

guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 1 mars 2019 à 16:53
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 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

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
1 mars 2019 à 20:16

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 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
9 mars 2019 à 08:58

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

Réponse 2 / 2

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
9 mars 2019 à 15:51

Comme ça ?

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

Cdlmnt

guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
9 mars 2019 à 18:17

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