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
A voir également:
- Supprimer céllules
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer liste déroulante excel - Guide
- Verrouiller des cellules excel - Guide
- Supprimer hiberfil.sys - Guide
