Supprimer céllules [Résolu]

litchoutsou 9 Messages postés samedi 10 juin 2017Date d'inscription 14 juin 2017 Dernière intervention - 10 juin 2017 à 19:34 - Dernière réponse : litchoutsou 9 Messages postés samedi 10 juin 2017Date d'inscription 14 juin 2017 Dernière intervention
- 11 juin 2017 à 08:04
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
Afficher la suite 
9Messages postés samedi 10 juin 2017Date d'inscription 14 juin 2017 Dernière intervention

2 réponses

Répondre au sujet
via55 8787 Messages postés mercredi 16 janvier 2013Date d'inscription 11 décembre 2017 Dernière intervention - 10 juin 2017 à 20:11
0
Utile
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


Commenter la réponse de via55
litchoutsou 9 Messages postés samedi 10 juin 2017Date d'inscription 14 juin 2017 Dernière intervention - 11 juin 2017 à 08:04
0
Utile
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.
Commenter la réponse de litchoutsou