Comptage de cellules Grisées

Re : Comptage de cellules Grisées

Bonsoir Hbb, bonsoir le forum,

Je ne sais pas si tu as le code pour repérer la plage concernée mais j'ai ignoré cette partie puisque tu disais que ton problème était dans l'utilisation de ActiveCell.Interior.Pattern = xlLightUp.

Je te propose le code suivant que tu adapteras s'il te convient :

Re : Comptage de cellules Grisées

Merci Robert pour ta réponse,

ça marche en effet quand la plage de cellules est fixe ("C4:J4") dans ton exemple.

J'ai essayé de l'adapter à mon code et ça ne marche pas au niveau de la partie en gras.
Les variables col et coldepart ne sont pas reconnues !!!!

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim qpremi As Integer
Dim temp As Integer
Dim cel As Range
Dim col As Byte
Dim coldepart As Byte

etc...

Range("BP21").Activate
ActiveCell.End(xlToLeft).Select
qpremi = ActiveCell.Value
coldepart = ActiveCell.Column

v = Range("C6").Value
w = ActiveCell.Offset(-4, 0).Value
x = v + w

ActiveCell.Offset(1, -x).Activate

col = coldepart - x

Range("Cells(22,col):Cells(22,coldepart)").Select


temp = 0
For Each cel In Range("Cells(22,col):Cells(22,coldepart)")
If cel.Interior.Pattern = xlLightUp Then
temp = temp + 1
End If
Next

etc...


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Merci pour votre aide.
A+
Hbb

Re : Comptage de cellules Grisées

Désolé pour cette question précédente à laquelle j'ai trouvé la réponse en appuyant sur "envoyer" !!!!!!!!!
La prochaine fois je réfléchirai un peu plus longtemps.

Range(Cells(22, col), Cells(22, coldepart)).Select


A+
Hbb