Message Si

Résolu/Fermé

Jess - 13 mars 2015 à 13:01
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
Message - Guide
Recuperer message whatsapp supprimé - Guide
Message d'absence thunderbird - Guide
Laisser un message vocal et raccrocher - Forum Mobile
Messenger me dit que j'ai un message alors que non - Forum Facebook Messenger

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié par pijaku le 13/03/2015 à 15:29

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
13 mars 2015 à 16:11

merci ! ça fonctionne :):)

Discussions similaires

qu'est-ce que diff message ?

^^ : Quelle signification dans un message SMS ?

Facebook « Cette personne ne peut actuellement pas recevoir de message »

Ça veut dire quoi le signe ^^ en langage SMS/texto ?

Impossible de "retirer"mes messages sur Messenger