Salut le forum
J'ai plusieurs feuilles et parmi ces feuilles je souhaite agir sur certaines.
J'ai essayé de réaliser ce code mais il ne marche pas.
Pouvez-vous l'apprécier pour moi?
En effet, je cherche à réaliser une mise en forme de certaines cellules de mes feuilles mais pas toutes.
Il s'agit des feuilles dont les noms (onglets) contiennent le mot TBC.
Ci-dessous mon code:
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50 Sub Format() ' Dim Feuille As Worksheet For Each Feuille In Worksheets If InStr(1, Feuille.Name, "TBC") > 1 Then Feuille.Select Range("G22:G24,I22:I24,K22:K24,M22:M24,O22:O24,Q22:Q24").Select Range("Q22").Activate ActiveWindow.SmallScroll ToRight:=2 ActiveWindow.SmallScroll Down:=18 Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With Selection.Borders(xlInsideVertical).LineStyle = xlNone With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Range("K25").Select End If On Error Resume Next Next End Sub
Partager