[VBA-E2003] Empecher quitter feuille ou fichier ?

Arf, c encore moi avec toutes mes questions désolé.

Je voudrais savoir comment emecher de changer de feuille tant que la case A1 par exemple n'est pas egale a 100. Idem pour fermer le fichier.

Pour la feuille le seul evenement que j ai trouvé qui pourrait coller c Desactivate, mais celui ci se produit une foi qu on l'a quitté. Donc pas bon.

Et pour la fermeture du fichier, j ai pensé a Before_close pour le workbook, mais je ne c pas comment empecher la fermeture. Je peux lui faire afficher un message mais pas stoper la fermeture.

Merci de m eclairer.

Citation:

---

Envoyé par Tu

Arf, c encore moi avec toutes mes questions désolé

---

Ne sois pas désolé, on adore se creuser les méninges :wink:
Et comme d'autres, je suis curieux d'apprendre, alors je vais voir si ce que tu dis est vrai :lol:

A+

un code à mettre dans "thisworkbook"

Code:

---

1 2 3 4 5 6

Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Sheets(1).Range("A1") <> 100 Then Cancel = True MsgBox "Sortie impossible ", vbCritical End If End Sub

---

Si tu as trouvé où donner du code à la fermeture : le coup du Sepeur Camembert (un vieil ami) : réouverture si condition pas remplie :lol: !

lol j adore ce genre de solution :

Citation:

---

réouverture si condition pas remplie Laughing !

---

^^ c bien vicieux ^^

Mais effectivement le test sur le booleen est parfait. (A vrai dire j ai fait mon boulet car automatiquement quand on crée cette sub il nous cré la variable booleene CANCEL, j aurais la voir :cry: désolé. )

Par contre, pour la feuille, je ne c pas comment faire mis a part le coup de si pas egal a 100 je la reselectionne.

J ai pas compris ta solution ouskel'n'or :(

Citation:

---

Envoyé par Slumpy

Par contre, pour la feuille, je ne c pas comment faire mis a part le coup de si pas egal a 100 je la reselectionne.

---

? et cela ne te va pas ...? ... du genre :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Deactivate() If ThisWorkbook.Sheets(1).Range("A1") <> 100 Then   MsgBox "Sortie impossible ", vbCritical ThisWorkbook.Sheets(1).Activate End If   End Sub

---

à placer dans la feuille concernée...

Citation:

---

? et cela ne te va pas ...? ... du genre :

Code:
Private Sub Worksheet_Deactivate()
If ThisWorkbook.Sheets(1).Range("A1") <> 100 Then

MsgBox "Sortie impossible ", vbCritical
ThisWorkbook.Sheets(1).Activate
End If

End Sub

---

SI si, je chipote la. C'est juste que visuellement et pedagogiquement c'est pas top, car on quite la feuille, donc on en voit une autre, on a le message d'erreur sur cette deuxieme feuille, et l'on revient sur la feuille ou est l erreur. C'etait juste pour savoir si l'on peut eviter ce va et vient.

Ha merde, je realise un truc la, suffit d intervertir

Code:

---

1 2	MsgBox "Sortie impossible ", vbCritical ThisWorkbook.Sheets(1).Activate

---

surement :wink:

[EDIT : Ha non ca ne marche pas d intervertir car du coup on est plus entrain de quitter puisqu on la reactive ]

ouskel'n'or, dans ton code ce que je comprends pas c ca :

Code:

---

(ByVal Sh As Object)

---

:?

Ha oki, cette variable est donc le nom de la feuille que l on quitte ^^.C bon a savoir ca, merci.

Pas d idee pour eviter de voir apparaitre la deuxieme feuille ? :cry:

Citation:

---

Essaie avec application.screenupdating = false à la première ligne de la sub
Tu remets à true à la dernière ligne

Pas testé mais tu veux bien le faire pour nous Wink

A+

Testé, pour moi c'est ok

Code:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.ScreenUpdating = False
If ThisWorkbook.Sheets(1).Range("A1") <> 100 Then
NomFeuilOùRester = "Feuil1" 'uniquement pour indiquer le nom de la feuille si nécessaire
Worksheets(NomFeuilOùRester).Select
End If
Application.ScreenUpdating = True
End Sub

---

Arf, je viens de tester et ca ne marche pas chez moi. Enfin c'est tjs pareil quoi, ca me change de feuille avant de m'afficher le message d'erreur
:cry:

Roo je suis vraiement un boulet, je comprends pas ce que tu me racontes a propos du nom de la feuille :cry:

Mon code (que j ai bien mis dans Workbook est exactement ca :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Application.ScreenUpdating = False If ThisWorkbook.Sheets(SHEET_WorkingStation).Range("AC2") <> 100 Then MsgBox "Attention 100 % ? ", vbCritical ' NomFeuilOùRester = "Feuil1" 'uniquement pour indiquer le nom de la feuille si nécessaire ThisWorkbook.Sheets(SHEET_WorkingStation).Select End If Application.ScreenUpdating = True End Sub

---

Avec ca j ai le message sur la deuxieme feuille avant de revenir automatiquement sur la feuille Working Station. (D ailleurs me faut cliquer 2 fois sur ok pour revenir sur la feuille bizarre.
EDIT : Ha oui j ai deux fois le message car je quitte ma feuille Working station, et qu apres je quitte du coup la nouvelle feuille

(Ptite question en plus, quelle est la difference entre .select et .activate ?)

Bijour,

merci pour ta patience et ton aide ouskel'n'or.

Effectivement, si je fais comme tu dis , je n ai plus qu un seul message.

Je comprends ton code excepté pour ca :

Code:

---

ok = SHEET_WorkingStation = Sh.name

---

c'est equivalent à

Code:

---

if Sh.name = SHEET_WorkingStation then ok = true

---

C'est ca ?

Par contre, tjs pareil il me quitte la feuille pour m'afficher le message puis reviens sur la feuille quand on a cliqué sur la MsgBox.
N'y aurait il pas un moyen d'eviter ca ?
Par exemple en bloquant l'evenement _Desactivate tant que AC2<>100 ?


Pour mon autre question sur activate et select ct pour avoir la confirmation que j avais bien compris qu'il n y avait pas de difference pour les worksheet 8) . Merci

Citation:

---

Envoyé par ouskel'n'or

Je réponds à ton autre question : La différence entre select et activate
Pour Worksheet, aucun différence.

---

Pas totalement vrai.

On peut sélectionner plusieurs Feuilles et en activer une.

Par exemple, c'est ce qu'on fait quand on veut modifier toutes les cellules [A1] de toutes les feuilles en une seule opération.

Citation:

---

Envoyé par Slumpy

Ha merde, je realise un truc la, suffit d intervertir

Code:

---

1 2	MsgBox "Sortie impossible ", vbCritical ThisWorkbook.Sheets(1).Activate

---

surement :wink:

[EDIT : Ha non ca ne marche pas d intervertir car du coup on est plus entrain de quitter puisqu on la reactive ]

---

.... pourquoi dit tu que l'intervertion ne marche pas ?

Ouullaaa, je dois commencer a fatiguer moi ...

Merci bcp c'est parfait