BVA Empêcher la fermeture d'un classeur si une cellule est vide
4 réponses
Céline Brien
Bonjour à tous,
Voici mes codes jusqu'ici :
--------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then------> ????????????????
Canceller la fermeture du fichier------> ????????????????
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
--------------------------------------------------------------
Vous pouvez m'aider à compléter ?
Merci beaucoup,
Céline
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
John Fuss
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub
John
"Céline Brien" a écrit dans le message de news:
Bonjour à tous, Voici mes codes jusqu'ici : -------------------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then------> ???????????????? Canceller la fermeture du fichier------> ???????????????? MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub -------------------------------------------------------------- Vous pouvez m'aider à compléter ? Merci beaucoup, Céline
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then
Cancel = True
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
John
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de
news:elS7ooqfDHA.1200@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Voici mes codes jusqu'ici :
--------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then------> ????????????????
Canceller la fermeture du fichier------> ????????????????
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
--------------------------------------------------------------
Vous pouvez m'aider à compléter ?
Merci beaucoup,
Céline
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub
John
"Céline Brien" a écrit dans le message de news:
Bonjour à tous, Voici mes codes jusqu'ici : -------------------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then------> ???????????????? Canceller la fermeture du fichier------> ???????????????? MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub -------------------------------------------------------------- Vous pouvez m'aider à compléter ? Merci beaucoup, Céline
Céline Brien
Bonjour à tous, Bonjour John, J'ai testé les codes. Je reçois un message d'erreur : ----------------------------------- Erreur d'exécution '424' Objet requis ----------------------------------- et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True Merci de votre aide, Céline
"John Fuss" a écrit dans le message de news: bketaj$f9m$
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub
John
"Céline Brien" a écrit dans le message de
news:
Bonjour à tous, Voici mes codes jusqu'ici : -------------------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then------> ???????????????? Canceller la fermeture du fichier------> ???????????????? MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub -------------------------------------------------------------- Vous pouvez m'aider à compléter ? Merci beaucoup, Céline
Bonjour à tous,
Bonjour John,
J'ai testé les codes.
Je reçois un message d'erreur :
-----------------------------------
Erreur d'exécution '424'
Objet requis
-----------------------------------
et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True
Merci de votre aide,
Céline
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de news:
bketaj$f9m$1@s1.read.news.oleane.net...
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then
Cancel = True
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
John
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de
news:elS7ooqfDHA.1200@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Voici mes codes jusqu'ici :
--------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then------> ????????????????
Canceller la fermeture du fichier------> ????????????????
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
--------------------------------------------------------------
Vous pouvez m'aider à compléter ?
Merci beaucoup,
Céline
Bonjour à tous, Bonjour John, J'ai testé les codes. Je reçois un message d'erreur : ----------------------------------- Erreur d'exécution '424' Objet requis ----------------------------------- et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True Merci de votre aide, Céline
"John Fuss" a écrit dans le message de news: bketaj$f9m$
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub
John
"Céline Brien" a écrit dans le message de
news:
Bonjour à tous, Voici mes codes jusqu'ici : -------------------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then------> ???????????????? Canceller la fermeture du fichier------> ???????????????? MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub -------------------------------------------------------------- Vous pouvez m'aider à compléter ? Merci beaucoup, Céline
Daniel.M
Salut Céline,
If Sheets("Data").Range("J7") = 0 Then
Salutations,
Daniel M.
"Céline Brien" wrote in message news:%
Bonjour à tous, Bonjour John, J'ai testé les codes. Je reçois un message d'erreur : ----------------------------------- Erreur d'exécution '424' Objet requis ----------------------------------- et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True Merci de votre aide, Céline
"John Fuss" a écrit dans le message de news: bketaj$f9m$
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub
John
"Céline Brien" a écrit dans le message de
news:
Bonjour à tous, Voici mes codes jusqu'ici : -------------------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then------> ???????????????? Canceller la fermeture du fichier------> ???????????????? MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub -------------------------------------------------------------- Vous pouvez m'aider à compléter ? Merci beaucoup, Céline
Salut Céline,
If Sheets("Data").Range("J7") = 0 Then
Salutations,
Daniel M.
"Céline Brien" <celinebrien@laurentides.qc.ca> wrote in message
news:%23jyk5MrfDHA.2352@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Bonjour John,
J'ai testé les codes.
Je reçois un message d'erreur :
-----------------------------------
Erreur d'exécution '424'
Objet requis
-----------------------------------
et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True
Merci de votre aide,
Céline
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de news:
bketaj$f9m$1@s1.read.news.oleane.net...
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then
Cancel = True
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
John
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de
news:elS7ooqfDHA.1200@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Voici mes codes jusqu'ici :
--------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then------> ????????????????
Canceller la fermeture du fichier------> ????????????????
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
--------------------------------------------------------------
Vous pouvez m'aider à compléter ?
Merci beaucoup,
Céline
Bonjour à tous, Bonjour John, J'ai testé les codes. Je reçois un message d'erreur : ----------------------------------- Erreur d'exécution '424' Objet requis ----------------------------------- et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True Merci de votre aide, Céline
"John Fuss" a écrit dans le message de news: bketaj$f9m$
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub
John
"Céline Brien" a écrit dans le message de
news:
Bonjour à tous, Voici mes codes jusqu'ici : -------------------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then------> ???????????????? Canceller la fermeture du fichier------> ???????????????? MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub -------------------------------------------------------------- Vous pouvez m'aider à compléter ? Merci beaucoup, Céline
Céline Brien
Bonjour à tous, Bonjour John, Bonjour Daniel, Effectivement c'était Data!J7. Avec If Sheets("Data").Range("J7") = 0 Then le tout fonctionne à merveille ! Merci beaucoup, Céline
"John Fuss" a écrit dans le message de news: bkf1pb$isu$
ça doit être ton Data!J7 qui ne passe pas,
personnelement j'utilise soit sheets("nomDeMaFeuille").Range("J7") si je
suis sûr qu'on ne modifiera pas le nom de la feuille ou feuil1.Range("J7") sinon
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Sheets("Data").Range("J7") = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub
John
"Céline Brien" a écrit dans le message de
news:%
Bonjour à tous, Bonjour John, J'ai testé les codes. Je reçois un message d'erreur : ----------------------------------- Erreur d'exécution '424' Objet requis ----------------------------------- et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True Merci de votre aide, Céline
"John Fuss" a écrit dans le message de news: bketaj$f9m$
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7"
End If End Sub
John
"Céline Brien" a écrit dans le message
de
news:
Bonjour à tous, Voici mes codes jusqu'ici : -------------------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then------> ???????????????? Canceller la fermeture du fichier------> ???????????????? MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub -------------------------------------------------------------- Vous pouvez m'aider à compléter ? Merci beaucoup, Céline
Bonjour à tous,
Bonjour John,
Bonjour Daniel,
Effectivement c'était Data!J7.
Avec If Sheets("Data").Range("J7") = 0 Then le tout fonctionne à
merveille !
Merci beaucoup,
Céline
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de news:
bkf1pb$isu$1@s1.read.news.oleane.net...
ça doit être ton Data!J7 qui ne passe pas,
personnelement j'utilise soit sheets("nomDeMaFeuille").Range("J7") si
je
suis sûr qu'on ne modifiera pas le nom de la feuille
ou feuil1.Range("J7") sinon
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("J7") = 0 Then
Cancel = True
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
John
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de
news:%23jyk5MrfDHA.2352@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Bonjour John,
J'ai testé les codes.
Je reçois un message d'erreur :
-----------------------------------
Erreur d'exécution '424'
Objet requis
-----------------------------------
et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True
Merci de votre aide,
Céline
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de news:
bketaj$f9m$1@s1.read.news.oleane.net...
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then
Cancel = True
MsgBox "Impossible de fermer sans compléter la ligne
7"
End If
End Sub
John
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le
message
de
news:elS7ooqfDHA.1200@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Voici mes codes jusqu'ici :
--------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Data!J7 = 0 Then------> ????????????????
Canceller la fermeture du fichier------> ????????????????
MsgBox "Impossible de fermer sans compléter la ligne 7"
End If
End Sub
--------------------------------------------------------------
Vous pouvez m'aider à compléter ?
Merci beaucoup,
Céline
Bonjour à tous, Bonjour John, Bonjour Daniel, Effectivement c'était Data!J7. Avec If Sheets("Data").Range("J7") = 0 Then le tout fonctionne à merveille ! Merci beaucoup, Céline
"John Fuss" a écrit dans le message de news: bkf1pb$isu$
ça doit être ton Data!J7 qui ne passe pas,
personnelement j'utilise soit sheets("nomDeMaFeuille").Range("J7") si je
suis sûr qu'on ne modifiera pas le nom de la feuille ou feuil1.Range("J7") sinon
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Sheets("Data").Range("J7") = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub
John
"Céline Brien" a écrit dans le message de
news:%
Bonjour à tous, Bonjour John, J'ai testé les codes. Je reçois un message d'erreur : ----------------------------------- Erreur d'exécution '424' Objet requis ----------------------------------- et la ligne If Data!J7 = 0 Then est sélectionnée.
De plus je me demande ce que cancellent les codes Cancel = True Merci de votre aide, Céline
"John Fuss" a écrit dans le message de news: bketaj$f9m$
Simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then Cancel = True MsgBox "Impossible de fermer sans compléter la ligne 7"
End If End Sub
John
"Céline Brien" a écrit dans le message
de
news:
Bonjour à tous, Voici mes codes jusqu'ici : -------------------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) If Data!J7 = 0 Then------> ???????????????? Canceller la fermeture du fichier------> ???????????????? MsgBox "Impossible de fermer sans compléter la ligne 7" End If End Sub -------------------------------------------------------------- Vous pouvez m'aider à compléter ? Merci beaucoup, Céline
