macro évènementielle apprentissage

[urbanito1]

Le forum bonsoir

petite initiation dans les macros évènementielles

je souhaite que le fichier ne se ferme que si la cellule a3 contient "ok vérifié" par exemple
j'ai tenté plusieurs essais mais sans succès
petit fichier en annexe
en vous remerciant

urbanito1

 

[Yaloo]

Re : macro évènementielle apprentissage

Bonsoir urbanito, le forum,

Plutôt comme ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Vérifie le contenu de la cellule A1 dans la Feuil1
    If Not Sheets("Feuil1").Range("A3") Like "ok vérifié" Then
        MsgBox "Mon ami n'oubliez pas de vérifier vos calculs et de l'indiquer dans la cellule A3. Merci, c'est vraiment très agréable de pouvoir travailler avec vous"
        'Empêche la fermeture si la cellule A1 est vide
        Cancel = True
        Exit Sub
    Else
        'Enregistre les modifications avant la fermeture du classeur
        ThisWorkbook.Save
    End If
End Sub

A+

 

[urbanito1]

Re : macro évènementielle apprentissage

le forum

Yaloo
extra
tu m'as même mis les explications - je peux utiliser n'importe quelle cellule avec motif
super - merci
urbanito1