Calcul de cellule en vba

guismo33 Messages postés 403 Statut Membre -
guismo33 Messages postés 403 Statut Membre - 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

2 réponses

Réponse 1 / 2
ccm81 Messages postés 11033 Statut Membre 2 434
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
1. guismo33 Messages postés 403 Statut Membre 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
Réponse 2 / 2
ccm81 Messages postés 11033 Statut Membre 2 434

Comme ça ?

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

Cdlmnt
0
1. guismo33 Messages postés 403 Statut Membre 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

Calcul de cellule en vba

2 réponses

Discussions similaires

Newsletters