Cellule non vide avant de passer à la ligne suivante

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 vie

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 sans avoir de succé.

Merci à Vous,

Bonjour,

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.

' As currently designed, this check will ONLY take care of Row 2 ... !!!!!!!

    If WorksheetFunction.CountA(Worksheets("Data").Range("A2:F2")) < 6 Then
      MsgBox " Workbook will not be saved unless" & vbCrLf & _
      " All required fields have been filled in ..." & vbCrLf & " Check Row 2 "
    End If

Cancel = True
End Sub