Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 6 Then Exit Sub
ThisWorkbook.Save
End Sub
Bonjour,
Par une macro, je voudrais qu'après chaque donné écrite dans les cellule de la colonne des F (F1, F2, F3... etc), qu'il ce produise une sauvegarde automatique et sans confirmation de la sauvegarde, comme ni vue ni connue.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F:F")) Is Nothing Then ThisWorkbook.Save
End Sub
Pierrot93 ton code sauvegarde a tout les entre l'écrit mais marche bien