scintillement lors de lancement de macro

janipas · 16 Mars 2006

Bonjour,

J'ai fait un petit programe qui permet de copier des données d'un fichier excel vers un autre .Mon soucis lors de l'execution du code il fait apparaitre tous les copiers coller ,comment faire pour que le traitement soit transparent.
Et aussi dans un meme fichier si on change d'onglet comment le rendre transparent et rester sur le meme onglet.

merci d'avance
a+

pat1545. · 16 Mars 2006

Bonjour,
application.screenupdating = false

Bye

Dull · 16 Mars 2006

Salut janipas, Le Forum

met cette ligne de code sous ton sub()

Application.ScreenUpdating = False
et
Application.ScreenUpdating = True
avant ton End Sub
ça devrais régler ton Problème

@+
:woohoo:

Dull · 16 Mars 2006

Re,

Désolé pat1545... Pas vu (Surtout pas assez rapide)

@+ :woohoo:

janipas · 16 Mars 2006

merci à tous mais peu avant que vous me donner la reponse je l'ai trouver sur un site .
effectivement c'est bien cela que je voulais.
merci encore
a+

PascalXLD · 16 Mars 2006

Bonjour

Je rajouterais si vous permettez que si c'est juste pour faire du copier coller de données il n'est pas utile de passer par des select et donc le scintillement est évité

Sinon bien sur le application.screenupdating = false permet d'eviter le scintillement en cas de select obligatoire

Bonne journée

Message édité par: Pascal76, à: 16/03/2006 17:39

terry08200 · 1 Septembre 2021

PascalXLD à dit:
Bonjour

Je rajouterais si vous permettez que si c'est juste pour faire du copier coller de données il n'est pas utile de passer par des select et donc le scintillement est évité

Sinon bien sur le application.screenupdating = false permet d'eviter le scintillement en cas de select obligatoire

Bonne journée

Message édité par: Pascal76, à: 16/03/2006 17:39

bonjour Pascal,

Je fais remonter le post (ouaaah 2006) car cela m'intéresse de savoir comment ne pas passer par le .select svp.
par exemple ci-dessous :

Sheets("Nomenclature").Select
Range("Q2").Select
Selection.Copy
Sheets("Gabarit").Select
Range("J1").Select
ActiveSheet.Paste

Tu m'aiderais énormément !!

bof · 1 Septembre 2021

bonjour,

VB:

Sheets("Gabarit").Range("J1") = Sheets("Nomenclature").Range("Q2")

A+

terry08200 · 1 Septembre 2021

bof à dit:
bonjour,

VB:

Sheets("Gabarit").Range("J1") = Sheets("Nomenclature").Range("Q2")

A+

Merci !!

scintillement lors de lancement de macro

janipas

Guest

pat1545.

XLDnaute Accro

Dull

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

janipas

Guest

PascalXLD

XLDnaute Barbatruc

terry08200

XLDnaute Nouveau

bof

XLDnaute Occasionnel

terry08200

XLDnaute Nouveau

Discussions similaires