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

pat66

XLDnaute Occasionnel
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
 
Solution
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
VB:
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...

Jacky67

XLDnaute Barbatruc
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
VB:
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
 

Discussions similaires

Réponses
4
Affichages
247

Statistiques des forums

Discussions
294 444
Messages
1 938 543
Membres
188 916
dernier inscrit
mhedi69