XL 2019 programme temporisation

[valouf]

bonjour debutant sur vba j'aimerais realiser ce programme merci d'avance

 

[danielco]

Bonjour,

J'ai fait le travail pour les minutes. Recopie la macro et fais de même pour les secondes.

Daniel

 

[danielco]

Désolé. Pour tester plus rapidement, j'ai testé en décrémentant le compteur toutes les secondes. Pour les minutes, la macro est :

Sub DecompteMN()
  With Sheets("travail")
    If IsNumeric(.[B9]) Then
      If .[B9] > 0 Then
        .[E4] = .[B9]
        Do While .[E4] > 0
          Application.Wait Now + TimeValue("0:1:0")
          .[E4] = .[E4] - 1
        Loop
      End If
    End If
  End With
End Sub

Daniel

 

[Jacky67]

Bonjour,

J'ai fait le travail pour les minutes.

Daniel

Hello danielco
Que le temps passe vite...

 

[danielco]

Salut Jacky,

Oui, trop vite, malgré les contraintes.

Cordialement.

Daniel

 

[valouf]

Bonjour,

J'ai fait le travail pour les minutes. Recopie la macro et fais de même pour les secondes.

Daniel

MERCI BCP DANIEL