Macro - Ajout ou enlève 1 seconde

phlaurent55

Nous a quittés en 2020

Repose en paix

• 3 Janvier 2010

• #2

Re : Macro - Ajout ou enlève 1 seconde

Bonjour gourdin,

pour ajouter une seconde avec ceci:

Code:

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:

Code:

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
.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Janvier 2010

• #3

Re : Macro - Ajout ou enlève 1 seconde

Bonjour,
Entre autre

Code:

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 3 Janvier 2010

• #4

Re : Macro - Ajout ou enlève 1 seconde

Merci beaucoup à tous,

Je vais faire mon choix.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Janvier 2010

• #5

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+

 

Pièces jointes

• macro1seconde(1).xls

  25.5 KB · Affichages: 38

Vote positif 0 Vote négatif