Discussion :

[Tom_2_Rouen]

Bonjour à tous,

Dsl ma quetion va vous parraitre super simple je pense mais cela fait des heures et des heures que je cherche en vain une solution.
Voici mon problème, je chercher à renseigner une date automatiquement à partir du moment ou une cellule est renseignée et figer cette date (qu'elle ne change pas le jour suivant).
Exemple : Si A1 est renseignée, mettre automatiquement la date du jour et la figer cette date en B1.
Valable pour toute la colonne B

Cela doit vous paraitre tres simple mais si je demande de l'aide c'est que je ne trouve aucune solution et mon aide VBA ne fonctionne pas

Merci par avance pour votre aide précieuse.

[unparia]

Bonjour
Utilise donc l'évènement WorkSheet_Change ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Si A1 <> "" alors
---- si B1 = "" alors
------- mettre la date du jour dans B1
---- fin si
fin si

Désolé de te répondre par un algo, mais ta question est vraiment trop simple et cet algo est suffisant.

[Menhir]

Exemple : Si A1 est renseignée, mettre automatiquement la date du jour et la figer cette date en B1.
Valable pour toute la colonne B

Tu sélectionnes la cellule où tu dois placer la date et tu fais Ctrl+";".

Perso, il me semble disproportionné de créer une macro juste pour remplacer une action qui prend une demi-seconde.
Mais si tu y tiens et puisque c'est plus compliqué à expliquer qu'à faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target as Range) 
    If Target.Column = 1 Then Target.Offset(0, 1).Value = Now()
End Sub

[Tom_2_Rouen]

Super ! Merci a tous pour votre précieuse aide.

[joe.levrai]

Bonjour,

si c'est uniquement la date du jour, il faut utiliser la fonction Date (équivalent de la fonction Excel AUJOURDHUI())
si il faut également présenter l'heure/minutes/secondes, c'est bien la fonction Now() (équivalent de la fonction Excel MAINTENANT())

[unparia]

Bonjour
Attention à l'utilisation d'une formule :

et la figer cette date en B1