macro a simplifier

Version imprimable

30/01/2014, 19h31
saloupio

macro a simplifier

Bonjour,
J'ai enregistré une macro qui sélectionne les plages
g4;g34, m4;m34, s4;s34, y4;y34, ae4;ae34, ak4;ak34, aq4;aq34, aw4;aw34, bc4;bc34, bi4;bi34, bo4;bo34 et bu4;bu34

ensuite supprime leur contenu et met un fond blanc.

ensuite cette macro sélectionne les mêmes plages une colonne avant (cad f4;f34, l4;l34....) et les remplies avec un fond blanc.

le problème est que cette macro met bien 15 ou 20s a s'appliquer. Pourriez vous me donner une solution qui effectue ces taches rapidement??
De même pour une autre macro qui sélectionne les plages du 1er problème ( g4;g34, m4;m34....) qui ensuite cherche le mot :
PLD, et les remplies en vert
1/2 JOURNEE en rouge
SERVICE en bleu
CONGE en jaune
Sachant que les 3 MFC sont déjà utilisées.

Merci
30/01/2014, 19h49
Invité

Bonsoir,

j'ai pas bien compris! c'est une macro à simplifier ou à faire?

il s'agit d'une macro qui fonctionne mais qui est beaucoup trop lourde car elle provient de l'enregistreur de macro. elle est de ce type:

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
Sub coloriage1()
'
' coloriage1 Macro
'
 
'
    ActiveWindow.SmallScroll Down:=-21
    Range("G4:G34,M4:M34,S4:S34,Y4:Y34").Select
    Range("Y34").Activate
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65280
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Replace What:="PLD", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Replace What:="1/2 JOURNEE", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Replace What:="SERVICE", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
End Sub