Date automatique dans excel
Résolu
AMISDAL
Messages postés
162
Date d'inscription
Statut
Membre
Dernière intervention
-
AMISDAL Messages postés 162 Date d'inscription Statut Membre Dernière intervention -
AMISDAL Messages postés 162 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Serait il possible dans excel de mettre dans une colonne automatiquement la date du jour lorsque l'on met une croix dans une autre colonne ?
Merci
Serait il possible dans excel de mettre dans une colonne automatiquement la date du jour lorsque l'on met une croix dans une autre colonne ?
Merci
A voir également:
- Date automatique dans excel
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
13 réponses
Bonjour,
Par rapport à l'insertion automatique d'une date, comment faire pour que celle ci ne change pas quand on change de jour ?
Merci
Par rapport à l'insertion automatique d'une date, comment faire pour que celle ci ne change pas quand on change de jour ?
Merci
bonjour,
il faut pour le coup passer par un code vba pour que cette date puisse etre 'figée' (ce que ne peut pas faire une fonction).
A télécharger petit fichier exemple :
http://cjoint.com/data/goqgSe3pu6_insererdate.xls
Si vous n'avez besoin de rien, demandez-moi.
il faut pour le coup passer par un code vba pour que cette date puisse etre 'figée' (ce que ne peut pas faire une fonction).
A télécharger petit fichier exemple :
http://cjoint.com/data/goqgSe3pu6_insererdate.xls
Si vous n'avez besoin de rien, demandez-moi.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Ok ça marche mais... quand j'ai une colonne entière à marquer de cette manière, comment faire la copie de cette donnée
Merci
Ok ça marche mais... quand j'ai une colonne entière à marquer de cette manière, comment faire la copie de cette donnée
Merci
bonjour,
Déjà fait précédemment sur un autre topic par Michel_m (que je salue au passage) et à qui reviennent donc les droits et remerciement...
http://www.cijoint.fr/cj201006/cijMpViEmi.xls
Déjà fait précédemment sur un autre topic par Michel_m (que je salue au passage) et à qui reviennent donc les droits et remerciement...
http://www.cijoint.fr/cj201006/cijMpViEmi.xls
Excusez moi mais je n'ai encore jamais fait de macro et je ne comprends pas vraiment ce qu'il faut faire...
dans votre fichier faire clic-droit sur l'onglet concerné et 'visualiser le code' Cela ouvre l'éditeur Visual Basic sur le module de votre feuille.
Coller le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B1000")) Is Nothing Then Exit Sub
Target.Offset(0, -1) = Now
End Sub
Pour adapter à votre cas :
2°ligne : indique la plage sur laquelle le test doit etre porté (cellules que l'on remplie)
à modifier donc pour votre propre plage : "B2:B1000" par C10:C50 par exemple.
3°ligne :
Offset(0, -1) indique à la macro de sélectionner la case de la colonne d'avant (Offset indique le déplacement et (0, -1) le sens du déplacement en l'occurrence 0 ligne et -1 colonne, donc concrètement la macro se place sur la cellule colonne A de la même ligne que la saisie.
le nom de la macro inclut le nom Worksheet_Change qui signifie qu'elle se déclenche à chaque modification dans la feuille. On peut donc considérer qu'elle est "automatique"
Coller le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B1000")) Is Nothing Then Exit Sub
Target.Offset(0, -1) = Now
End Sub
Pour adapter à votre cas :
2°ligne : indique la plage sur laquelle le test doit etre porté (cellules que l'on remplie)
à modifier donc pour votre propre plage : "B2:B1000" par C10:C50 par exemple.
3°ligne :
Offset(0, -1) indique à la macro de sélectionner la case de la colonne d'avant (Offset indique le déplacement et (0, -1) le sens du déplacement en l'occurrence 0 ligne et -1 colonne, donc concrètement la macro se place sur la cellule colonne A de la même ligne que la saisie.
le nom de la macro inclut le nom Worksheet_Change qui signifie qu'elle se déclenche à chaque modification dans la feuille. On peut donc considérer qu'elle est "automatique"
J'ai pas encore tout compris mais je crois que je vais étudier tout ça la tete reposée je vous tiens au courant de mes avancées !!!
Bonjour,
Ca y est je crois que j'ai compris. Mais maintenant, j'ai plusieurs fois dans la meme feuille la meme demarche à faire, quand je copie la formule en dessous de la première dans visualiser le code, la fonction marche mais à chaque fois il me dit ; Erreur de compilation - Nom ambigu détecté : worksheet_change
Faut-il l'appeler autrement et comment
Merci
Ca y est je crois que j'ai compris. Mais maintenant, j'ai plusieurs fois dans la meme feuille la meme demarche à faire, quand je copie la formule en dessous de la première dans visualiser le code, la fonction marche mais à chaque fois il me dit ; Erreur de compilation - Nom ambigu détecté : worksheet_change
Faut-il l'appeler autrement et comment
Merci
En plus j'ai mis un commentaire et je ne sais pas si vous pouvez le lire comme ça donc je le remets....
ça ne marche pas il m'indique erreur d'execution '1004' - la méthode 'Range' de l'objet '_worksheet' a échoué.
Ensuite il me dit de faire fin ou debogage que faut il faire
ça ne marche pas il m'indique erreur d'execution '1004' - la méthode 'Range' de l'objet '_worksheet' a échoué.
Ensuite il me dit de faire fin ou debogage que faut il faire
Il y a effectivement une erreur dans ce que j'ai écris
Les sélections multiples en VBA s'écrivent avec une virgule et non pas un point virgule : "B1:B50,E2,F3:F25". Cependant dans ce cas cela renvoie malgré tout une erreur. Par contre, ce n'est pas très "propre" mais en annulant l'erreur le code remplis sa fonction....
remplacer donc le code de la feuille par celui-ci (avec bien sur votre propre 'Range' :
Si vous n'avez besoin de rien, demandez-moi.
Les sélections multiples en VBA s'écrivent avec une virgule et non pas un point virgule : "B1:B50,E2,F3:F25". Cependant dans ce cas cela renvoie malgré tout une erreur. Par contre, ce n'est pas très "propre" mais en annulant l'erreur le code remplis sa fonction....
remplacer donc le code de la feuille par celui-ci (avec bien sur votre propre 'Range' :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("B2:B10,F2:F10")) Is Nothing Then Exit Sub
Target.Offset(0, -1) = Now
End Sub
Si vous n'avez besoin de rien, demandez-moi.
