Discussion :

[esse2016]

bonjour au forum,

J'ai un certains nombres de cellules dont je souhaite colorier en blanc avec bordure. Le code ci-dessous fonctionne mais ça rame.

Est-ce que je procède correctement ou peut-on faire mieux sans que cela rame ?
(je n'ai pas essayé encore essayer d'enlever application qui rafraichit par false puis remettre à true je ne me souviens plus de l'application.????)

Merci par avance pour votre aide

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
 For i = 0 To 17 'incrémente le nombre de case à afficher ici i=0 correspond à cellule B9
 If Not ((i = 2) Or (i = 6) Or (i = 13) Or (i = 16)) Then
 Range("B9").Offset(0, i).Interior.ColorIndex = 2
 With Range("B9").Offset(0, i).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.14996795556505
        .Weight = xlThin
    End With
    With Range("B9").Offset(0, i).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.14996795556505
        .Weight = xlThin
    End With
    With Range("B9").Offset(0, i).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.14996795556505
        .Weight = xlThin
    End With
    With Range("B9").Offset(0, i).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = -0.14996795556505
        .Weight = xlThin
    End With
 End If
 Next i

[Menhir]

Pour une macro aussi courte et avec un si petit nombre d'itérations, il semble incompréhensible qu'elle soit lente.
A moins qu'elle soit dans une macro évènementielle souvent déclenchée et que "ça rame" signifie que ça ralentit ton système.
Ou qu'il y ait des éléments que tu ne nous communiques pas.

[esse2016]

Bonjour Menhir,

Hélas, j’ai fait un bouton sur la feuille.
Lorsqu’on clique sur le bouton il appelle la procedure Private sub ajoutV
Puis execute le code indiqué

Voilà

[esse2016]

Bonjour au forum

avec

Code :

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

1
2
3
Application.ScreenUpdating = False
code...
Application.ScreenUpdating = True

ça fonctionne bien sans ralentissement.

Merci

Bonne journée.