[VBA-E]exécution lente de la macro après aperçu

Version imprimable

28/03/2006, 16h36
cwain

[VBA-E]exécution lente de la macro après aperçu

Bonjour,

J'ai écrit une macro qui s'exécute automatiquement à chaque clic différent sur la feuille (Worksheet_SelectionChange). Cette macro est à destination d'autres utilisateurs.
L'exécution de cette macro est rapide et ne gêne pas l'utilisateur. Le problème vient après que l'utilisateur clique sur "aperçu avant impression". De retour à la feuille, l'exécution de la macro est beaucoup plus lente et devient gênante.
Quelqu'un pourrait-il me renseigner sur le sujet ?

Merci d'avance,

Cwain

(Config : Excel 2003 professional edition)
28/03/2006, 17h12
méphistopheles

et que fait la macro?

Voilà le contexte :
Recherche de mots clés (pour éviter que la macro marche plus si l'utilisateur rajoute des lignes etc...)
sur quelques cases, apparition d'une boite de dialogue sélectionner ? oui/non pour mettre en forme la ligne entière

heu désolé, je sais pas si ya une manière plus classe de mettre le code dans ce message :oops:
Embarassed

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim LigneDebut As Integer
Dim LigneMilieu As Integer
Dim LigneFin As Integer
Dim Colonne As Integer
 
Colonne = ActiveCell.Column
LigneDebut = Cells.Find(What:="production", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Row
 
LigneMilieu = Cells.Find(What:="logistique", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Row
 
LigneFin = Cells.Find(What:="totaux", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Row
 
'sélection de l'étape ou non
 
If Colonne = 5 And (ActiveCell.Row > LigneDebut And ActiveCell.Row < LigneFin) Then
        UserForm1.Show
End If
 
'pour mettre en gras la ligne sélectionnée
 
For i = LigneDebut + 1 To LigneFin - 1
    If i <> LigneMilieu Then
        If Cells(i, 5).Value = "X" Then
            With Range(i & ":" & i)
                With .Font
                    .Bold = True
                    .Color = black
                End With
            End With
 
        Else
 
            With Range(i & ":" & i)
                With .Font
                    .Bold = False
                    .Color = RGB(100, 100, 100)
                End With
            End With
        End If
    End If
Next
 
End Sub

Balises [code][/code] ajoutées par ridan, penses-y la prochaine fois ... merci ;)

28/03/2006, 17h25
jmfmarques

Il me semble qu'Ouskel'n'or, Bbil et Megaxel ont expliqué plusieurs fois qu'il valait mieux inhiber l'affichage pendant ces travaux là (ta boucle). :cry:
28/03/2006, 17h30
cwain

oui, mais l'exécution passant inaperçue la plupart du temps, j'ai oublié d'inhiber l'affichage, ce que je vais faire. Mais je ne comprend pas pourquoi le fait d'utiliser l'aperçu avant impression ralentisse la macro

Merci pour le rappel :D
28/03/2006, 17h32
méphistopheles

Citation:

Envoyé par cwain

heu désolé, je sais pas si ya une manière plus classe de mettre le code dans ce message :oops:

oui, sélectione le et clique sur le bouton [Code]
désolé, mais je n'ai pas plus d'idée (voire moins) que jfmarques pour ton problème...

Edit, ça ralentis l'impression, par-ce que ça rajoute des procédures d'affichage qui doivent charger le mémoire ou la pile et doivent rester lattent même après fermeture. ([troll]c'est du code M$ donc...[/troll])

salut :wink:
28/03/2006, 17h49
cwain

OK merci, ça marche de nouveau bien en bloquant l'affichage !

:D