Discussion :

[mobiclick]

Bonjour le forum,

Merci à toute la communauté pour le travail remarquable

Mon problème est le suivant:

J'ai détecté une macro qui fait trembler mon tableau excel 2007 lorsque j'utilise les touches de directions ,car en supprimant la macro en question mon tableau redevient normal.Je crois que le code n'est pas optimisé.Le voici:

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
21
22
23
24
25
26
27
28
29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
For Each Cell In Range("K11:K52")
    If Cell = "" Then
        Cell.Offset(0, 2) = ""
    End If
Next
For Each Cell In Range("O11:O52")
    If Cell = "" Then
        Cell.Offset(0, 2) = ""
    End If
Next
For Each Cell In Range("T11:T52")
    If Cell = "" Then
        Cell.Offset(0, 2) = ""
    End If
Next
For Each Cell In Range("Z13:Z51")
    If Cell = "" Then
        Cell.Offset(0, 3) = ""
    End If
Next
For Each Cell In Range("AK16:AK30,AT16:AT30,BC16:BC30,BL16:BL30,BU16:BU30,CD16:CD30")
    If Cell = "" Then
        Cell.Offset(0, 2) = ""
    End If
Next
 
End Sub

Merci d'avance

[Gord21]

Bonjour,
Au début de ta procédure, tu peux ajouter :

Code :

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

Application.ScreenUpdating = False

ce qui a pour effet de geler la mise à jour de l'écran pendant le déroulement de ta macro.
Juste avant le End Sub, tu réactives avec

Code :

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

Application.ScreenUpdating = True

@+

[mobiclick]

Bonjour le forum,
Merci Gord21 mais j'ai déjà essayé le ScreenUpdating sans succès ...je ne sais pas pourquoi mais l'écran scintille tjrs!! Peut-être qu'une modification de la macro en question donnera quelquechose ?
merci

[mercatog]

étrange emplacement du code
à chaque sélection d'une cellule, le code est exécuté? dans quel but?

[Yoyo57]

Bonjour mobiclick, bonjour tout le monde,

Comme l'a bien dit mercatog, il est étonnant que tu veuilles exécuter ton code à chaque changement de cellule. C'est ce qui provoque le scintillement.

Je pense que tu devrais faire un test sur Target et n'exécuter ce code que pour certaines valeurs particulières de Target.

Si ton besoin est réellement d'exécuter ce code à chaque fois, je pense que la solution de Gord21 est pertinente. Je te propose d'ajouter :

Code :

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

1
2
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

au début du code et

Code :

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

1
2
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

à la fin du code.

[babaothe]

salut

en plus de la remarque judicieuse faite par mercatog quant à la l'utilité de ne provoquer le déclenchement de ces boucles que lorsque nécessaire :
- Je dirais que tes "tremblements" visuels sont ceux de ton curseur et non ceux de ta feuille..
- je cacherais alors (y compris avec ton code, tel qu'il est) le curseur pendant les boucles et le remontrerais à la fin, ainsi :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
' a mettre dans la partie générale de ton module
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ShowCursor 0
 ScreenUpdating = False
  For Each Cell In Range("K11:K52")
    If Cell = "" Then
        Cell.Offset(0, 2) = ""
    End If
  Next
  For Each Cell In Range("O11:O52")
    If Cell = "" Then
        Cell.Offset(0, 2) = ""
    End If
  Next
  For Each Cell In Range("T11:T52")
    If Cell = "" Then
        Cell.Offset(0, 2) = ""
    End If
  Next
  For Each Cell In Range("Z13:Z51")
    If Cell = "" Then
        Cell.Offset(0, 3) = ""
    End If
  Next
  For Each Cell In Range("AK16:AK30,AT16:AT30,BC16:BC30,BL16:BL30,BU16:BU30,CD16:CD30")
    If Cell = "" Then
        Cell.Offset(0, 2) = ""
    End If
  Next
 ShowCursor 1
 ScreenUpdating = True
End Sub