R
ROGER2tours
Guest
Bonjour à tous (ou plutôt bonne nuit !!)
C'est avec beaucoup d'intérêt que j'aie suivi le topic résolu par Rai.
Je rencontre la problématique de dagada75 MAIS mon soucis, comme l'a remarqué Rai c'est que mes colonnes NE SONT PAS contigues !
(
En effet, je connais déja mes colonnes (A, D, F) à contrôlé... et ayant masqué B, C et E (avec obligation de cellule vide), je ne peux appliquer ta formule Rai, ligne par ligne ....
(
Aurais une V3 de ta soluce qui puisse passer outre cette difficulté (la je crois que la version 3 de ta solution serait finale !).
Les autres XLDnautres (ca existe) peuvent participer à ce projet bien entendu ... Merci à TOUS et à votre talent.
Rappel de la solution V2 de Rai qui nécessite que les colonnes soient contingues :
***********************************************************
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
***********************************************************
C'est avec beaucoup d'intérêt que j'aie suivi le topic résolu par Rai.
Je rencontre la problématique de dagada75 MAIS mon soucis, comme l'a remarqué Rai c'est que mes colonnes NE SONT PAS contigues !
(
En effet, je connais déja mes colonnes (A, D, F) à contrôlé... et ayant masqué B, C et E (avec obligation de cellule vide), je ne peux appliquer ta formule Rai, ligne par ligne ....
(
Aurais une V3 de ta soluce qui puisse passer outre cette difficulté (la je crois que la version 3 de ta solution serait finale !).
Les autres XLDnautres (ca existe) peuvent participer à ce projet bien entendu ... Merci à TOUS et à votre talent.
Rappel de la solution V2 de Rai qui nécessite que les colonnes soient contingues :
***********************************************************
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
***********************************************************