Discussion :

[CAPELLO12]

Bonjour le forum,

Je vient ver vous pour un petit soucis de macro que je n'arrive pas a comprendre.
Cette macros fonctionne normalement, elle me copie des lignes avec des couleurs de plusieurs feuille et m'en fais la synthése sur une autre.
Mais des que je passe le classeur en mode partager sur le réseau.
La copie se fait mais elle ne n'affiche plus les couleurs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Application.ScreenUpdating = False
Sheets("Absences").Select
Range("A5") = " "
    Rows("5:" & Range("A65535").End(xlUp).Row + 1).Delete Shift:=xlUp
For i = 2 To Sheets.Count
    Sheets(i).Select
    For J = Cells(Rows.Count, "a").End(xlUp).Row To 5 Step -1
        If Application.WorksheetFunction.CountA(Range("a" & J).Offset(, 2).Resize(, 40)) <> 0 Then Rows(J).Copy Destination:=Sheets("Absences").Cells(Sheets("Absences").Range("A65535").End(xlUp).Row + 1, 1)
    Next J
Next i
Sheets("Absences").Select
Application.ScreenUpdating = True

Merci de vos réponses
A+