Copie de feuille de calcul

[Dato]

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é.

 

[Hulk]

Re : Copie de feuille de calcul

Hello tout le monde,

Essaie de mettre cette ligne en début de ton code..

Application.ScreenUpdating = False

Et celle-ci à la fin..

Application.ScreenUpdating = True

 

[Guest]

Re : Copie de feuille de calcul

Bonjour Dato,

[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+

 

[Dato]

Re : Copie de feuille de calcul

Grand merci !