Je viens d'essayer.
effectivement, je viens de comprendre comment ça fonctionne.
Mais:
L’élixir noir n'est pas pris en cpt, le test sur la couleur n'est pas bon. il faut remplacer les 38 par 39 (dans mon cas).
les améliorations utilisent un ouvrier alors que ce n'est pas le cas ds le jeu.
j'ai réduit le code (traitement qui représentait 4 fois la même chose):
DernLigne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'Pour l'ensemble de la période
For IntPeriod = 2 To 5
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 8 To DernLigne
'Si "Rempart" / "Wall"../..
'Si Période Sélectionnée
If .Cells(NumLigne, 5) = .Cells(IntPeriod, 9) Then
../..
Case Is = RGB(39, 39, 39)
../..
Next
.Cells(IntPeriod, 11) = NB
.Cells(IntPeriod, 12) = Var_Or
.Cells(IntPeriod, 14) = Var_Elixir
.Cells(IntPeriod, 16) = Var_Elixir_Noir
Next
'Verrouille la feuille
La prochaine publication prendra en compte cette modif.
[DOUBLEPOST=1433599065,1433598890][/DOUBLEPOST]il y a un bug d'affichage pour les temps inférieurs au jour.
la plage affichée part sur la gauche...