High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

[Excel] comment indiquer une date de saisie ?

Dernière réponse le 14 nov 2007 à 21:36:20 Ber, le 30 mar 2006 à 11:51:11 
 Signaler ce message aux modérateurs

Bonjour à tous,

Je voulais savoir si quelqu'un connaissait une fonction d'excel ou une macro permettant d'afficher dans une cellule la date de saisie d'un nombre ou texte d'une autre cellule ?

Meilleures réponses pour « [Excel] comment indiquer une date de saisie ? » dans :
Travailler sur les dates avec Excel VoirVous avez une date en C3 par exemple, et vous voulez connaitre : le N° de la semaine correspondant à cette date : = NO.SEMAINE(C3;2) Nota : 2 correspond à un système de semaines commençant le Lundi, et 1 pour le Dimanche. ...
Liste déroulante avec saisie semi automatique pour EXCEL VoirC'est une procédure qui demande un investissement personnel et qui n'est pas nécessairement facile à comprendre et à réaliser dès la première fois. Afin de rendre cette astuce facile à utiliser, nous allons employer les plages et les formules...
Fonctions date et heure Voir
VBScript - Les fonctions de date et de temps VoirLes fonctions de date et de temps Fonction Description Date Retourne la date du système DateAdd(interval, number, date) Ajoute un intervalle de temps (interval) à une...
Posez votre question Répondre

1

Armojax, le 30 mar 2006 à 14:01:38

Bonjour Ber,

Tu peux activer dans Excel le suivi des modifications :
Outils/Suivi des modifications/Afficher les modifications...
Les cellules modifiées sont assorties d'un commentaire comportant l'auteur, la date, l'heure de la modification, avec valeur avant et valeur après.

   
Répondre à Armojax

2

Ber, le 30 mar 2006 à 15:46:20

Merci pour cette réponse, mais le problème c'est que j'ai besoin d'insrire les dates dans des cellules pour pouvoir les retraiter derrrière.
A l'heure actuelle le seul moyen que j'ai trouvé c'est de créer une macro a executer à chaque mise à jour et qui inscrit la date dans la cellule à coté de celle modifiée mais je voudrais que ce soit instantaner et ne pas devoir appuyer sur une touche.

   
Répondre à Ber

3

Sergio63, le 30 mar 2006 à 16:14:49
  • +4

Bonjour,

Est-ce que ces quelques lignes de code répondent à ton problème ?

Private Sub Worksheet_Change(ByVal Target As Range)
' Affiche la date en colonne 2 lorsque la colonne 1 est modifiée

If Target.Column = 1 Then
Cells(Target.Row, 2).Value = Now
End If

End Sub

(A copier dans la feuille concernée et éventuellement adapter !)

Cordialement

Sergio

   
Répondre à Sergio63

4

Ber, le 31 mar 2006 à 13:12:58

Merci
C'est nickel

J'ai juste galérer parce que au debut je l'avais copier dans le modele

   
Répondre à Ber

5

BIG_OUF, le 20 jun 2007 à 13:51:00

Bonjour,
Cet article est fort interessant, car je cherche un système proche de celui-là.
En effet, j'aimerai ajouter un commentaire dans une cellule dont la couleur de fond aurait changé (dans une plage B1 - A108).
Seulement, je n'arrive pas à adapter le code comme il le faudrait ... Sauriez-vous m'aider? :)

Merci d'avane

   
Répondre à BIG_OUF

6

Sergio63, le 25 jun 2007 à 11:33:34

Bonjour,

Peux-tu me dire qui est à l'origine du changement de couleur ?

Si c'est l'utilisateur, ce doit être possible. Par contre si c'est une macro ou bien la mise en forme conditionnelle je vois pas trop comment faire.

cordialement

Sergio

   
Répondre à Sergio63

7

BIG_OUF, le 25 jun 2007 à 13:50:42

Non, c'est l'utilisateur qui modifie (copier/coller de cellule déjà colorées).
En gros, il s'agit d'un Excel avec les dates de congés de chacun, et ca permettrait de savoir de quand date la dernière modification (en cas de littiges de congés posés le même jour).
Merci d'avance :)

   
Répondre à BIG_OUF

9

Sergio63, le 26 jun 2007 à 13:58:34

Bonjour,

Voila 2 macros (à copier dans la feuille concernée) qui doivent en principe répondre à ton problème :

Dim V_ColorCell As Long ' Variable pour mémoriser le code couleur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Mémorisation de la couleur lors de la sélection de la celleule

V_ColorCell = ActiveCell.Interior.Color

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
' Comparaison après modification

If Target.Interior.Color <> V_ColorCell Then
Target.AddComment "Cellule modifiée le " + CStr(Date)
End If

End Sub

Attention : Cela ne marche que dans le cas d'un copier/coller car l'événement "Worksheet_Change" n'est pas déclanché si on ne modifie que la couleur de fond de la cellule. Dans ce cas je ne sais pas faire.

Cordialement

Sergio

   
Répondre à Sergio63

8

Vivi, le 25 jun 2007 à 15:44:01

Bonjour,

J'ai besoin d'utiliser cette macro moi aussi.
Par contre le souci est que dans ma feuille excel, j'ai besoin par la suite de supprimer des lignes.
Par conséquent, j'attends demain que la date du jour ait changé mais ... je suppose que du coup en suppriment un ligne, les lignes du dessous vont se mettre automatiquement à la date du jour ... donc je perds les infos ...

Quelqu'un a t-il une piste à me proposer ? ?

Merci d'avance

   
Répondre à Vivi

10

Sergio63, le 26 jun 2007 à 15:09:56

Bonjour,

Je viens en effet de constater que lorsque on supprime une ligne, Excel considère que la cellule modifiée appartient à la colonne 1 et cela quelle que soit la position du curseur !

Avec l'exemple que j'ai proposé lorsque on supprime une ligne, la date de la ligne qui suit est donc modifiée à tort (uniquement la ligne qui suit et pas toutes les lignes en dessous).

Par contre si j'inverse les colonnes : saisie en col 2 et affichage date en col 1, plus de problème.

Je sais, ce n'est pas une vraiment une solution mais plutôt un contournement du problème mais je ne vois pas comment faire autrement.

Cordialement

Sergio

   
Répondre à Sergio63

11

Vivi, le 26 jun 2007 à 19:13:58

Merci pour ces réponses
En fait j'ai fait le constat sur mon fichier d'essai et en effet ca change juste la premiere ligne...
Par contre sur mon fichier de travail, ca ne le fait pas ! mais les colonnes concernées sur les colonnes 5 et 6 ... par exemple
Donc je suis entièrement satisfaite ;-)
meme si je ne sais pas pourquoi ce mystère ... lol

Merci encore

   
Répondre à Vivi

12

 TheClerk, le 14 nov 2007 à 21:36:20

Bonjour,

Si je veux utiliser cette méthode:

****
Private Sub Worksheet_Change(ByVal Target As Range)
' Affiche la date en colonne 2 lorsque la colonne 1 est modifiée

If Target.Column = 1 Then
Cells(Target.Row, 2).Value = Now
End If

End Sub
*****

J'inscris quoi dans un Excel en français???

Merci

   
Répondre à TheClerk
Posez votre question Répondre
Ils ont besoin de votre aide