Salut,
Alors, voici une version améliorée de la procédure.
cette fois-ci, elle prend en compte toutes les lignes, de la dernière utilisée à la première.
Le nombre de colonnes est paramétrable, ainsi que la colonne de départ.
Encore une restriction : les colonnes doivent être contigues
Le code :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Pcol! = 1 'N° 1ere colonne à examiner
NbCol! = 3 'Nombre de colonnes concernées
For Col! = Pcol To Pcol + NbCol - 1
DerLig = WorksheetFunction.Max(Cells(65535, Col).End(xlUp).Row, DerLig)
Next Col
For Lig! = DerLig To 1 Step -1
For Col! = Pcol To Pcol + NbCol - 2
If Cells(Lig, Col) = "" Or Cells(Lig, Col + 1) = "" Then Flag = True
Next Col
Next Lig
If Flag Then
Cancel = True
MsgBox "Il reste des cellules non renseignées !"
End If
End Sub
Bonne soirée
Rai
P.S. : Merci pour les compliments, ils me font quand même un peu rougir ;o))