dans l'onglet planning, la durée d'amélioration des tours d'archers COSTS_Archer_Tower (D25) renvoie en fait à la durée des canons COSTS_Cannon
de plus dans le code vba du planning, j'ai déplacé le fait de remettre à zero le pourcentage réalisé quand la date de début réel n'est plus renseigné avant les lignes qui masquent si le pourcentage réalisé est à 100%
en effet, si on renseigne la date de début, qui fait que le réalisé est à 100%, même en enlevant la date de début réel, la ligne est masquée car le % réalisé à à 100%
ca donne ca:
de plus dans le code vba du planning, j'ai déplacé le fait de remettre à zero le pourcentage réalisé quand la date de début réel n'est plus renseigné avant les lignes qui masquent si le pourcentage réalisé est à 100%
en effet, si on renseigne la date de début, qui fait que le réalisé est à 100%, même en enlevant la date de début réel, la ligne est masquée car le % réalisé à à 100%
ca donne ca:
Code:
For NumLigne = 8 To DernLigne
'Remet le % à 0 en cas de supression de la date de début réel
If .Cells(NumLigne, 6) = "" And .Cells(NumLigne, 8) <> "" Then
.Cells(NumLigne, 8) = ""
End If
'Masquer les lignes 100% réalisées
If .Cells(NumLigne, 8) = 1 Then
.Rows(NumLigne & ":" & NumLigne).EntireRow.Hidden = True
End If
'Calcul du pourcentage réalisé
If .Cells(NumLigne, 6) <> "" Then
'Test si le temps de construction est null. Par exemple les remparts ou les heros 1
If .Cells(NumLigne, 7) <> 0 Then
.Cells(NumLigne, 8) = WorksheetFunction.Min(1, WorksheetFunction.Round((Now - .Cells(NumLigne, 6)) / .Cells(NumLigne, 4), 2))
'décommenter pour effacer la planif
' .Cells(NumLigne, 5) = ""
Else
'cas ou c'est un rempart
.Cells(NumLigne, 8) = 1
'décommenter pour effacer la planif
' .Cells(NumLigne, 5) = ""
End If
'Remet le % à 0 en cas de supression de la date de début réel
End If
Next
Dernière édition par un modérateur:
