cellule non vide avant changement de ligne

[fox31500]

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,

 

[vgendron]

Hello

pourquoi ne pas simplement faire le controle dans ton case 6
If WorksheetFunction.CountA(Target.Offset(0, -5).Resize(1, 6)) = 6 Then
ThisWorkbook.Save
End If