Message Si

Résolu

Jess -
Jess - 13 mars 2015 à 16:11

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.

A voir également:

Message Si
Recuperer message whatsapp supprimé - Guide
Message supprimé whatsapp - Guide
Comment savoir si quelqu'un lit mes messages sur whatsapp - Accueil - Messagerie instantanée
Message absence thunderbird - Guide
Epingler un message whatsapp - Accueil - Messagerie instantanée

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

🎼 Cordialement,
Franck 🎶

Jess

merci ! ça fonctionne :):)

Discussions similaires

SMS message vocal arnaque ?

Signification de ^^

Diff message

Ca veut dire quoi ^^

Votre réponse

Discussions similaires