XL 2019 Vider le contenu d'une cellule après saisie

[pat66]

Bonjour le forum,

voilà j'ai besoin d'un peu d'aide pour effectuer l'action suivante, à savoir

Dès que la valeur saisie dans F6 est copié dans Sheets("SAISIE").[Y54], la valeur saisie dans [F6] s'efface automatiquement, la cellule redevient vide

un grand merci
belle journée

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [F6]) Is Nothing Then
If Target <> "" Then Sheets("SAISIE").[Y54] = Sheets("Rev au terme").[F6]
End If
end sub

 

[Jacky67]

Bonjour le forum,

voilà j'ai besoin d'un peu d'aide pour effectuer l'action suivante, à savoir

Dès que la valeur saisie dans F6 est copié dans Sheets("SAISIE").[Y54], la valeur saisie dans [F6] s'efface automatiquement, la cellule redevient vide

un grand merci
belle journée

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [F6]) Is Nothing Then
If Target <> "" Then Sheets("SAISIE").[Y54] = Sheets("Rev au terme").[F6]
End If
end sub

Bonjour,
Comme ceci peut-être

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [F6]) Is Nothing Then
        Application.EnableEvents = False
        If Target <> "" Then Sheets("SAISIE").[Y54] = Sheets("Rev au terme").[F6]: Target = ""
        Application.EnableEvents = True
    End If
End Sub

Sinon , mettre le classeur en PJ

 

[pat66]

Re,

un grand merci Jacky67, c'est exactement ce qu'il me fallait

bien cordialement