Macro - Ajout ou enlève 1 seconde

[gourdin]

Bonjour et bonne année !

Une aide pour trouver le code de la macrro qui ajoute ou enleve 1 seconde à un affichage.

Merci

Voir exemple

 

[phlaurent55]

Re : Macro - Ajout ou enlève 1 seconde

Bonjour gourdin,

pour ajouter une seconde avec ceci:

Sub Bouton1_QuandClic()
Cells(4, 3).Value = Cells(4, 3).Value [SIZE=4][COLOR=blue]+[/COLOR][/SIZE] 1 / 86440
End Sub

et pour diminuer avec ceci:

Sub Bouton1_QuandClic()
Cells(4, 3).Value = Cells(4, 3).Value [SIZE=4][COLOR=blue][B]-[/B][/COLOR] [/SIZE]1 / 86440
End Sub

donne quand même des noms différents à tes boutons

à+
Philippe
.

 

[kjin]

Re : Macro - Ajout ou enlève 1 seconde

Bonjour,
Entre autre

Sub MoinsUn()
If [C4] <> 0 Then [C4] = [C4] - TimeValue("00:00:01")
End Sub
Sub PlusUn()
[C4] = [C4] + TimeValue("00:00:01")
End Sub

A+
kjin

 

[gourdin]

Re : Macro - Ajout ou enlève 1 seconde

Merci beaucoup à tous,

Je vais faire mon choix.

 

[job75]

Re : Macro - Ajout ou enlève 1 seconde

Bonjour le fil,

Outre le code des macros, songer à :

- mettre la cellule C4 au format personnalisé [mm]:ss

- utiliser le calendrier depuis 1904 (pour les valeurs négatives) menu Outils-Options-Calcul

A+