Bouton heure

[TIM]

Bonjour

J'ai une feuille ds laquelle il y a un CommandButton1
Qd je clique dessus je voudrais que ca m affiche en A1 l'heure actuelle du style [A1] = Time()
MAIS JE NE VEUX PAS QUE CA ME PRENNE EN COMPTE LES SECONDES !!!

Je voudrais que ca me mette l heure comme avec le raccourci clavier 'Ctrl' + ':'

Comment faire???

 

[Balthazar IV]

Utilise la fonction maintenant() puis un fomat cellule heure xx:xx

Ce qui donne en VBA

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02/05/2005 par Robin
'

'
ActiveCell.FormulaR1C1 = '=NOW()'
Selection.NumberFormat = 'h:mm'
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
End Sub

 

[TIM]

Re Balthazar IV

Merci de ta reponse mais en fait ce n'est pas ce que je désire...
Avec ta méthode, certes l'affiche est sans les secondes, mais la valeur de la cellule prend en compte les secondes...

Je voudrais que la valeur de la cellule ne prenne en compte que les heures et minutes, c a d que cette valeur soit le multiple de 0.000694444 (qui est la valeur en format standard de la minute) au rang inférieur de la valeur de Time()

J'ai peut etre un peu embrouillé les choses la , non? 😛inch: :whistle: :side: 😛

Enfin, je te renouvelle mes remerciement Balthazar pour t'etre penché sur mon probleme...

Avis aux amateurs... 🙂

 

[Ti_]

Dans ce cas passe par la fonction TimeSerial ainsi :

Dim D as Date
D = Now
D = TimeSerial(Hour(D), Minute(D), 0)
Activesheet.Range('A1') = D

 

[Manche50]

bonjour

Va dans Format >Cellule >Personnalisé puis dans le menu deroulant choisi hh:mm:ss dans type du supprime les :ss

@+

 

[TIM]

Re Balt, Re Ti_, Re Manche50,

Ti_, tu es mon sauveur !!! 🙂

En effet ca fait maintenant 3 jours que je ne dormais plus à cause da ça et ta technique marche à la perfection !!! 😛

Manche50, je ne voulais pas que l'affichage soit en hh:mm (car avec ta méthode la valeur de la cellule garde en memoire les secondes mais les enleve seulement à l'afficheage).

Enfin bon, c'est fini et ceci grace à Ti_

Ti_ is the master !!!!

Encore merci

A+