mise en couleurs de cellules "doublons" OK : problème inputbox

papapaul

XLDnaute Impliqué

• 14 Mai 2007

• #16

Re : mise en couleurs de cellules "doublons" OK : problème inputbox

😱 Salut le forum,
Encore une dernière version ou j'ai ajouté un label
et un frame.
Pour bien finir, j'aurais voulu mettre un msg qui demande la confirmation
de la suppression de la feuille liste avant de fermer.
J'ai mis ca dans This worbook mais ca marche pas.🙁
Je m'y prends comme un pied.

Private Sub workbook_beforeclose(cancel As Boolean)
Dim Existe As Boolean
Fermeture = msgbox("La feuille liste va être supprimée, voulez-vous continuer?", vbYesNo)
If Fermeture = vbNo Then UserForm1.Show
Exit Sub
If Fermeture = vbYes Then
Application.DisplayAlerts = False
For N = 1 To Sheets.Count
If Sheets(N).Name = "Liste" Then
Existe = True
Sheets("Liste").Delete
End If
Exit For
Next N
End If
End Sub

C'est surement simple mais je patauge.
Merci et bonne soirée 🙄

 

Pièces jointes

• MaisOuSont-Ils_mercibruno.zip

  47.6 KB · Affichages: 19
• MaisOuSont-Ils_mercibruno.zip

  47.6 KB · Affichages: 21
• MaisOuSont-Ils_mercibruno.zip

  47.6 KB · Affichages: 18

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 14 Mai 2007

• #17

Re : mise en couleurs de cellules "doublons" OK : problème inputbox

🙄 rebonsoir,
Bon alors j'ai essayé ca

Private Sub workbook_beforeclose(cancel As Boolean)
Dim Existe As Boolean
Fermeture = msgbox("La feuille liste va être supprimée, voulez-vous continuer?", vbYesNo)
If Fermeture = vbNo Then
Exit Sub
End If
If Fermeture = vbYes Then
Application.DisplayAlerts = False
For N = 1 To Sheets.Count
If Sheets(N).Name = "Liste" Then
Existe = True
Sheets("Liste").Delete
UserForm1.Hide
End If
Exit For
Next N
End If
End Sub

C'est mieux mais j'ai tjs le message automatique d'excel
Voulez vous enregistrer les modifs avec les 3 boutons
oui, non, annuler
Je voudrais ne pas voir ce message.
mon bouton oui (vbyes) devrait supprimer la feuille liste et fermer le fichier directement
mon bouton non (vbno) devrait fermer la msg et revenir sur la feuille active
Je sais que c'est possible mais je me prends le chou.
Je continue à chercher.
Merci à tous et bonne soirée.😉

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Mai 2007

• #18

Re : mise en couleurs de cellules "doublons" OK : problème inputbox

Bonsoir Papapaul,

Voilà le code qui fonctionne (j'ai testé)

Code:

Private Sub workbook_beforeclose(cancel As Boolean)
If MsgBox("La feuille liste va être supprimée, voulez-vous continuer?", vbYesNo) = Vbno Then Exit Sub
' Si on n'a pas répondu Non, donc c'est OUI
' Empèche les évènements
Application.EnableEvents = False
Application.DisplayAlerts = False
Sheets("Liste").Delete
Application.DisplayAlerts = true
Application.EnableEvents = True
' Enregistre le classeur pour éviter le message
ThisWorkbook.Save
End Sub

Tu n'es pas obligé de faire chaque feuille pour supprimer la bonne 😉

A+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 14 Mai 2007

• #19

Re : mise en couleurs de cellules "doublons" OK : problème inputbox

bonsoir Papapaul,Bruno
çà prend forme,bon boulot de Bruno
mis commentaires dans une feuille
apporté quelques améliorations(hum,hum)
à bientôt

 

Pièces jointes

• MaisOuSont-Ils_mercibruno.zip

  41.4 KB · Affichages: 12
• MaisOuSont-Ils_mercibruno.zip

  41.4 KB · Affichages: 12
• MaisOuSont-Ils_mercibruno.zip

  41.4 KB · Affichages: 13

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 14 Mai 2007

• #20

Re : mise en couleurs de cellules "doublons" OK : problème inputbox

🙂 Salut les amis,
Toujours vaillants.
Après ca j'aurais fini mon projet, chouette.😀
Je commence très tôt, alors au dodo.
Je regarde ca demain mais je pense que ca ira.
Merci Bruno pour ton super travail
Merci Bébère pout tous les codes que je t'ai empruntés.
Bonne nuit à tous et vive les xldeurs😉

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 15 Mai 2007

• #21

Re : mise en couleurs de cellules "doublons" OK : problème inputbox

bonjour Papapaul,Bruno
une autre version celle d'hier n'était pas au point
à bientôt

 

Pièces jointes

• MaisOuSont-Ils_mercibruno.zip

  48.4 KB · Affichages: 14
• MaisOuSont-Ils_mercibruno.zip

  48.4 KB · Affichages: 13
• MaisOuSont-Ils_mercibruno.zip

  48.4 KB · Affichages: 11

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 15 Mai 2007

• #22

Re : mise en couleurs de cellules "doublons" OK : problème inputbox

🙂 Salut le forum,
Merci Bébère mais je vois pas bien la différence avec le code de Bruno (plus haut) que j’ai mis dans cette nouvelle version. Par contre j’ai ajouté ta msg pour l’oubli de choix de colonne et un code dans thisworbook pour enlever les couleurs à chaque changement de feuille et aussi allégé un peu les codes.
Ca me semble presque parfait.🙄
Mais évidement j’ai une autre problèmatique : mon fichier serait trop gros😱
Alors je vais faire un deuxième post.
Merci à tous, à tout à l’heure

 

Pièces jointes

• USF_MaisOuSontIls.zip

  46.2 KB · Affichages: 28

Vote positif 0 Vote négatif

Y

yusukens2

Guest

• 25 Mai 2007

• #23

Re : mise en couleurs de cellules "doublons" OK : problème inputbox

Woua Woua Woua
J'adore, c'est vraiment fabuleur ce qu'on puisse faire sur excel.
Bravo a tous,

 

Vote positif 0 Vote négatif