Discussion :

[mouftie]

Bonjour,
Je travaille sur un planning qui répartit des activités en fonction de certains critères pour un goupe de personnes. Ce travail se fait sur un fichier annexe.
Le fichier Planning contient une macro évènementielle qui empêche l'écriture de données les jours fériés et les we. Tout cela fonctionne fort bien, mais à la fin, je dois aller copier les activités réparties et les copier dans mon planning.
Or cette dernière opération dure près de 2 mn, pour moi c'est une éternité
Il y a près de 3000 cellules à copier coller
Voici la macro évènement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
''''''''''''''EMPECHER L ECRITURE LES WE & FERIES
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Application.ScreenUpdating = False      'Empêche l'actualisation de l'écran
Application.EnableAnimations = False    'Cache le déroulement => Accélère
Dim c As Range
On Error Resume Next
    Static noEvents As Boolean
    If noEvents Then Exit Sub
    Set plg = Intersect(Intersect(Target, [C:AG]), [3:120])
    For Each c In plg
        If Weekday(Cells(3, c.Column), vbMonday) > 5 Or Application.CountIf([FERIES], Cells(3, c.Column)) > 0 Then
            noEvents = True
            c.Value = Empty
            noEvents = False
        End If
    Next c
On Error Resume Next
Application.ScreenUpdating = True
Application.EnableAnimations = True
End Sub

Est-ce quelqu'un a une solution pour accéler la chose svp, d'autant que si l'utilisateur s'impatiente et echap, le fichier des activités ne se ferme pas et l'utilisateur ne doit pas le voir et s'il l'enregistre, je perds toutes les formules...
Merci de votre aide.

[Marc-L]

Bonjour,

déjà voir l'intruction On Error Resume Next fait penser à un problème de conception …
S'il y a des erreurs, forcément cela ne peut aller vite !

Envisager une conception avec un filtre ou encore un filtre avancé …
Et sans On Error, cela aide à voir les erreurs !

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[mouftie]

Bonjour Marc,
Merci de ta réponse.
Je ne maitrise pas bien les modalités de la gestion d'erreur (malgré le tuto http://silkyroad.developpez.com/VBA/...eurs/#LIII-A-3).
J'ai essayé de les retirer, mais j'ai un message d'erreur sur la ligne

Code :

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

Set plg = Intersect(Intersect(Target, [C:AG]), [3:120])

qui dit "l'élément portant ce nom est introuvable). Je ne suis pas plus avancée.

Je ne vois pas non plus comment utiliser des filtres ou filtres avancés pour récupérer des données.
Merci

[joe.levrai]

Bonjour,
cette ligne m'a l'air un peu tirée par les cheveux.

tu veux assigner à la variable plg l'intersection entre tes cellules modifiées et la zone C3:AG120 ?
une autre approche pour rester sur ta version ... mais une bonne conception de ta feuille de planning en termes de disposition doit pouvoir éviter ce contrôle évènementiel.

mais ça je ne peux pas t'aider, nous ne l'avons pas sous les yeux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim Plage As Range
 
Application.ScreenUpdating = False
    Set Plage = Intersect(Target, Cells(3, 1).Resize(120, 33))
    If Not Plage Is Nothing Then
        For Each Cell In Plage.Cells
            If Weekday(Cells(3, Cell.Column), vbMonday) > 5 _
            Or Application.CountIf([FERIES], Cells(3, Cell.Column)) > 0 Then
                Application.EnableEvents = False
                Cell.ClearContents
                Application.EnableEvents = True
            End If
        Next Cell
    End If
Application.ScreenUpdating = True
 
End Sub

[patricktoulon]

je suis d'accords avec marc

pour moi c'est plutot un soucis de conception

tu resize une plage de 120 ligne sur 33 colonne
pour en tester que la ligne 3

[mouftie]

Bonjour Joe et Patrick,
Merci pour votre aide.

Patrick, je ne vois pas ce que tu veux dire par

tu resize une plage de 120 ligne sur 33 colonne, pour en tester que la ligne 3

Ma procédure fonctionne sur toute la plage, si j'écrits quelque chose un weekend de la lige 100, le texte s'efface.

Joe, j'ai remplacé ma procédure ci-dessus par la tienne [juste en rectifiant Set Plage = Intersect(Target, Cells(3, 1).Resize(120, 33)) par Set Plage = Intersect(Target, Cells(3, 3).Resize(120, 33))].
Mais le temps reste exactement le même.
quand tu dis

mais une bonne conception de ta feuille de planning en termes de disposition doit pouvoir éviter ce contrôle évènementiel.

A quoi penses-tu ? As-tu un exemple ?

Merci

[mouftie]

Bonjour à tous,
J'ai écouté les conseils de Joe :

mais une bonne conception de ta feuille de planning en termes de disposition doit pouvoir éviter ce contrôle évènementiel.

J'ai supprimé la procédure évènementielle et l'ai remplacée par une procédure normale, que j'ai insérée (avec des Call) à chaque modification importante, avec un bouton pour le faire à la demande et en sortie (ThisWorkbook_BeforeClose) sur toutes les feuilles pour que le fichier soit propre à l'ouverture.
Cela rallonge les procédures de qq 10ème de seconde, soit rien du tout et la procédure qui posait vraiment problème se déroule maintenant en 7 secondes (avec le nettoyage des cellules de WE et Jours Fériés).
Je suis très contente.
Merci