XL 2016 Addition de deux cellules toute les minutes

[MORISS]

Bonjour,

Je viens vers vous car j'aimerais savoir s'il est possible dans une cellule de rajouter le nombre d'une autre cellule toute les 60 secondes.

Exemple dans P21 je souhaiterais rajouter le nombre dans la cellule K21 : K21 = 90

Merci d'avance pour votre aide

 

[pierrejean]

Bonjour
A tester
dans le module d'une feuille (ex:Feuil1)

Private Sub Worksheet_Activate()
[K21] = 90
Application.OnTime Now + TimeValue("00:01:00"), "ajout"
End Sub

Dans un module standard Feuil2 étant une autre feuille:

Sub ajout()
Application.ScreenUpdating = False
[P21] = [P21] + [K21]
Sheets("Feuil2").Select
Sheets("Feuil1").Select
Application.ScreenUpdating = True
End Sub

 

[MORISS]

Bonjour,

Merci pour votre retour, j'ai tester votre formule il me donne l'erreur de compilation : Nom ambigu détecté: Worksheet_Active.

De plus K21 peut changer, il y a une liste déroulante.

Merci d'avance

 

[Alza]

Bonjour,
Le plus simple serait que tu fournisses ton document excel. La 1ère erreur vient probablement du fait que tu as 2 subs avec ce nom.