Discussion :

[chris09300]

bonjour
je suis sur excel 2007. j¡ai un tableau de 31 colonnes sur 65 lignes.
je souhaiterais faire une macro, qui cherche ligne par ligne.
si il y a une case de couleur jaune que s'affiche dans la case rouge a gauche 25%
s'il y 2 case jaune = 50%
3 = 75% et 4 case 100%
et que la macro descende d'une ligne dans le tableau , fais la meme recherche que ci dessus et note la valeur dans la case bleu.
et ainsi de suite jusqu'a la 65 eme ligne.
je joint ci dessous une capture d'ecran de mon fichier.
j'ai essayer plusieurs macro sans resultat, ca marche que sur la 1 ligne
merci

http://imagik.fr/view/362524

[mercatog]

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
Function CptCouleur(Rng As Range) As String
Dim c As Range
Dim Cpt As Integer
 
For Each c In Rng
   If c.Interior.Color = vbYellow Then Cpt = Cpt + 1
   If Cpt = 4 Then Exit For
Next c
CptCouleur = IIf(Cpt = 0, "", 100 * Cpt / 4 & "%")
End Function
Sub Test()
Dim i As Integer
 
With Sheets("Feuil2")   'à adapter
   For i = 2 To 66
      .Range("A" & i).Value = CptCouleur(.Range("B" & i & ":AF" & i))
   Next i
End With
End Sub