Heure saisie automatiquement mais fixe

PascalXLD

XLDnaute Barbatruc

Modérateur

• 9 Mai 2008

• #2

Re : Heure saisie automatiquement mais fixe

Bonjour

tu vas être obligé de passer par une macro evenementielle pour cela

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Mai 2008

• #3

Re : Heure saisie automatiquement mais fixe

Bonjour,

Pour saisie en colonne 1, jour et heure en colonne 2

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    Target.Offset(0, 1) = Now
  End If
End Sub

JB

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 9 Mai 2008

• #4

Re : Heure saisie automatiquement mais fixe

Bonjour,

En faisant une recherche avancée, tu trouveras diverses solutions de saisie ou pour automatiser, de macros, comme le dit Pascal.

Sinon deux astuces mais pas dans des formules malheureusement :

Pour la date : Ctrl + ; (c'est à dire faire Ctrl et en même temps le signe ; )

Pour l'heure : Ctrl + : (c'est à dire faire Ctrl et en même temps le signe : )

format personnalisé : jj/mm/aa hh:mm

Bon courage.

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 9 Mai 2008

• #5

Re : Heure saisie automatiquement mais fixe

Bonjour Malgou, Pascal, JB

Une solution par formule est envisageable, mais il est préférable d'utiliser un code VBA.

@+Jean-Marie

PS : Bonjour à Brigitte

 

Vote positif 0 Vote négatif

M

malgou

XLDnaute Nouveau

• 9 Mai 2008

• #6

Re : Heure saisie automatiquement mais fixe

Salut JB,

Je suis un peu novice donc peux-tu m'en dire plus sur ton procédé ?

Merci

Malgou

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Mai 2008

• #7

Re : Heure saisie automatiquement mais fixe

>Je suis un peu novice donc peux-tu m'en dire plus sur ton procédé ?


Voir PJ

-Clic-droit nom d'onglet
-Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub

JB

 

Pièces jointes

• Classeur1.xls

  22.5 KB · Affichages: 128
• Classeur1.xls

  22.5 KB · Affichages: 132
• Classeur1.xls

  22.5 KB · Affichages: 136

Vote positif 0 Vote négatif