Calcul de cellule en vba

guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   -  
guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   2
 
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
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Comme ça ?

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

Cdlmnt
0
guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   2
 
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
0