Mise en forme conditionnelle et Macro VBA
Bonsoir à toutes et à tous,
J'ai une macro qui créer un tableau de dimension variable mais dont le coin supérieur gauche est F7.
Lorsque j'effectue le lancement de cette macro, je souhaiterais que les cellules de ce tableau "aient été préparées" à la mise en forme conditionnelle.
Plusieurs problèmes se posent :
1 ) si je fait une macro de ce style avec
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
|
range(cells(7,6),cells(7+i , 6+k)).select ' sélection du tableau
if n<0.25 then
With Selection.Font
.Color = -16727809 ' écriture Orange
End With
With Selection.Interior
.Color = 49407 ' fond orange
End With
elseif n>=0.25 and n<0.5 then
With Selection.Font
.Color = -16711681 ' écriture jaune
End With
With Selection.Interior
.Color = 65535 ' fond jaune
End With.
elseif n>=0.5 and n<0.75 then
With Selection.Font
.Color = -11480942 ' écriture vert clair
End With
With Selection.Interior
.Color = 5296274 ' fond vert clair
End With
else
. With Selection.Font
.Color = -11489280 ' écriture vert foncé
End With
With Selection.Interior
.Color = 5287936 ' fond vert foncé
End With
End if |
Lorsque le tableau est fabriqué, étant donné qu'il n'y a pas de valeur dedans ( tableau encore vierge ), toute les cellules seront blanches et si on rentre une valeur, la macro étant terminé, il faudrait la relancer ( et par conséquent refait le tableau vierge ).
2) Je souhaite donc résoudre ce problème : Lorsque la macro est terminé", ( tableau fait ), si je rentre par exemple 0.3 ( ou 30% c'est encore mieux ) dans la cellule G9, celle-ci possède une écriture jaune sur fond jaune ( afin de ne pas visualiser le contenu mais que je veux utiliser après pour des formules... )
Je vous remercie d'avance pour votre aide.
NOVICE72
