Tom's Guide > Forum > Logiciels > Bureautique et utilitaires > Saisie de date automatique sur excel

Saisie de date automatique sur excel

Forum Logiciels : Bureautique et utilitaires - Saisie de date automatique sur excel

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

Bonjour à tous,
J'ai besoin d'un petit coup de pouce sur excel. J'aimerais que lorsque je clique sur une case de mon tableau pour écrire quelque chose, il m'ajoute automatiquement la date du jour en début de saisie. Un petit exemple pour que je me fasse mieux comprendre :
je clique sur une case qui appartient à la colonne en question, j'écris "pas de réponse à mon appel". Excel tape automatiquement dans la case : "01/09/2009 : pas de réponse à mon appel".

Ceci dans le but d'organiser un fichier de prospection téléphonique. Je sais, vous allez me dire qu'il y a des logiciels de CRM pour ca ! mais je pense que c'est possible sur excel.

Merci de votre aide !

Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.

salut,

comme ça la tout de suite dans la même case, je ne sais pas si c'est possible. Par contre si tu crée une case avant ou après tu peux faire un truc du genre :

mets ce code en A1

Code :
  1. =SI(B1="";"";AUJOURDHUI())



cela te donnera une colonne avec les dates et la colonne d'apres le texte que tu as rentré : "Une réponse", "Pas de réponse"...

Répondre à kakashi99

OK merci kakashi99, je vais voir s'il y a quelque chose à faire avec cette formule. Peut etre que le terme "d'horodatage" est un mot clef qui évoquera quelque chose à quelqu'un ! car c'est le nom exact de la fonction que je recherche.

Merci

Répondre à remss2

Salut, Remss2

En adaptant cette astuce, j'ai réussi à pondre ce code VBA:

Code :
  1. Dim vbChangement As Boolean
  2. Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  3.     If Target.Column = 1 And vbChangement = False Then
  4.         vbChangement = True
  5.         If Len(Target) <> 0 Then
  6.             Target = Format(Now, "dd/mm/yyyy hh:nn" ) & " : " & Target
  7.         End If
  8.         vbChangement = False
  9.     End If
  10. End Sub


Le code doit être placé dans le module de la feuille sur laquelle tu effectue ta saisie.
Cela n'affecte que les saisies effectuées sur la première colonne. Si tu veux restreindre à une autre colonne, change la valeur sur la quatrième ligne.
Par ailleurs, mon code insère l'heure en plus de la date (02/09/2009 13:00), tu peux modifier cela en changeant le format ligne 7 ("dd/mm/yyyy hh:nn" => "dd/mm/yyyy" ).

Bonne continuation

Répondre à gillou_gre

ça n'engage que moi de dire ça, mais c'est pas franchement une bonne idée de mettre la date dans la meme cellule que le commentaire. du coup le ocntenu de la cellule devient parfaitement inexploitable pour tout ce qui est tris, filtres etc, et donc implicitement stats, rapports.

la solution de kakashi99, plus simple à mettre en place, est aussi techniquement la plus intérréssante, une case au format date contenant la date, et une case au format texte contenant le texte.

------------------------------ Rock me dr Zaius ! [:gambit:5] Toys are cool ! [:gambit:5]
Répondre à gambit
Tom's Guide > Forum > Logiciels > Bureautique et utilitaires > Saisie de date automatique sur excel
Aller à :

Il y a 239 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Liens