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

Copie de feuille de calcul

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Dato
  • 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 !

S'inscrire
D

Dato

Guest
Bonjour,

J'utilise la fontion :

Worksheets("Certificat").Copy before:=Worksheets("Certificat")
Worksheets("Mesures").Copy before:=Worksheets("Certificat")


Cependant lors de l'exécution, la page crée est automatique sélectionné. Le problème étant que lorsqu'on copie plusieurs pages, on voit les feuilles défilés et j'aimerais justement que la feuille "vu" reste celle du certificat.

J'ai donc essayé le code suivant :

Worksheets("Certificat").Copy before:=Worksheets("Certificat")
Worksheets("Certificat").Select
Worksheets("Mesures").Copy before:=Worksheets("Certificat")
Worksheets("Certificat").Select


Mais encore une fois, si on copie plusieurs feuilles de calcul, l'écran "clignote" à cause du changement successif de feuilles.

Quelqu'un aurait une solution pour rendre ces actions invisibles pour l'utilisateur ?

En espérant m'être bien exprimé.
 
Trier par date Trier par votes
Re : Copie de feuille de calcul

Hello tout le monde,

Essaie de mettre cette ligne en début de ton code..
Code: 
Application.ScreenUpdating = False
Et celle-ci à la fin..
Code: 
Application.ScreenUpdating = True
 
Vote positif 0 Vote négatif
Re : Copie de feuille de calcul

Bonjour Dato,

Code: 
[COLOR=blue]Dim[/COLOR] sh [COLOR=blue]As[/COLOR] Worksheet 'Référence vers la feuille de départ
[COLOR=blue]Set[/COLOR] sh = Worksheets([I]"Certificat"[/I])
[COLOR=green]'Figer l'écran[/COLOR]
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=green]'copier les feuilles[/COLOR]
sh.Copy before:=Worksheets([I]"Certificat"[/I])
Worksheets([I]"Mesures"[/I]).Copy before:=Worksheets([I]"Certificat"[/I])
[COLOR=green]'Réactiver la feuille de départ[/COLOR]
sh.Activate
[COLOR=green]'Réactiver l'affichage écran[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

M
  • Question Question
Microsoft 365 Copie image d'une feuille à une autre feuille en VBA
Réponses
3
Affichages
784
Mongo
M
V
  • Question Question
XL 2016 Convertir en tableau
Réponses
6
Affichages
847
cp4
T
  • Résolu(e)
XL 2016 Copier feuille sur classeur protégé
Réponses
12
Affichages
1 K
TechnologyNewStore
T
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
T
  • Résolu(e)
XL 2016 Erreur d'exécution 9 - L'indice n'appartient pas à la sélection (recherche de la dernière ligne vide d'une feuille)
Réponses
7
Affichages
2 K
tdo88
T
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
S
  • Résolu(e)
Microsoft 365 Bug de macro pour effacer une ligne
Réponses
4
Affichages
1 K
ShrekL
S
P
  • Question Question
Autres Macro de calcul avec décimale
Réponses
2
Affichages
1 K
Papychou56
P
P
  • Question Question
Microsoft 365 copier-coller une feuille de calcul
Réponses
3
Affichages
1 K
AtTheOne
P
  • Question Question
XL 2019 Remplissage d'une feuille via évènement de feuille
Réponses
2
Affichages
1 K
Pieerre69
P
P
  • Question Question
XL 2019 Bloc if sans End If
Réponses
3
Affichages
1 K
Pounet95
P
L
  • Résolu(e)
XL 2016 Mettre à jour un tableau avec de nouvelles données
Réponses
8
Affichages
2 K
LauLauR
L
E
  • Résolu(e)
Microsoft 365 Copie d'une feuille sur bureau
Réponses
13
Affichages
2 K
fanch55
  • Question Question
XL 2016 Ouvre un fichier sur une feuille et copie une plage sur le fichier destination
Réponses
4
Affichages
735
piga25
K
  • Question Question
XL 2016 Recherche et calcul dans un sous-ensemble de feuilles selon condition du nom de la feuille
2
Réponses
26
Affichages
3 K
KIM
K
S
  • Résolu(e)
XL 2013 Méthode de sélection alternative
Réponses
4
Affichages
2 K
stage_ferrit
S
J
  • Question Question
XL 2010 Récupérer les données de plusieurs fichiers pour un nom de feuille donné
Réponses
10
Affichages
2 K
JVOS
J
R
  • Question Question
Temps de traitement ACTIVATE
Réponses
8
Affichages
1 K
RichardS
R
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
7 K
Roland_M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…