Affichage de la date si la cellule n'est pas vide

  • Initiateur de la discussion Initiateur de la discussion adidu44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

adidu44

Guest
Bonjour,

j'ai trouvé un code qui quand je clique sur la cellule de la colonne A, la cellule de la colonne C affiche la date.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Target.Offset(0, 1) = "" Then
Target.Offset(0, 2) = Format$(Date, "dd/mm/yy")
End If
End Sub

Mais je trouve que la technique n'est pas super et cela peut changer les dates par la suite si l'on clique dessus.
Mais je n'arrive pas à modifier le code afin que la date s'affiche que lorsque la cellule n'est pas vide, je veux que l'on saisisse quelque chose dedans pour afficher la date.

Merci d'avance

Adidu44

PS: ci-joint un fichier schématisant le
 

Pièces jointes

Re : Affichage de la date si la cellule n'est pas vide

Bonjour à tous,

Peux-tu essayer avec :

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
Cells(Target.Row, 3).Value = Format(Date, "dd mmm yyyy")
End If
End Sub


A + à tous
 
Re : Affichage de la date si la cellule n'est pas vide

Bonjour,
un essai avec ceci peut-être:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Value <> "" And Target.Offset(0, 2) = "" Then
        Target.Offset(0, 2) = Format$(Date, "dd/mm/yy")
    End If
End Sub

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
169
Réponses
2
Affichages
160
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
515
Réponses
6
Affichages
309
Retour