Lenteur execution macro fichier partage

Le 08/03/2014 à 21:57

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

22charge-derouleur.xlsm (88.93 Ko)
Le 08/03/2014 à 22:55

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

Le 09/03/2014 à 10:50

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
Rechercher des sujets similaires à "lenteur execution macro fichier partage"