XL 2010 Quelle code afin d'effacer la date de la colonne B suite à effacement de la cellule A

Guy Bl · 4 Mars 2020

Bonjour a tous.

Quelle code je dois ajouter dans le code suivant afin d'effacer la date de la colonne B suite à effacement de la cellule A.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(, 1) = Date
End If
End Sub

Merci pour votre aide.
Cordialement
Guy Bl

Staple1600 · 4 Mars 2020

Bonsoir le fil

Un truc (que si j''étais moi, j'éviterai sur un long terme )

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
Target.Offset(, 1) = Date
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 Then
If MsgBox("Effacer la date?", vbYesNo) = vbYes Then
Target.Offset(, -1) = ""
Target = ""
End If
End If
Application.EnableEvents = True
End Sub

Remplacer le code précédent* , par celui-ci
(toujours dans le code de la feuille)
(*: je parle du mien, celui du premier message, puisque ce fut ma réponse dans l'autre fil )

GALOUGALOU · 4 Mars 2020

bonsoir guy BI
une proposition qui fonctionne sur mon ordi

Enrichi (BBcode):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Cells >= 1 Then
Target.Offset(, 1) = Date
End If
End If
If Target.Column = 1 Then
If Target.Cells = "" Then
Target.Offset(, 1) = ""
End If
End If
End Sub

cordialement
galougalou

Staple1600 · 4 Mars 2020

Bonsoir le fil

Un truc (que si j''étais moi, j'éviterai sur un long terme )

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
Target.Offset(, 1) = Date
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 Then
If MsgBox("Effacer la date?", vbYesNo) = vbYes Then
Target.Offset(, -1) = ""
Target = ""
End If
End If
Application.EnableEvents = True
End Sub

Remplacer le code précédent* , par celui-ci
(toujours dans le code de la feuille)
(*: je parle du mien, celui du premier message, puisque ce fut ma réponse dans l'autre fil )

Guy Bl · 4 Mars 2020

Staple1600 à dit:
Bonsoir le fil

Un truc (que si j''étais moi, j'éviterai sur un long terme )

VB:

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 Then Target.Offset(, 1) = Date End If Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 2 Then If MsgBox("Effacer la date?", vbYesNo) = vbYes Then Target.Offset(, -1) = "" Target = "" End If End If Application.EnableEvents = True End Sub

Remplacer le code précédent* , par celui-ci
(toujours dans le code de la feuille)
(*: je parle du mien, celui du premier message, puisque ce fut ma réponse dans l'autre fil )

Bonsoir

Un grand merci à toi.
J'ai opté pour le premier code.
Vous etes trop fort. Moi le VB je sais pas faire et je ne sais pas comment demarrer.

Encore merci

Guy Bl

XL 2010 Quelle code afin d'effacer la date de la colonne B suite à effacement de la cellule A

Guy Bl

XLDnaute Nouveau

Staple1600

GALOUGALOU

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

Guy Bl

XLDnaute Nouveau

Discussions similaires