XL 2010 Enregistreur de macro

[Ferdin]

Bonjour à vous.

J'ai créer un enregistreur de macro qui permet d'effectuer plusieurs taches. Le problème est que lorsque je lance la macro, elle affiche toutes les étapes de l'enregistrement effectué. J'aimerais que ces étapes ne soient plus affichés. Existe t il des codes pouvant les masquer ? Si oui lesquels ?

Merci

 

[mapomme]

Bonjour @Ferdin,

En debut de votre code, insérer la ligne :
Application.ScreenUpdating=False

 

[JBARBE]

Bonjour à vous.

J'ai créer un enregistreur de macro qui permet d'effectuer plusieurs taches. Le problème est que lorsque je lance la macro, elle affiche toutes les étapes de l'enregistrement effectué. J'aimerais que ces étapes ne soient plus affichés. Existe t il des codes pouvant les masquer ? Si oui lesquels ?

Merci

Bonjour à tous, mapomme, Ferdin,
Serait-il possible d'avoir ton code !
Merci et Bonne journée !

 

[Ferdin]

Bonjour @Ferdin,

En debut de votre code, insérer la ligne :
Application.ScreenUpdating=False

Merci mapomme, j'ai utilisé ton code et il a fonctionné.

 

[Ferdin]

Bonjour à tous, mapomme, Ferdin,
Serait-il possible d'avoir ton code !
Merci et Bonne journée !

Bonjour JBARBE. Voici mon code en question (la ligne de code proposée par mapomme y est déjà):


Sub Importer()

Application.ScreenUpdating = False

Call Créer_Police

Sheets("Production").Select
Columns("Q:Q").Select
Selection.Copy
Sheets("TAF ").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Production").Select

Columns("BC:BC").Select
Selection.Copy
Sheets("TAF ").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Range("C1").Select
Sheets("Production").Select

Columns("V:V").Select
Selection.Copy
Sheets("TAF ").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Production").Select

Columns("G:G").Select
Selection.Copy
Range("A1").Select
Sheets("TAF ").Select
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select

Call TestDuProgressbarStatusBar

Rep = MsgBox("L'importation a été effectué avec succès !!!", vbOKOnly + vbInformation, "Chanas assurances S.A.")
End Sub

 

[JBARBE]

Re,
il y a peut-être possibilité de simplifier ce code mais on a pas :
Call Créer_Police
Call TestDuProgressbarStatusBar
Bonne journée !

 

[JBARBE]

Re,
Peut-être ceci ! A tester !

Sub Importer()

Application.ScreenUpdating = False

Call Créer_Police

Sheets("Production").Columns("Q:Q").Copy Sheets("TAF ").Range("A1")
Sheets("Production").Columns("BC:BC").Copy Sheets("TAF ").Range("B1")
Sheets("Production").Columns("V:V").Copy Sheets("TAF ").Range("C1")
Sheets("Production").Columns("G:G").Copy Sheets("TAF ").Range("D1")

Call TestDuProgressbarStatusBar

Rep = MsgBox("L'importation a été effectué avec succès !!!", vbOKOnly + vbInformation, "Chanas assurances S.A.")
End Sub

 

[JBARBE]

Re,
maintenant il faut les codes des 2 macros :
Call Créer_Police
Call TestDuProgressbarStatusBar
Merci !

 

[Ferdin]

Re,
Peut-être ceci ! A tester !

Sub Importer()

Application.ScreenUpdating = False

Call Créer_Police

Sheets("Production").Columns("Q:Q").Copy Sheets("TAF ").Range("A1")
Sheets("Production").Columns("BC:BC").Copy Sheets("TAF ").Range("B1")
Sheets("Production").Columns("V:V").Copy Sheets("TAF ").Range("C1")
Sheets("Production").Columns("G:G").Copy Sheets("TAF ").Range("D1")

Call TestDuProgressbarStatusBar

Rep = MsgBox("L'importation a été effectué avec succès !!!", vbOKOnly + vbInformation, "Chanas assurances S.A.")
End Sub

Merci bien JBARBE

 

[JBARBE]

Merci bien JBARBE

Re,
Il y a peut-être possibilité de simplifier ces 2 macros :
Call Créer_Police
Call TestDuProgressbarStatusBar