Sujet Précédent Sujet Suivant

Supprimer céllules

Résolu/Fermé
litchoutsou Messages postés 86 Date d'inscription samedi 10 juin 2017 Statut Membre Dernière intervention 19 février 2024 - 10 juin 2017 à 19:34
litchoutsou Messages postés 86 Date d'inscription samedi 10 juin 2017 Statut Membre Dernière intervention 19 février 2024 - 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

2 réponses

Réponse 1 / 2
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 740
10 juin 2017 à 20:11
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 samedi 10 juin 2017 Statut Membre Dernière intervention 19 février 2024 1
11 juin 2017 à 08:04
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