Format de cellules

Version imprimable

Format de cellules

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:

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

26/09/2018, 16h22
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.
26/09/2018, 17h51
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à
28/09/2018, 09h25
esse2016
Bonjour au forum

avec
Code:

1 2 3 Application.ScreenUpdating = False code... Application.ScreenUpdating = True
ça fonctionne bien sans ralentissement.

Merci

Bonne journée.