Copie feuille, suppression et plantage

[Thibaud123]

Bonsoir à tous,

Voila, je viens vers vous ce soir pour un petit problème qui me prend la tête depuis ce matin. Je suis sous XL2010.
Sur mon userform, j'ai mis sur plusieurs boutons un code pour copier l'une des mes feuilles :

Sheets("FC").Copy after:=Sheets(1)

Mon soucis, c'est que lorsque :
- je crée plusieurs copies (ex : FC (2) ; FC (3) ; FC (4) )
- Je supprime toutes les copies sauf une (Ici, je ne laisse que FC (2) )
- Je supprime la dernière copie restante

Excel plante... Je pensais que c'était lié à une combo qui listait toutes mes feuilles. Mais même en la supprimant (pour ça aussi que ca peut sembler être un peu Bagdad mon classeur tel que je vous le monde), ca plante quand même...

Thibaud

 

[fanfan38]

Re : Copie feuille, suppression et plantage

Bonjour
J'ai testé ton appli et je n'ai eu aucun plantage...

A+ François

 

[PMO2]

Re : Copie feuille, suppression et plantage

Bonjour,

Ayant téléchargé votre fichier et en reproduisant la démarche que vous avez décrite, je constate effectivement le plantage d'Excel.

******
1ère piste :
J'ai supprimé le contenu de la feuille "FC" et répété la démarche sans qu'Excel plante (voir pièce jointe).
Ce qui m'amène à conclure que
1) le code et les UserForms ne constituent pas la cause du plantage
2) le problème se situe dans le contenu de la feuille 'FC"

Je n'ai, pour l'instant, pas été plus loin et le diagnostic se limite à cela.

 

[Thibaud123]

Re : Copie feuille, suppression et plantage

Bonjour,

Ayant téléchargé votre fichier et en reproduisant la démarche que vous avez décrite, je constate effectivement le plantage d'Excel.

******
1ère piste :
J'ai supprimé le contenu de la feuille "FC" et répété la démarche sans qu'Excel plante (voir pièce jointe).
Ce qui m'amène à conclure que
1) le code et les UserForms ne constituent pas la cause du plantage
2) le problème se situe dans le contenu de la feuille 'FC"

Je n'ai, pour l'instant, pas été plus loin et le diagnostic se limite à cela.

Bonjour,

en effet, en utilisant votre fichier, ça ne plante pas non plus de mon coté.

Edit : ah si, en retestant, ca plante encore...

 

[PMO2]

Re : Copie feuille, suppression et plantage

J'ai identifié la cause du problème. Il s'agit de l'affichage classeur en tant que "Mise en page" (voir menu Affichage/ (groupe) Affichages classeur/Mise en page).

Pour y remédier, remplacez toutes les portions de code

Sheets("FC").Copy after:=Sheets(1)

par

If Windows(1).View <> xlNormalView Then Windows(1).View = xlNormalView
Sheets("FC").Copy after:=Sheets(1)

Cela fonctionne-t-il ?

 

[Thibaud123]

Re : Copie feuille, suppression et plantage

Cela fonctionne-t-il ?

Il semblerait que ça fonctionne. Je continue à tester aujourd'hui, et je vous tiens au courant.

En tout cas, merci beaucoup !