Date auto en B1 quand A1 renseignée
Résolu
Bibi
-
Bibi -
Bibi -
Bonjour,
J'ai un tableau Excel tout simple à 2 colonnes.
J'aimerais rentrer en colonne B une formule qui permette de renseigner la date du jour LORSQUE la colonne A est saisie et que cette date soit ensuite figée.
ex : je renseigne A1 le 02/03/15, alors B1 m'indiquera donc automatiquement cette date, même lorsque je réouvivrai ce tableau plusieurs jours plus tard.
Je renseigne A2 le 18/06/15, alors B2 etc etc
Merci d'avance à ceux qui pourront m'aider (la fonction AUJOURDHUI fait que B s'actualise à la date du jour à chaque fois que j'ouvre le tableau.. et CTRL + ; ne convient pas car cette fonction n'est pas automatique).
Merci!
J'ai un tableau Excel tout simple à 2 colonnes.
J'aimerais rentrer en colonne B une formule qui permette de renseigner la date du jour LORSQUE la colonne A est saisie et que cette date soit ensuite figée.
ex : je renseigne A1 le 02/03/15, alors B1 m'indiquera donc automatiquement cette date, même lorsque je réouvivrai ce tableau plusieurs jours plus tard.
Je renseigne A2 le 18/06/15, alors B2 etc etc
Merci d'avance à ceux qui pourront m'aider (la fonction AUJOURDHUI fait que B s'actualise à la date du jour à chaque fois que j'ouvre le tableau.. et CTRL + ; ne convient pas car cette fonction n'est pas automatique).
Merci!
A voir également:
- Date auto en B1 quand A1 renseignée
- Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? ✓ - Forum Excel
- Trouver une date de naissance gratuit - Forum Webmastering
- Mfg date - Forum PC portable
- Stwsk 3 a1 - Forum Casque et écouteurs
- A1 - Forum Excel
29 réponses
Bonjour,
Et non il va s'actualiser, si tu veux fixer ta date il faut compléter ton code,
en regroupant les posts de la discussion surtout au niveau de la protection, les cellules de la colonne A sont déverrouillées sinon le code plantera.
remplace le code existant par et saisir entre les guillemets ton mot de passe
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Et non il va s'actualiser, si tu veux fixer ta date il faut compléter ton code,
en regroupant les posts de la discussion surtout au niveau de la protection, les cellules de la colonne A sont déverrouillées sinon le code plantera.
remplace le code existant par et saisir entre les guillemets ton mot de passe
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target(1, 2) <> "" Then
Exit Sub
Else
ActiveSheet.Unprotect Password:="mot de passe"
Target(1, 2) = Date
ActiveSheet.Protect Password:="mot de passe"
End If
End If
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Bonjour
Colles ce code dans ta feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(0, 1) = Date
End If
End Sub
Cordialement
Colles ce code dans ta feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(0, 1) = Date
End If
End Sub
Cordialement
Dans le menu affichage (excel 2007 il me semble), à droite, j'ai un onglet macro.
Je clic sur "enregistrer une macro". Je copie colle le code dans la description de la macro. Et ensuite je reviens dans cette macro et je clic sur "exécuter".
C'est bien la marche à suivre? Je ne trouve pas d'onglet "visualiser le code"..
Ensuite, lorsque je clic de nouveau sur la macro, j'ai un message d'erreur : espace pile insuffisant...
Je clic sur "enregistrer une macro". Je copie colle le code dans la description de la macro. Et ensuite je reviens dans cette macro et je clic sur "exécuter".
C'est bien la marche à suivre? Je ne trouve pas d'onglet "visualiser le code"..
Ensuite, lorsque je clic de nouveau sur la macro, j'ai un message d'erreur : espace pile insuffisant...
Bonjour
Private Sub Worksheet_Change(ByVal Target As Range)
Activesheet.unprotect "xxx"
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(0, 1) = Date
End If
Activesheet.protect "xxx"
End Sub
xxx étant le mot de passe à placer entre guillemets
crdlmnt
Private Sub Worksheet_Change(ByVal Target As Range)
Activesheet.unprotect "xxx"
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(0, 1) = Date
End If
Activesheet.protect "xxx"
End Sub
xxx étant le mot de passe à placer entre guillemets
crdlmnt
Je n'y comprends rien, j'ai des message d'erreur différents à chaque essai..
Il n'y a aucune fonction qui permette de faire ça, sans passer par une macro?
Merci d'avance
Il n'y a aucune fonction qui permette de faire ça, sans passer par une macro?
Merci d'avance
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re bonjour
Comme te l'as dit Vaucluse que je salue
tu ne t'occupes pas de ta macro
et d'ailleurs elle sert à quoi ta macro?
1°) clic droit sur le nom d'onglet de ta feuille / sélectionnez "visualiser le code" et coller le code que je t'aies donné
Crdlt
Comme te l'as dit Vaucluse que je salue
tu ne t'occupes pas de ta macro
et d'ailleurs elle sert à quoi ta macro?
1°) clic droit sur le nom d'onglet de ta feuille / sélectionnez "visualiser le code" et coller le code que je t'aies donné
Crdlt
ci-dessous un exemple
tu cliques sur le nom de la feuille ESSAI_DATE et là tu vas voir visualiser le code.
Code que tu copies et que tu colles dans ta feuille
https://www.cjoint.com/c/EGDl1RpH1gy
Cordialement
tu cliques sur le nom de la feuille ESSAI_DATE et là tu vas voir visualiser le code.
Code que tu copies et que tu colles dans ta feuille
https://www.cjoint.com/c/EGDl1RpH1gy
Cordialement
Wow, ok, je pensais que c'était un code pour une macro... désolé pour mes questions débiles, mais je suis vraiment un novice!
En tout cas ça fonctionne parfaitement, je vous remercie mille fois, ça va me rendre un grand service!
Cordialement
En tout cas ça fonctionne parfaitement, je vous remercie mille fois, ça va me rendre un grand service!
Cordialement
Aie, j'ai une autre question svp.
Je ne l'avais pas précisé, mais je veux protéger ma feuille pour que les autres utilisateurs ne puissent pas cliquer sur la colonne B et donc ne pas modifier la date manuellement.
Lorsque je fais ça (protéger ma feuille), et que je remplis ma colonne A, le message suivant apparaît : "erreur définie par l'application ou l'objet".
Une idée?
Merci encore d'avance
Je ne l'avais pas précisé, mais je veux protéger ma feuille pour que les autres utilisateurs ne puissent pas cliquer sur la colonne B et donc ne pas modifier la date manuellement.
Lorsque je fais ça (protéger ma feuille), et que je remplis ma colonne A, le message suivant apparaît : "erreur définie par l'application ou l'objet".
Une idée?
Merci encore d'avance
Si, je souhaite verouiller et masquer les cellules en B et les protèger par un mot de passe, pour que moi seul puisse modifier les données.
Merci
Merci
Alors simplement
Activesheet.unprotect "mot de passe"
et bien sur
Activesheet.protect "mot de passe"
1°) votre mot de passe derrière les codes et entre guillemets
2°) si vous mettez un mot de passe, ne l'oubliez pas
3°) pour être complet il faut aussi protéger VBA pour que la lecture du libellé ne soit pas possible:
ouvrir VBA / Barre d'outil / Onglet outil / Propriètés de >VBA.. / et protection
crdlmnt
Activesheet.unprotect "mot de passe"
et bien sur
Activesheet.protect "mot de passe"
1°) votre mot de passe derrière les codes et entre guillemets
2°) si vous mettez un mot de passe, ne l'oubliez pas
3°) pour être complet il faut aussi protéger VBA pour que la lecture du libellé ne soit pas possible:
ouvrir VBA / Barre d'outil / Onglet outil / Propriètés de >VBA.. / et protection
crdlmnt
Désolé pour cette réponse tardive mais je n'avais plus accès à mon pc.
J'ai essayé ta solution Vaucluse mais ça ne donne rien..
En tant que noob, je ne sais pas si j'ai bien fait les choses, mais en tout cas je n'ai rien obtenu.. en rajoutant, Activesheet.unprotect etc etc, la date ne s'inscrit plus..
J'ai essayé ta solution Vaucluse mais ça ne donne rien..
En tant que noob, je ne sais pas si j'ai bien fait les choses, mais en tout cas je n'ai rien obtenu.. en rajoutant, Activesheet.unprotect etc etc, la date ne s'inscrit plus..
En essayant de nouveau, j'ai obtenu le message : "erreur de compilation : instruction incorrecte à l'extérieur d'une procédure" ..
Merci encore de votre aide, je suis complètement perdu..
Merci encore de votre aide, je suis complètement perdu..
Impeccable Vaucluse, ça fonctionne parfaitement!
Je vous remercie beaucoup pour votre aide et votre efficacité!
Bonne continuation,
Cordialement.
Je vous remercie beaucoup pour votre aide et votre efficacité!
Bonne continuation,
Cordialement.
Une dernière question toutefois svp.
Si je remplis A1 aujourd'hui (30 juillet 2015), la date du jour est donc renseignée en B1 (30/07/15).
Parfait.
Mais si je modifie A1 dans un mois, B1 va-t-il s'actualiser et devenir 30/08/15 ou restera-t-il au 30/07/15 (ce que je souhaite)?
Merci
Si je remplis A1 aujourd'hui (30 juillet 2015), la date du jour est donc renseignée en B1 (30/07/15).
Parfait.
Mais si je modifie A1 dans un mois, B1 va-t-il s'actualiser et devenir 30/08/15 ou restera-t-il au 30/07/15 (ce que je souhaite)?
Merci
Merci beaucoup Mike-31, ton code fonctionne également, en espérant que la date en B soit irremplaçable maintenant!
Re,
si tu as collé ce code et modifié le mot de passe de protection, la date en B ne s'imprimera que si tu saisis une donnée en A et si la cellule contigue en B est vide, tu peux faire des essais
je remets le code avec la dernière modif
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target = "" Or Target(1, 2) <> "" Then
Exit Sub
Else
ActiveSheet.Unprotect Password:="mot de passe"
Target(1, 2) = Date
ActiveSheet.Protect Password:="mot de passe"
End If
End If
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
si tu as collé ce code et modifié le mot de passe de protection, la date en B ne s'imprimera que si tu saisis une donnée en A et si la cellule contigue en B est vide, tu peux faire des essais
je remets le code avec la dernière modif
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target = "" Or Target(1, 2) <> "" Then
Exit Sub
Else
ActiveSheet.Unprotect Password:="mot de passe"
Target(1, 2) = Date
ActiveSheet.Protect Password:="mot de passe"
End If
End If
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
J'ai une autre question svp.
J'aimerais pouvoir copier coller ce tableau dans un autre, vierge mais au même format. En effet, j'aimerais que mon premier tableau me donne les données pour une année (soit 365 données) puis copier coller ces données dans un nouveau tableau qui me donnera les données pour 2 ans (730 données)etc etc.
Copier les données en colonne A ne pose aucun problème mais excel m'indique alors : erreur d'exécution "13" : incompatibilité de type, puisque les données en B sont vérouillées en donc impossible à copier coller.
Y a-t-il une solution ou est ce que j'en demande trop?
Merci
J'aimerais pouvoir copier coller ce tableau dans un autre, vierge mais au même format. En effet, j'aimerais que mon premier tableau me donne les données pour une année (soit 365 données) puis copier coller ces données dans un nouveau tableau qui me donnera les données pour 2 ans (730 données)etc etc.
Copier les données en colonne A ne pose aucun problème mais excel m'indique alors : erreur d'exécution "13" : incompatibilité de type, puisque les données en B sont vérouillées en donc impossible à copier coller.
Y a-t-il une solution ou est ce que j'en demande trop?
Merci
If Target(1, 2) <> "" Then
par