Signaler

Supprimer céllules [Résolu]

Posez votre question litchoutsou 9Messages postés samedi 10 juin 2017Date d'inscription 14 juin 2017 Dernière intervention - Dernière réponse le 11 juin 2017 à 08:04 par litchoutsou
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 
Utile
+1
plus moins
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.
Donnez votre avis
Utile
+0
plus moins
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


Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !