XL 2013 CALCUL AUTOMATIQUE

piga25 à dit:

Bonjour Bouteille à la mer, le Forum
Pour le calcul automatique ajouter ceci dans le code de la feuille

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub

Pour insérer une ligne automatiquement avec les formules, il existe un truc tout simple qui je l'espère pourra t'aider, c'est d'utiliser l'outil "Tableau" d'Excel.
Sur Excel 2007 ou plus, sélectionne ta zone, puis dans le menu Accueil, clique dans le ruban sur "Mettre sous forme de tableau" ( n'oublie pas de cocher la case "Mon tableau comporte des en-têtes").
Ensuite, tu verras que comme par magie, dès que tu saisis une donnée après la dernière ligne, elle est automatiquement intégrée à ton "Tableau", et de même, les formules s'ajustent toute seules sans avoir quoi que ce soit à faire.
Le seul inconvénient à cela il faut juste une seule ligne d'entête et sans cellules fusionnées.

Cliquez pour agrandir...

mapomme à dit:

Bonsoir @bouteille à la mer, @piga25,

Un changement de couleur n'est pas associé à un évènement qu'on peut gérer en VBA. Un pis-aller est de lancer toutes les n secondes un calcul automatique qui recalculera le classeur. Pour cela, on lance le processus de calcul à intervalle régulier l'ouverture du classeur et on arrête ce processus à la fermeture du classeur. Le code se trouve dans les modules de ThisWorkbook et de module2. L'intervalle entre deux recalculs est défini via la constante delai dans module2
ThisWorkbook:

VB:

' à l'ouverture du fichier on lance le calcul périodique via la sub Encore()
Private Sub Workbook_Open()
  Encore
End Sub

' à la fermeture du fichier on arrête le calcul périodique via la sub Arret()
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Arret
End Sub

Le code dans module2:

VB:

Option Explicit

Const delai = 3   ' délai entre deux calculs périodiques (en seconde)
Public prochain   ' heure du prochain calcul périodique

Sub Encore()
  Arret     ' on arrête le processus de calcul périodique
  prochain = Now() + 1 / 86400 * delai      ' date du prochain calcul forcé
  Application.OnTime prochain, "Encore", , True     ' on relance le calcul périodique
End Sub

Sub Arret()
  ' arrêter le processus de calcul périodique
  ' et procéder à un dernier calcul de mise à jour
  On Error Resume Next
  Application.OnTime prochain, "Encore", , False
  On Error GoTo 0
  Application.Calculate     ' on force un dernier calcul
End Sub

Cliquez pour agrandir...