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

[papapaul]

🙂 Bon dimanche au forum. (Chez moi il pleut grave, grrrrrr😡 )
Je coince pour créer une feuille par inputbox ou je choisis une colonne.😕
J'ai mis des explications dans le fichier.
J'ai déjà mis ce fichier pour Tophe hier mais je l'ai un peu amélioré
et puis l'intitulé de son fil ne correspond plus à mon problème alors je me permets d'en ouvrir un nouveau.
Pour tout ce qui de la mise en couleurs des cellules doublons,
(plusieurs méthodes) ça à l'air de coller.
C'est sur la création de la feuille "Liste" par inputbox que je rame.
Merci à tous et bonne journée🙄

 

[papapaul]

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 🙄

 

[papapaul]

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.😉

 

[Compte Supprimé 979]

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

Bonsoir Papapaul,

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

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+

 

[Bebere]

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

 

[papapaul]

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😉

 

[Bebere]

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

 

[papapaul]

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

 

[yusukens2]

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,