Dater les cellules?

[mugen03]

Bonjour tout le monde,

je voudrais savoir si c'est possible de dater une cellule sur excel et que la date n'apparaisse pas de fasson a que quand j'écris une heure je n'ai pas besoin de tout le temps ecrire la date..

merci de me répondre,

 

[mugen03]

Re : Dater les cellules?

dsl de dire " je voudrais " mais c'est parceque sa fait vraiment lgt que je cherche

 

[Jocelyn]

Re : Dater les cellules?

Bonjour le Forum,
Bonjour mugen03,

En fichier joint un essai VBA (heu le VBA pour faire rire les vrai VBiste) si tu tapes une valeur numéric en colonne B la cellule de la même ligne en colonne A prend la date du jour

Jocelyn

 

[mugen03]

Re : Dater les cellules?

bonjour jocelyn,

merci de m'avoir répondu,

je vais mettre un exemple excel pour que on puisse mieux comprendre se que je veux faire.

dans se fichier, pour calculer les heure il fo marker dans

exemple:
start drive 1 stop drive 1
01.01.08 12:00 01.01.08 17:00

et sa me permet de calculer les heure, mais se que je voudrais c'est de dater les cellule sans que sa se vois sur l'écran dans le fichier excel, pour que j'ai a marker seulement les heures,

exemple
start drive 1 stop drive 1
12:00 17:00

merci d'avance

 

[Jocelyn]

Re : Dater les cellules?

re,

ce n'est a ma connaissance pas possible désolé (ou pour le moins je ne sai pas faire

Jocelyn

 

[mugen03]

Re : Dater les cellules?

Merci comme meme

mais je vais laisser un autre fichier excel parceque on dirai que l'encien ne marche pas, pour seux qui savent si c'est possible.

bonne journée a tous.

 

[mugen03]

Re : Dater les cellules?

si quelqu'un pourrai me dire si c'est possible sa serai très gentil.

 

[mugen03]

Re : Dater les cellules?

??????????????????????????'

 

[Guest]

Re : Dater les cellules?

Bonjour voici une solution

 

[mugen03]

Re : Dater les cellules?

merci mais je vois pas se que tu ma répondu

 

[Guest]

Re : Dater les cellules?

Bonjour,

Dans le module de la feuille Feuil1 j'ai rajouté ceci

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B17:I23")) Is Nothing Then
    If InStr(Target.Text, "/") > 0 Then
        Application.EnableEvents = False
        Target.Value = CDate(Date & " " & TimeSerial(Hour(Target), Minute(Target), Second(Target)))
        Application.EnableEvents = True
    End If
 End If
End Sub

Tape une heure (11:23) dans une cellule de la plage B17:I23 et elle affiche l'heure avec ton format personnalisé (11/23) et tu verras que dans la barre de formule la cellule contient aussi la date du jour.

si c'est une autre date que tu veux, dis le.

A+

 

[Guest]

Re : Dater les cellules?

Petit complément

Les formules de totalisation devront ressembler à ceci:

SI(ET(E17>0;E17>D17);TEMPS(HEURE(E17);MINUTE(E17);0)-TEMPS(HEURE(D17);MINUTE(D17);0);"")

A+

 

[Guest]

Re : Dater les cellules?

voici une solution plus simple,

Je n'avais pas remarqué l'erreur de ton format personnalisé avec des guillemets simples au lieu des guillemets doubles. (hh/mm" h";@)


Ce qui provoquait un mauvais affichage.