Run-time error

[stargate]

Bonjour,

j'ai fait un petit bout de code pour pouvoir supprimer la feuille courante

Pour cela j'ai créer une petite forme qui demande à l'utilisateur,s'il veut vraiment supprimer la feuille courante avec deux boutons oui et non.


Code

Private Sub cmdOui_Click()

Dim feuille as Worksheet
Set feuille = ActiveSheet
Application.DisplayAlerts = False
feuille.delete
frmSupprimer.Hide
Application.DisplayAlerts = True

End Sub

Il me retourne une erreur

Run-time error '-2147417848(80010108)
Automation error

Une idée ,merci

 

[Dull]

Salut stargate,

une idée comme ça

met ton code dans un module
supprime Private
ça devrais fonctionner

@+ :woohoo: [file name=Stargate.zip size=8968]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Stargate.zip[/file]

 

[stargate]

merci pout ton aide

j'ai fait comme tu m'as dis et j'ai testé ton stargate.zip qui marche bien



mais ,j'ai toujours la même erreur

 

[Dull]

Re stargate,

Envoie ton fichier je ne vois que ça

(un extrait sans données confidentielles suffira)

@+ :woohoo:

 

[stargate]

je ne peux pas te l'envoyer car il fait 160ko


Si je mets un point de déboguage à la hauteur de
Feuille.delete pas d'erreur

Si je le mets à la hauteur de
cmdSupprimer.Hide alors là erreur et plantage

 

[stargate]

désolé c'est frmSupprimer.Hide et non pas cmdSupprimer.Hide

 

[stargate]

résolu


Certaines cellules étaient bloquées,ce qui plantait excel



merci, pour votre aide