Copie feuille, suppression et plantage

Thibaud123

XLDnaute Nouveau
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
 

Pièces jointes

  • Contraintes orga 10 sans visib avec liste test protect.xlsm
    85.6 KB · Affichages: 47

PMO2

XLDnaute Accro
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

XLDnaute Nouveau
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...
 
Dernière édition:

PMO2

XLDnaute Accro
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
Code:
Sheets("FC").Copy after:=Sheets(1)
par
Code:
If Windows(1).View <> xlNormalView Then Windows(1).View = xlNormalView
Sheets("FC").Copy after:=Sheets(1)

Cela fonctionne-t-il ?
 

Discussions similaires

Statistiques des forums

Discussions
312 895
Messages
2 093 383
Membres
105 714
dernier inscrit
POKITO