Insertion date sur Excel

Résolu/Fermé
ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017 - Modifié par kaneagle le 24/02/2017 à 15:30
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 5 mars 2017 à 20:04
Bonjour,

J'ai un tableau sur lequel je fais un suivi de mes colis expédiés.
Je souhaiterais trouver une solution pour que dès que je rentre mon numéro de colis en B5, la date de saisie de cette cellule se mette en C5.
J'avais réussi avec une formule, mais la date n'était pas figée, elle changeait tous les jours, donc pas intéressant pour moi.

Quelqu'un aurait une solution pour moi, svp ?

Merci d'avance !!

Je suis sur Excel 2010
A voir également:

3 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
24 févr. 2017 à 15:39
Bonjour,

en vba, se mettre sur la feuille concernée, faire Alt F11 et mettre ce code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
ActiveCell.Offset(0, 1).Value = Now
End If
End Sub

2
ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017
28 févr. 2017 à 09:46
Bonjour, j'ai mis votre code ça marche mais le soucis c'est que ce n'est pas le fait d'entrer une valeur qui renseigne la date mais le simple fait de cliquer sur la cellule en B. Est ce possible de mettre comme condition de renseigner une valeur??

Merci d'avance!!
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017
28 févr. 2017 à 10:32
Pas de problème, on va le faire déclencher au double clic comme ceci:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value = "" Then Exit Sub
ActiveCell.Offset(0, 1).Value = Now
End If
End Sub

0
ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
2 mars 2017 à 18:06
Bonjour,
Je pense que la ligne 7 est en trop car ca ne fait apparaître la date que si je double clic dans une cellule renseignée. Ensuite le double clic ne me plaît pas, ce n'est pas possible de faire apparaître cette date au moment où je rentre une valeur dans la cellule??
En tout cas merci pour ces réponses!!!
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017
2 mars 2017 à 18:12
Voici a la sélection si la cellule est renseignée:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value = "" Then Exit Sub 'si cellule vide on sort
ActiveCell.Offset(0, 1).Value = Now
End If
End Sub
0
ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
5 mars 2017 à 15:28
Bonjour, je reviens vers toi pour un autre besoin.
Maintenant que j'ai mes dates de création de colis je voudrais dans une autre feuille faire le total de mes colis expédié pour chaque mois en fonction de plusieurs critère (ces critères sont mes différentes colones du 1er tableau) par exemple l'urgence (faible, moyenne ou haute). Je ne sais pas si c'est clair mais en gros je veux avoir mon nombre de colis expédié en janvier avec l'urgence faible.

J'avais réussi avec une formule mais je ne savais pas comment prendre en compte la variable "date de création".

Merci d'avance
0
ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017
25 févr. 2017 à 09:26
Ok merci je test ca au boulot lundi!!
0
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096
2 mars 2017 à 18:20
Bonjour.

Tu entres ton N° en B5, et en C5 tu fais [ ctrl+; ]
C'est ultra-rapide, même si ce n'est pas automatique ...
0
ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017
4 mars 2017 à 15:16
Salut Raymond, avec ta méthode la date ne se mettra pas à jour tous les jours??
0
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096 > ggmis Messages postés 7 Date d'inscription vendredi 9 octobre 2015 Statut Membre Dernière intervention 5 mars 2017
5 mars 2017 à 02:31
Jette un œil dans l'Aide d'Excel.
Regarde dans le chapitre Raccourcis claviers / Avec ctrl
0