Re : VBA- Si format DATE alors Copier valeur - en automatique à l'enregistrement
j'ai trouvé une autre solution.
On evite la boucle, et j'enregistre avant de sauvegarder (plus sûr)
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If MsgBox("Etes-vous certain de vouloir enregistrer vos données?", 36, "Confirmation") = vbNo Then
Cancel = True
End If
'
Application.Goto Reference:="Statut"
Selection.Copy
Application.Goto Reference:="Statut_bis"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 2
Range("H1").Select
End Sub
Merci beaucoup en tout cas de votre aide