Recopier avec des dates

Bonjour,

Voilà je cherche une solution pour des cellules au format date.

je m'explique dans la feuille 2 en A2 je rentre une date correspondant à une commande d'une personne ( donc format date)

j'aimerai que la date s'affiche dans la feuille1 en A1si je rentre donc une date, mais surtout que la case reste vide si il n'y a pas eu de commande pour cette personne

j'ai essayer avec SI et ESTVIDE mais je bug LOL

pouvez vous m'éclairer SVP

Merci

Bonjour,

Un fichier à tester

Amicalement

Pierrot

Salut Pierrot

Merci pour ce code qui va me servir pour autre chose, mais dans ce cas précis la date en A2 et A4 de la feuille 2 devrait être recopier en feuille A2 et A4 de la feuille 1 et vide pour la cellule A3 puisque j'ai pas rentrer de date en A3 de la feuille 2

je joins le tableau

bonjour Pierre

j'ai repris ton code pour inséré la date en double cliquant sur 1 cellule n'importe ou sur la feuille

mais que faut t'il changer sur le code pour que ce code ne fonctionne que sur la colonne A ? et éviter des mauvaise manip

Merci

Rebonjour,

Remplace le code par celui-ci dans la feuille de ton choix

Pierrot

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Target.Column = 1 Then     'Colonne A
    Cancel = True

    ActiveCell.FormulaR1C1 = "=TODAY()"
     ActiveCell.Offset(1, 0).Range("A1").Select

End If

End Sub