cellule non vide avant changement de ligne

fox31500

XLDnaute Nouveau
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,
 

Fichiers joints

Dernière édition:

vgendron

XLDnaute Barbatruc
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas