Supprimer céllules

Résolu
litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   -  
litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, Dans une Macro J'ai cette formule

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

Exemple en colonne E j'ai une date sortie et dans la colonne D une date rentré , lorsque je rentre une date , la date sortie s'efface et vis et versa. Dans la colonne C j'ai des Noms serait-il possible de garder cette formule et de la modifier
pour que en mettant une date sortie en D la cellule en E et en C s'éfface

2 réponses

Réponse 1 / 2
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonsoir litchousou

Complète ainsi cette partie de la macro :
ElseIf Not Intersect(Target, [D2:D999]) Is Nothing Then
If IsDate(Target.Value) Then Target.Offset(0, 1).ClearContents : Target.Offset(0, -1).ClearContents

Cdlmnt
Via


0
Réponse 2 / 2
litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci Via55 je suis un novice, et je dois faire une erreur quelque part. Pourrais tu me l'écrire en entier, car j'ai essayé de la compléter et ça une fonctionne pas.
Déjà merci de ton aide.
0