Lenteur execution macro fichier partage
bonsoir
j'aurais besoin de vos lumières
voila j'ai un fichier partagé en réseau ,un utilisateur et un seul exécute la macro "test"
pour cela il double clic sur la colonne B ,cela indique "1" il peut cliquer sur plusieurs cellule de la colonne B ,il fait "print" en haut a gauche de la feuille ,le but étant de classer les lignes du clic sur une feuille qui s'imprime
Au début j'avais passé par l'enregistreur mais la macro était lente quand je partageais le fichier ,alors grâce a des exemples sur le net j'ai pu la raccourcir considérablement
elle fonctionne très bien mais quand je partage le fichier c'est très long ,pourtant cette macro est simple
Il y a au maxi 6 utilisateurs en partage
y a t'il un moyen pour accélérer cette macro???
Merci pour vos précieux conseils
Bonsoir
Il faut absolument éviter les SELECT, ACTIVATE, etc
Un exemple de ce que tu peux coder
With Columns("B:B")
.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.ColumnWidth = 1.71
End With
Columns("I:J").Delete Shift:=xlToLeft
Columns("J:J").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("K:K").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("L:L").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("M:M").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("N:Q").Delete Shift:=xlToLeft
Columns("L:L").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
With Columns("J:N")
.ColumnWidth = 11
.NumberFormat = "#,##0.000"
End With
Columns("I:I").Delete Shift:=xlToLeft
Range("I1").Value = "derouleur 1"
Range("J1").Value = "fait"
Range("K1").Value = "derouleur 2"
Range("L1").Value = "fait"
Range("M1").Value = "stock"
With Range("K1:L1").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Range("M1").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
A toi de faire le reste
Merci Bruno pour ta réponse ,mais il y a méprise ,ce n'est pas cette macro qui me pose souci même si tu a raison qu'il faut éviter les selects.
Cette macro est exécuté en 1er en mode exclusif
Non la macro est celle quand je clic sur la colonne B et clic sur l'useform "PRINT" en haut a gauche du tableau (cela renvoi à la macro "test"
C'est celle ci qui des que je partage le dossier avec d'autres utilisateurs met un temps très long à s’exécuter ,alors quand mode non partagé elle s’exécute très rapidement
c'est cette macro "test" ou je voudrais savoir si je peut faire quelque chose pour l'acceleré en "fichier partagé"
Avez vous une idée???
Merci d 'avance
Option Explicit
Option Compare Text
Sub test()
Dim cel As Range
For Each cel In Range([B2], [B650].End(xlUp))
If cel.Value = "1" Then
Range(Cells(cel.Row, "C"), Cells(cel.Row, "I")).Copy Sheets("autocontrole").[M650].End(xlUp).Offset(1, 0)
End If
Next
Sheets("autocontrole").Activate
Range("B5").Value = Format(Now, "mm/dd/yyyy")
Range("M2").Copy Destination:=Range("C12")
Range("N2").Copy Destination:=Range("J13")
Range("O2").Copy Destination:=Range("A10")
Range("S2").Copy Destination:=Range("B7")
Range("R2: R13").Copy Range("A19,A36")
Columns("M:S").Delete Shift:=xlToLeft
Cells.Select
With Selection.Font
.Size = 11
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil1").Select
Columns("B:B").Select
Selection.ClearContents
Range("I2").Select
End Sub