[XL-2007] tableau sous excel 2007 [Résolu]

[chris09300]

bonjour
Je suis sur excel 2007
j'ai un tableau de 31 colonnes sur 65 lignes.
de C9 a AG9
j'aimerais quand il y a une cellule de couleur jaune, que s'affiche dans la
cellule B9 la valeur de 25%
s'il trouve eux cellules jaunes alors toujours en B9 valeur 50%
3 celulles 75% et 4 celulles 100%
une fois les 31 cellules en horizontales scrutees, que ca descende a ligne du dessous, et ainsi de suite jusqu'a la 65 eme lignes.
J'ai essayer avec plusieurs macros je ne suis arrive qu'a avoir la premiere ligne valable.
merci
christian

[chris09300]

j'ai un debut de macro, mais ce qui m'ennui, c'est qu'il faut que je recopie ces 4 lignes 65 fois. Car a chaque fois j'incremente la cellule de 1 comme ecris en rouge. existe t'il une boucle ou autre, car je pense que c'est fastidieux et avec risque d'erreurs d'oublis

Code :

1
2
3
4
5
6
7
8
9
10
If Range("C9").Interior.Color = 65535 Then Range("B9") = 0.25
If Range("K9").Interior.Color = 65535 Then Range("B9") = Range("B9") + 0.25
If Range("R9").Interior.Color = 65535 Then Range("B9") = Range("B9") + 0.25
If Range("Y9").Interior.Color = 65535 Then Range("B9") = Range("B9") + 0.25


If Range("C10").Interior.Color = 65535 Then Range("B10") = 0.25
If Range("K10").Interior.Color = 65535 Then Range("B10") = Range("B10") + 0.25
If Range("R10").Interior.Color = 65535 Then Range("B10") = Range("B10") + 0.25
If Range("Y10").Interior.Color = 65535 Then Range("B10") = Range("B10") + 0.25

merci d'avance

[U. Milité]

Bonjour,

Essaie quelque chose comme:

Code :

1
2
3
4
5
6
7
 
For i = 9 to 74 'à vérifier !
If Range("C" & i).Interior.Color = 65535 Then Range("B" & i) = 0.25
If Range("K" & i).Interior.Color = 65535 Then Range("B" & i) = Range("B" & i) + 0.25
If Range("R" & i).Interior.Color = 65535 Then Range("B" & i) = Range("B" & i) + 0.25
If Range("Y" & i).Interior.Color = 65535 Then Range("B" & i) = Range("B" & i) + 0.25
Next i