Discussion :

[chartreuse]

Bonjour,

sur un formulaire je voudrais interdire la sauvegarde quand je clique sur le bouton fermer et si je clique sur la croix du form en haut à droite.
Voici mon code sur le bouton fermer.
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Sheets("Catalogue").Range("G2") = "*"
Application.DisplayAlerts = False
Application.Quit
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub

[Pierre Fauconnier]

Salut.

De quoi veux-tu interdire la sauvegarde? Ton bouton s'appelant CommandButton1, il est malaisé de savoir par son nom ce qu'il est censé faire ou ne pas faire. Pourrais-tu détailler en français (sans jargon Excel-VBA et surtout sans code) ce que tu souhaites réaliser, copie d'écran du userform à l'appui?

[chartreuse]

Bonjour,
j'ai créé un userform avec une barre de recherche qui affiche mes résultats sur ce même userform dans une listbox.
Quand je clique sur mon bouton fermer de ce même userform il me demande voulez-vous enregistrer alors que je n'ai fait aucun enregistrement.
Comment faire pour enlever ce message ?
Merci

[Pierre Fauconnier]

Ton code change la valeur de G2 de la feuille Catalogue Sheets("Catalogue").Range("G2") = "*" et le même code demande de quitter l'application Application.Quit AVANT de fermer ton classeur en enregistrant...

Essaie ce qui suit (je n'ai pas testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
Sheets("Catalogue").Range("G2") = "*"
ActiveWorkbook.Close True
Application.Quit
End Sub

[chartreuse]

Merci pour le code çà fonctionne