Message Si Résolu

Question

Bonjour, 

Je souhaite faire un macro pour le cas suivant;

Lors de l'enregistrement, si il y a au moins un 1 dans la colonne H, afficher le message "La réquisition est incomplète!" avec la possibilité unique de Cliquer sur OK. Donc impossible d'enregistrer le document. 



Configuration: Windows 7 / Chrome 41.0.2272.89

pijaku · Answer

Bonjour,

Code à ajouter dans le module ThisWorkbook de votre classeur :
A ADAPTER  : le nom de la feuille, ici "Feuil3"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If WorksheetFunction.CountIf(Sheets("Feuil3").Columns(8), 1) > 0 Then
    MsgBox "La réquisition est incomplète!"
    Cancel = True
End If
End Sub 
 
&#127932; Cordialement,
Franck &#127926;

Message Si

1 réponse

Discussions similaires

Newsletters