Bonjour à vous,
Je viens vers vous car je bloque sur la mise en place d'un bout de code dans mon fichier. Je n'arrive pas à mettre en place un mon beforesave.
Je voudrais qu'après avoir remplie ma colonne 6, j'active une sauvegarde automatique (thisworkbook.save) et qu'en parralèlle, j'active la macro ci dessous
=>vérifier si la ligne active de la colonne 1 à 6 n'est pas vide
L'objectif est de ne pas valider un tableau vide
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'If the six specified cells do not contain data, then display a message box with an error
'and cancel the attempt to save.
If WorksheetFunction.CountA(Worksheets("Data").Range("(Cells(Target.Row, 1)")) < 6 Then
MsgBox "Workbook will not be saved unless" & vbCrLf & _
"All required fields have been filled in!"
Cancel = True
End If
End Sub
Je bloque depuis un moment et j'espere que vous pourrez me donner une petite aide car je tourne en rond .
Merci à Vous,
Je viens vers vous car je bloque sur la mise en place d'un bout de code dans mon fichier. Je n'arrive pas à mettre en place un mon beforesave.
Je voudrais qu'après avoir remplie ma colonne 6, j'active une sauvegarde automatique (thisworkbook.save) et qu'en parralèlle, j'active la macro ci dessous
=>vérifier si la ligne active de la colonne 1 à 6 n'est pas vide
L'objectif est de ne pas valider un tableau vide
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'If the six specified cells do not contain data, then display a message box with an error
'and cancel the attempt to save.
If WorksheetFunction.CountA(Worksheets("Data").Range("(Cells(Target.Row, 1)")) < 6 Then
MsgBox "Workbook will not be saved unless" & vbCrLf & _
"All required fields have been filled in!"
Cancel = True
End If
End Sub
Je bloque depuis un moment et j'espere que vous pourrez me donner une petite aide car je tourne en rond .
Merci à Vous,
Dernière édition: