Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copie feuille, suppression et plantage

  • Initiateur de la discussion Initiateur de la discussion Thibaud123
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

Thibaud123

Guest
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

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.
 
Re : Copie feuille, suppression et plantage


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 modification par un modérateur:
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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Question Question
Réponses
5
Affichages
1 K
JeanDidouille
J
Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…