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 -
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
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
-
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
-
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.
