DATES

Bonjour,

Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, [B2]) Is Nothing Then Exit Sub
  If IsDate([B2].Value) Then [A2].ClearContents
End Sub

Merci beaucoup mon problème est résolu
MERCI A PATRICE ET A CCM

J'aimerai étendre cette formule au cellules dessous b3, b4 ect

Bonjour,

Pour la plage B2:B999 (à adapter) :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, [B2:B999]) Is Nothing Then Exit Sub
  If IsDate(Target.Value) Then Target.Offset(0, -1).ClearContents
End Sub

je voulais encore te remercier car ça fonctionne très bien, je commence juste a connaître Excel est je suis faciné.
Pourrais tu m'aider, je voudrais faire la même chose pour la cellule A2:A999
je ne métrise pas l'anglais.

j'ai la colonne B qui se nomme Sortie et la colonne A Entré? Vous m'avez donné la solution pour supprimer automatiquement la date entrée en colonne A lorsque je mets une date sortie en B , je voudrais faire la même choses en sens inverse, donc lorsque je rentre une date en A2 la date en B2 disparaisse.

Bonjour,

Pour faire la même chose en sens inverse :
quand tu écrit une date en A ça efface celle en B

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, [A2:A999]) Is Nothing Then Exit Sub
  If IsDate(Target.Value) Then Target.Offset(0, 1).ClearContents
End Sub

Pour combiner les deux :
quand tu écrit une date en A ça efface celle en B et inversement :

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Not Intersect(Target, [B2:B999]) Is Nothing Then
    If IsDate(Target.Value) Then Target.Offset(0, -1).ClearContents
  ElseIf Not Intersect(Target, [A2:A999]) Is Nothing Then
    If IsDate(Target.Value) Then Target.Offset(0, 1).ClearContents
  End If
  Application.EnableEvents = True
End Sub

Cordialement
Patrice

MERCI PATRICE POUR TON AIDE mon problème est résolu