Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" <pindu33@hotmail.com> a écrit dans le message de news:
49a7a5bc$0$21740$7a628cd7@news.club-internet.fr...
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans avoir
aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" a écrit dans le message de news:
49a7ba6f$0$3520$salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans avoir
aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" <nospam_doclaude@free.fr> a écrit dans le message de news:
49a7ba6f$0$3520$426a34cc@news.free.fr...
salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" <pindu33@hotmail.com> a écrit dans le message de news:
49a7a5bc$0$21740$7a628cd7@news.club-internet.fr...
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans avoir
aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" a écrit dans le message de news:
49a7ba6f$0$3520$salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans avoir
aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" a écrit dans le message de news:
49a7ba6f$0$3520$salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans avoir
aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" <nospam_doclaude@free.fr> a écrit dans le message de news:
49a7ba6f$0$3520$426a34cc@news.free.fr...
salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" <pindu33@hotmail.com> a écrit dans le message de news:
49a7a5bc$0$21740$7a628cd7@news.club-internet.fr...
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans avoir
aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" a écrit dans le message de news:
49a7ba6f$0$3520$salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?", vbyesno
+ vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour,
Si je comprends bien tu veux t'affranchir du message de confirmation
généré par Excel avant l'opération de suppression ?
Comme ceci devrait faire ( quoique*)
application.displaysalertsúlse
sheets("truc").Delete
application.displaysalerts=True
* vérifie orthographe exacte de DisplaysAlerts
ensuite suis par certain que ce soit toujours la réponse "OK" qui soit
prise en compte. J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
Bon courage
Pounet95
"Patrick" a écrit dans le message de
news:49a7bf74$0$21744$Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans
avoir aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" a écrit dans le message de news:
49a7ba6f$0$3520$salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?",
vbyesno + vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 «
Excéliens », qui fonctionne très bien dans le but de supprimer la
dernière feuille créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour,
Si je comprends bien tu veux t'affranchir du message de confirmation
généré par Excel avant l'opération de suppression ?
Comme ceci devrait faire ( quoique*)
application.displaysalertsúlse
sheets("truc").Delete
application.displaysalerts=True
* vérifie orthographe exacte de DisplaysAlerts
ensuite suis par certain que ce soit toujours la réponse "OK" qui soit
prise en compte. J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
Bon courage
Pounet95
"Patrick" <pindu33@hotmail.com> a écrit dans le message de
news:49a7bf74$0$21744$7a628cd7@news.club-internet.fr...
Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans
avoir aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" <nospam_doclaude@free.fr> a écrit dans le message de news:
49a7ba6f$0$3520$426a34cc@news.free.fr...
salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?",
vbyesno + vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" <pindu33@hotmail.com> a écrit dans le message de news:
49a7a5bc$0$21740$7a628cd7@news.club-internet.fr...
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 «
Excéliens », qui fonctionne très bien dans le but de supprimer la
dernière feuille créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour,
Si je comprends bien tu veux t'affranchir du message de confirmation
généré par Excel avant l'opération de suppression ?
Comme ceci devrait faire ( quoique*)
application.displaysalertsúlse
sheets("truc").Delete
application.displaysalerts=True
* vérifie orthographe exacte de DisplaysAlerts
ensuite suis par certain que ce soit toujours la réponse "OK" qui soit
prise en compte. J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
Bon courage
Pounet95
"Patrick" a écrit dans le message de
news:49a7bf74$0$21744$Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans
avoir aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" a écrit dans le message de news:
49a7ba6f$0$3520$salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?",
vbyesno + vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 «
Excéliens », qui fonctionne très bien dans le but de supprimer la
dernière feuille créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
Bonjour,
Avant le code de suppression
'---------
Application.DisplayAlerts = False
'---------
Et si dans la macro ce n'est pas la dernière instruction
Après la suppression
'---------
Application.DisplayAlerts = True
'--------
Salutations
JJ
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour,
Avant le code de suppression
'---------
Application.DisplayAlerts = False
'---------
Et si dans la macro ce n'est pas la dernière instruction
Après la suppression
'---------
Application.DisplayAlerts = True
'--------
Salutations
JJ
"Patrick" <pindu33@hotmail.com> a écrit dans le message de news:
49a7a5bc$0$21740$7a628cd7@news.club-internet.fr...
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour,
Avant le code de suppression
'---------
Application.DisplayAlerts = False
'---------
Et si dans la macro ce n'est pas la dernière instruction
Après la suppression
'---------
Application.DisplayAlerts = True
'--------
Salutations
JJ
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 « Excéliens »,
qui fonctionne très bien dans le but de supprimer la dernière feuille
créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
Bonjour
Oui, mais le problème est le nom de la feuille, ce n'est pas "truc"
mais la dernière feuille créés par ce qui suit prend un nom aléatoire
"Feuil1, ou 2 ou etc...
Dans le ThisWorkbook
Public DerniereFeuille
________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Et c'est justement à l'issue de la dernière procédure que je dois rajouter
le code qui me permettrait de confirmer automatiquement la suppression de
la dernière feuille créée
Merci pour votre aide
"Pounet95" a écrit dans le message de news:Bonjour,
Si je comprends bien tu veux t'affranchir du message de confirmation
généré par Excel avant l'opération de suppression ?
Comme ceci devrait faire ( quoique*)
application.displaysalertsúlse
sheets("truc").Delete
application.displaysalerts=True
* vérifie orthographe exacte de DisplaysAlerts
ensuite suis par certain que ce soit toujours la réponse "OK" qui soit
prise en compte. J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
Bon courage
Pounet95
"Patrick" a écrit dans le message de
news:49a7bf74$0$21744$Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans
avoir aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" a écrit dans le message de news:
49a7ba6f$0$3520$salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?",
vbyesno + vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 «
Excéliens », qui fonctionne très bien dans le but de supprimer la
dernière feuille créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour
Oui, mais le problème est le nom de la feuille, ce n'est pas "truc"
mais la dernière feuille créés par ce qui suit prend un nom aléatoire
"Feuil1, ou 2 ou etc...
Dans le ThisWorkbook
Public DerniereFeuille
________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Et c'est justement à l'issue de la dernière procédure que je dois rajouter
le code qui me permettrait de confirmer automatiquement la suppression de
la dernière feuille créée
Merci pour votre aide
"Pounet95" <Pounetchezlui@ounadou> a écrit dans le message de news:
umwkizMmJHA.504@TK2MSFTNGP06.phx.gbl...
Bonjour,
Si je comprends bien tu veux t'affranchir du message de confirmation
généré par Excel avant l'opération de suppression ?
Comme ceci devrait faire ( quoique*)
application.displaysalertsúlse
sheets("truc").Delete
application.displaysalerts=True
* vérifie orthographe exacte de DisplaysAlerts
ensuite suis par certain que ce soit toujours la réponse "OK" qui soit
prise en compte. J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
Bon courage
Pounet95
"Patrick" <pindu33@hotmail.com> a écrit dans le message de
news:49a7bf74$0$21744$7a628cd7@news.club-internet.fr...
Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans
avoir aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" <nospam_doclaude@free.fr> a écrit dans le message de news:
49a7ba6f$0$3520$426a34cc@news.free.fr...
salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?",
vbyesno + vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" <pindu33@hotmail.com> a écrit dans le message de news:
49a7a5bc$0$21740$7a628cd7@news.club-internet.fr...
Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 «
Excéliens », qui fonctionne très bien dans le but de supprimer la
dernière feuille créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick
Bonjour
Oui, mais le problème est le nom de la feuille, ce n'est pas "truc"
mais la dernière feuille créés par ce qui suit prend un nom aléatoire
"Feuil1, ou 2 ou etc...
Dans le ThisWorkbook
Public DerniereFeuille
________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Et c'est justement à l'issue de la dernière procédure que je dois rajouter
le code qui me permettrait de confirmer automatiquement la suppression de
la dernière feuille créée
Merci pour votre aide
"Pounet95" a écrit dans le message de news:Bonjour,
Si je comprends bien tu veux t'affranchir du message de confirmation
généré par Excel avant l'opération de suppression ?
Comme ceci devrait faire ( quoique*)
application.displaysalertsúlse
sheets("truc").Delete
application.displaysalerts=True
* vérifie orthographe exacte de DisplaysAlerts
ensuite suis par certain que ce soit toujours la réponse "OK" qui soit
prise en compte. J'ai posé quelques fois la question,
mais n'ai jamais eu de réponse affirmative à 100% ( quelle que soit la
version d'XL )
Bon courage
Pounet95
"Patrick" a écrit dans le message de
news:49a7bf74$0$21744$Merci Claude
Mais ce n'est pas ce que j'attends.
Je souhaite que ma procédure automatise l'action de "supprimer" sans
avoir aucune autre action à faire.
Et dans ton code, j'ai en plus une nouvelle msbox.
Cordialement
Patrick
"claude" a écrit dans le message de news:
49a7ba6f$0$3520$salut Patrick
si tu ajoutes un
if msgbox("Voulez-vous vraiment supprimer la dernière feuille ?",
vbyesno + vbquestion, "Salut") =vbyes then
Sheets(ThisWorkbook.DerniereFeuille).Delete
end if
si la réponse est non, il ne se passe rien
;-)
claude
"Patrick" a écrit dans le message de news:
49a7a5bc$0$21740$Bonjour
J'ai incorporé un code , si agréablement donné hier par 2 «
Excéliens », qui fonctionne très bien dans le but de supprimer la
dernière feuille créée lors d'une procédure.
Voici :
Dans le ThisWorkbook
Public DerniereFeuille
__________________________________
Private Sub Workbook_NewSheet(ByVal Sh As Object)
DerniereFeuille = Sh.Name
End Sub
Dans la macro
Sheets(ThisWorkbook.DerniereFeuille).Delete
Cependant, j'aimerais rajouter un bout de code qui validerait aussi
directement la fenêtre de windows de confirmation «Supprimer » ou «
Annulé ».
Avec tous mes remerciements
Patrick