Bug avec Excel 2013 lors de la supression d'une feuille

[Max75]

Bonjour à tous,

Je viens vous demander de l'aide car j'ai un problème sur une macro depuis que je suis passé à Excel 2013.

J'ai créé un fichier pour gérer mon vocabulaire d'anglais avec plusieurs feuilles.

Avec une feuille menu on peut créer et supprimer les feuilles.

Je vous joins le fichier.

Le problème est que depuis que j'ai 2013, quand je veux supprimer une feuille via ma macro (croix colonne H) j'ai un bug et Excel se ferme. Je n'arrive pas à comprendre pourquoi et c'est la même chose quand je veux en créer une avec une autre macro.

Pourriez vous m'aider?

Peut être que le bug est spécifique à mon pc je n'arrive pas à savoir.

Merci beaucoup

Max

 

[youky(BJ)]

Re : Bug avec Excel 2013 lors de la supression d'une feuille

Bonjour Max,
je ne suis pas sur de moi dans ma réponse mais il serait bon de tester tout de même.
Mets la propriété ShowModal=False au lieu de True à l'user Supprimer.
J'ai eu un PB un peu similaire avec certain PC
Cela vaut le coup d'essayer.
Bruno

 

[Max75]

Re : Bug avec Excel 2013 lors de la supression d'une feuille

Bruno

Merci pour ta réponse.

J'ai testé ta solution mais cela ne fonctionne pas le bug est toujours présent.

 

[youky(BJ)]

Re : Bug avec Excel 2013 lors de la supression d'une feuille

Re,
Essaye de mettre un point d'arrêt dans la macro qui supprime l'onglet et va en pas à pas en pressant [F8] à maintes reprises.
Dit nous la ligne qui bug.
Bruno

 

[Max75]

Re : Bug avec Excel 2013 lors de la supression d'une feuille

C'est simplement la ligne sheet("...").delete

 

[youky(BJ)]

Re : Bug avec Excel 2013 lors de la supression d'une feuille

Bon j'ai pas 2013 et chez moi tout fonctionne bien.
Essaie cela en OK de supprimer

Private Sub CommandButton1_Click()
Supprimer.Hide 'on masque l'user
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Cells(Selection.Row, 2).Value).Delete 'mis selection au lieu activeCell
Application.DisplayAlerts = True
Rows(Selection.Row).Delete
Call Monter_Descendre_MAJ
Range("B4").Select
Application.ScreenUpdating = True
Unload Supprimer 'décharche
End Sub

Bruno

 

[Max75]

Re : Bug avec Excel 2013 lors de la supression d'une feuille

Oui sur la version 2010 ou les précédentes ça fonctionne, mais pas 2013 d'où mon problème.

Malheureusement ta proposition de code n'a pas fonctionné.