DATES

Résolu
LITCHOUTSOU -  
 LITCHOUTSOU -
Bonjour à tous voici mon problème , sur Excel en A2 j'ai une date entrée et en B2 une date sortie, si c'est possible j'aimerai que lorsque je rentre un date en b2 , celle qui ce trouve en a2 soit supprimer automatiquement .
MERCI DE VOTRE AIDE

8 réponses

Réponse 1 / 8
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
Réponse 2 / 8
LITCHOUTSOU
 
Merci beaucoup mon problème est résolu
MERCI A PATRICE ET A CCM
0
Réponse 3 / 8
LITCHOUTSOU
 
J'aimerai étendre cette formule au cellules dessous b3, b4 ect
0
Réponse 4 / 8
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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

0
LITCHOUTSOU
 
Merci Patrice
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
LITCHOUTSOU
 
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.
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

C'est pas très clair :
1) « si c'est possible j'aimerai que lorsque je rentre un date en b2 , celle qui ce trouve en a2 soit supprimer automatiquement » : ça c'est Ok
2) « je voudrais faire la même chose pour la cellule A2:A999 » : où se trouverait le cellule à effacer ???
0
Réponse 6 / 8
LITCHOUTSOU
 
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.
0
Réponse 7 / 8
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
Réponse 8 / 8
LITCHOUTSOU
 
MERCI PATRICE POUR TON AIDE mon problème est résolu
0

Discussions similaires

Reconnaissance de la date
Bestcloever -
Bestcloever -

4 réponses
nombre de nuits entre deux dates
Elowine -
Elowine -

8 réponses
somme.si.ens critere entre deux dates
texas4229 -
Ariel7 -

11 réponses
Fonction si entre 2 dates
Joe35 -
Cellequitaime -

3 réponses
Nombre de nuit pour Hotel
Jamryl -
Jamryl -

14 réponses