Existe-t-il une formule qui insére une date automatiquement?
Bonjour,
Je souhaiterais que la date du jour s'affiche automatiquement dans la cellule à côté de celle où j'insère un x et que celle-ci ne change pas lorsque j'insère un y le jour suivant dans la cellule A2 ou lorsque j'ouvre le fichier quelque temps après.
Est-ce possible?
Merci d'avance pour votre aide et meilleures salutations.
Ex:
-----A-------B
1___x_____07.11.2009
2___y_____08.11.2009
Salut le forum
Avec une macro sur ta feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(0, 1) = Date
End If
End SubMytå
Bonjour Sebastiano,
Bonjour Mytå
La formule suivante devrait fonctionner aussi je crois (J'ai testé). Si ce n'est pas correct j'aimerais savoir pourquoi afin que je cesse de l'utiliser.
=SI(A1="x";AUJOURDHUI();TEXTE(B1;"jj/mm/aaaa"))
a tirer vers le bas.
Merci
Bonne journée,
Bonjour,
Merci pour ta formule Myta. =SI(A1="x";AUJOURDHUI();TEXTE(B1;"jj/mm/aaaa"))
Mais lorsque le jour suivant j'ouvre le fichier, la date qui figure dans la case B1 est mise à jour. Elle change. Or je souhaiterais que cette date reste figée au 09/01/2009 et lorsque j'insère un x dans la cellule A2 le jours suivant 10/01/2009 cette opération ne modifie pas la date du jours avant 09/01/2009.
En d'autres termes je souhaiterais réaliser la chose suivante:
_____A________B________
1------x-----------09/01/2009
2------x-----------10/01/2009
Est-il possible d'utiliser un 1 à la place du X pour simplifier la formule?
Si oui quelle formule puis-je utiliser?
Je vous remercie d'avance.
Meilleures salutations.
Bonjour,
As-tu essayé la macro à Mytå elle doit répondre à tes attentes. J'ai surement mal compris les avant et après.
Pour la macro clic droit sur l'onglet et Visualiser le code, tu copies le code dans la page.
Donne des nouvelles,
re le forum
Ne pas mélanger Mytå et Sorcière
La Macro de Mytå modifiée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If UCase(Target) = "X" Then Target.Offset(0, 1) = Date
End If
End SubPlus de Aujourdhui(), qui change à chaque ouverture du fichier comme la formule de Sorcière
Mytå
J'aimerai prolonger cette discussion, histoire de ne pas crée une nouvelle question... Est-il possible sur la base de cette formule de créer une sorte de bouton "date" qui, lorsque l'on clique dessus, met à jour la date.
Exemple, je travaille le 1er, 2 et trois sur un document, avant de l'imprimer, je clique sur le bouton date, j'imprime mon doc avec la date du trois, et si j'ouvre à nouveau mon doc le 7, c'est toujours la date du 3 qui apparait!
Bonjour,
Essaye et dis quoi.
Clic sur A1 et un calendrier s'affiche.
https://www.excel-pratique.com/~files/doc/Calendrier_date.xls
A +
salut le forum
Sur un bouton de la feuille le code (Pas besoin d'un calendrier pour la date du jour)
Private Sub CommandButton1_Click()
Range("A1") = Application.Proper(Format(Date, "DDDD, le dd mmmm yyyy"))
ActiveSheet.PrintOut
End SubLa Cellule A1 recoit la date
Mytå
Mytå a écrit :salut le forum
Sur un bouton de la feuille le code (Pas besoin d'un calendrier pour la date du jour)
Private Sub CommandButton1_Click() Range("A1") = Application.Proper(Format(Date, "DDDD, le dd mmmm yyyy")) ActiveSheet.PrintOut End SubLa Cellule A1 recoit la date
Mytå
Bonjour ,
question toute béte ....
henri a écrit :Bonjour,
Essaye et dis quoi.
Clic sur A1 et un calendrier s'affiche.
https://www.excel-pratique.com/~files/doc/Calendrier_date.xls
A +
Bonjour,
Puis savoir quelle formule il faut faire car c'est un truc qui m'intéresse pour mes devis. Et cela me serait utile. Merci
Ci joint mon exemple pour la date en D 3
Bonjour,
Si j'ai bien compris,clic sur D3
https://www.excel-pratique.com/~files/doc/MPgl9Calendrier_date.xls
A +
oui tu as compris, mais en fait j'ai pas joints mon fichier.
Donc le voilà ...pour me remettre la date en D3, mais ce qui serait surtout interessant, c'est savoir comment tu fais !
https://www.excel-pratique.com/~files/doc/t5tGrEXEMPLE.xls
merci d'avance !
bambynau a écrit :oui tu as compris, mais en fait j'ai pas joints mon fichier.
Donc le voilà ...pour me remettre la date en D3, mais ce qui serait surtout interessant, c'est savoir comment tu fais !
https://www.excel-pratique.com/~files/doc/t5tGrEXEMPLE.xls
merci d'avance !
vi ça serais sympa de comprendre
Bonsoir,
essaie et dis quoi.
Je viens de passer à excele 2007,donc dis moi si tu as bien le fichier.
https://www.excel-pratique.com/~files/doc/oOpBot5tGrEXEMPLE.xls
Pour les explications
ALT + F11 pour accéder au code
Insertion USER FORM -> Controle supplémentaire-> Calendar
le coller dans USER FORM
et mettre le code ci joint.
A +
merci Henri ,
mais
Bonjour,
Le fichier que je propose fonctionne bien.
Que ne comprends tu pas ?
A +
henri a écrit :Pour les explications
ALT + F11 pour accéder au code
Insertion USER FORM -> Controle supplémentaire-> Calendar
le coller dans USER FORM
et mettre le code ci joint.
Mon niveau dans excel n'est pas assez bon, pour que je comprenne de la sorte. Pourrais tu si la chose est possible, être plus précis dans les explication, car je pige rien !
d'avance merci
En ce qui concerne ton fichier joint, je confirme, il fonctionne très bien.
Salut le forum
Petite précision, le Controle Calendrier vient avec l'installation de Access sur le PC.
Mytå
Bonjour Sébastiano,
J'ai un formule identique à celle de Myta, mais avec la formule "MAINTENANT" au lieu de "AUJOURDHUI"
je te joins un fichier avec les deux formules.
Amicalement
Papy Pierrot