DATES

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

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

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.

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.

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

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

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

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