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

[Guy Bl]

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

 

[GALOUGALOU]

bonsoir guy BI
une proposition qui fonctionne sur mon ordi

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]

Bonsoir le fil

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

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]

Bonsoir le fil

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

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