Format heure

Bonjour à tous,

J'aurais besoin de votre aide concernant une amélioration de mon problème : je souhaite toujours que lorsque je tape 700 cela s'affiche automatiquement 7:00 mais dans une seule cellule de ma feuille.

J'ai essayé le code suivant qui ne marche pas :

Private Sub Worksheet_Change(ByVal Target As Range) 
Application.EnableEvents = False 
If Target.Cell = B18 Then 
Target = TimeSerial(Left(Target, Len(Target) - 2), Right(Target, 2), 0) 
End If 
Application.EnableEvents = True 
End Sub

Merci par avance pour vaotre aide

Caro

Bonjour,

Une erreur dans le code de ta macro --> vois ma réponse en rouge dans ce fil le Mer Fév 06, 2008 à 6:39 pm

Amicalement

Dan

Edition : Mets aussi ta cellule B18 au format 00:00 dans FORMAT / CELLULE / HEURE

Merci pour ta réponse, ça marche mais seulement pour une cellule. J'en voudrais deux.

J'ai essayé ceci mais ça pose problème au niveau de la ligne 3 :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target = Range("B18", "B19") Then
Target = TimeSerial(Left(Target, Len(Target) - 2), Right(Target, 2), 0)
End If
Application.EnableEvents = True
End Sub

Amicalement

Caro

Re,

Remplace

If Target = Range("B18", "B19") Then 

par

If Target = Range("B18") Or Target = Range("B19") Then

Amicalement

Dan

Merci beaucoup, tout marche super bien.

Encore mille mercis

Amicalement

Caro