programmation de macro

Version imprimable

bonjour,

Je souhaite que cette macro me permette de colorer en gris le fond de mes cellules quand "risque acceptable" apparait dans les cellules appelées (i,11).
Il me semble que ma macro est juste mais je dois avoir oublié quelquechose. Si vous voyez de quoi il s'agit ca m'aiderait beaucoup.

Merci d'avance

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 'calcul résultat
Range("J11").Select
ActiveCell.FormulaR1C1 = "=RC[-5]*RC[-3]*RC[-1]"
Range("J11").Select
Selection.AutoFill Destination:=Range("J11:J1000"), Type:=xlFillDefault
Range("J11:J1000").Select
 
'affichage commentaire
For i = 11 To 1000
Select Case Cells(i, 10)
Case Is = 0
Cells(i, 11) = "-"
Cells(i, 10) = "-"
Case 1 To 249
Cells(i, 11) = "Risque acceptable"
Cells(i, 11).Interior.ColorIndex = 43
Case 250 To 899
Cells(i, 11) = "Actions à mettre en place à plus ou moins long terme"
Cells(i, 11).Interior.ColorIndex = 44
Case Else
Cells(i, 11) = "Risque inacceptable : Plan d'action et planning à respecter"
Cells(i, 11).Interior.ColorIndex = 46
End Select
Next i
 
'quand risque acceptable pas de seconde cotation
Dim ligne1 As Long
Dim ligne2 As Long
Dim ligne3 As Long
Dim ligne4 As Long
 
ligne1 = Application.WorksheetFunction.CountA(Range("K:K")) + 9
ligne2 = Application.WorksheetFunction.CountA(Range("K:K")) + 10
ligne3 = Application.WorksheetFunction.CountA(Range("K:K")) + 11
ligne4 = Application.WorksheetFunction.CountA(Range("K:K")) + 12
 
If Cells(ligne1, 11) = "Risque acceptable" Then
Range(Cells(ligne1, 13), Cells(ligne4, 15)) = 0
Range(Cells(ligne1, 12), Cells(ligne4, 18)).Interior.ColorIndex = 15
End If
If Cells(ligne2, 11) = "Risque acceptable" Then
Range(Cells(ligne1, 13), Cells(ligne4, 15)) = 0
Range(Cells(ligne1, 12), Cells(ligne4, 18)).Interior.ColorIndex = 15
End If
If Cells(ligne3, 11) = "Risque acceptable" Then
Range(Cells(ligne1, 13), Cells(ligne4, 15)) = 0
Range(Cells(ligne1, 12), Cells(ligne4, 18)).Interior.ColorIndex = 15
End If
If Cells(ligne4, 11) = "Risque acceptable" Then
Range(Cells(ligne1, 13), Cells(ligne4, 15)) = 0
Range(Cells(ligne1, 12), Cells(ligne4, 18)).Interior.ColorIndex = 15
End If
End Sub

07/05/2008, 15h56
cafeine

Hello,

je suis hors sujet, mais le formatage conditionnel me paraît plus simple pour colorer en fonction du texte.
07/05/2008, 16h10
lilou86

Formatage conditionnel ?

c'est le faire manuellement ou avec un programme (desolée ca fait pas tres longtemps que je programme et des fois j'ai du mal avec le vocabulaire).
07/05/2008, 16h28
lilou86

J'ai regardé c'est de la programmation. Mais je sais pas trop comment m'y prendre.

mes lignes se remplissent 4 par 4 et mon resultat se trouve sur 1 de ces 4 lignes. je voudrais que les 4 lignes des colonnes d'apres soit grisés qd le risque est acceptable et que dans certaines cellules 0 s'affiche.
(je ne sais pas si c'est tres clair ce que je viens d'écrire! lol)

merci d'avance

Les variables en rouge dans votre code sont hors la boucle
ligne1=999
ligne2=1000
ligne3=1001
ligne4=1002

executer ce code une fois suffira ou placer le dans une autre macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
   Range("J11").Select
ActiveCell.FormulaR1C1 = "=RC[-5]*RC[-3]*RC[-1]"
Range("J11").Select
Selection.AutoFill Destination:=Range("J11:J1000"), Type:=xlFillDefault
Range("J11:J1000").Select
'//---------------------------------------------------------------------
 
'affichage commentaire
For i = 11 To 1000
 
 
Select Case Cells(i, 10)
Case Is = 0
Cells(i, 11) = "-"   
Cells(i, 10) = "-" 'ce code efface la formule
'ajouter ici le couleur par defaut de la page
Cells(i, 11).Interior.ColorIndex = xlNone
Case 1 To 249
Cells(i, 11) = "Risque acceptable"
Cells(i, 11).Interior.ColorIndex = 43
Case 250 To 899

13/05/2008, 07h53
lilou86

merci beaucoup,

desolee pour le retard je n'ai pas internet chez moi.

bonne journee