Pelusse
P.E.K.K.A
- 10 Octobre 2013
- 358
- 101
- 58
- Niveau
- 125
- Clan
- ZOB
- Niveau du clan
- 4
- Rang de Clan
- Chef adjoint
- Ligue
- Master I
Reinitialiser plannig :
Sub Reinitialiser_Planning()
'Fonction qui défini le nom des feuilles
Déclaration_Onglets
With ThisWorkbook
With WS_Plan
'Déverrouille la feuille
.Unprotect
'Afficher toutes les lignes
With .Cells
.EntireRow.Hidden = False
End With
'Détermine la dernière ligne
DernLigne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'De la ligne 8 à la dernière ligne
For NumLigne = 8 To DernLigne
'Le nombre est inscrit dans Var
Var = .Cells(NumLigne, 2)
'Si la valeur n'est pas vide alors supprimer la ligne
If Var <> "" Then
.Rows(NumLigne & ":" & NumLigne).EntireRow.Delete xlShiftUp
NumLigne = NumLigne - 1
End If
Next
'Masque la ligne 6
.Range("I6").EntireRow.Hidden = True
'Verrouille la feuille
.Protect
.EnableSelection = xlUnlockedCells
End With
End With
End Sub
Sub Cout_Periode()
'Fonction qui défini le nom des feuilles
Déclaration_Onglets
Rafraichissement_Ecran_OFF
With ThisWorkbook
With WS_Plan
'Déverrouille la feuille
.Unprotect
'Détermine la dernière ligne
DernLigne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 5 To DernLigne
'Si "Rempart" / "Wall"
If (Left(.Cells(NumLigne, 1), 4) <> "Remp" And Left(.Cells(NumLigne, 1), 4) <> "Wall") Then
'Si Période Sélectionnée
If .Cells(NumLigne, 5) = .Cells(2, 5) Then
'Le nombre est inscrit dans Var1
Var1 = .Cells(NumLigne, 3)
If Var1 <> "" Then
'Si la couleur de la cellule est "Or" alors
Select Case .Cells(NumLigne, 3).Interior.Color
Case Is = RGB(255, 192, 0)
Var_Or = Var1 + Var_Or
'MsgBox Var
Case Is = RGB(164, 30, 178)
Var_Elixir = Var1 + Var_Elixir
'MsgBox Var
Case Is = RGB(38, 38, 38)
Var_Elixir_Noir = Var1 + Var_Elixir_Noir
'MsgBox Var
End Select
NB = NB + 1
End If
End If
End If
Next
.Cells(2, 11) = NB
.Cells(2, 12) = Var_Or
.Cells(2, 14) = Var_Elixir
.Cells(2, 16) = Var_Elixir_Noir
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 5 To DernLigne
'Si "Rempart" / "Wall"
If (Left(.Cells(NumLigne, 1), 4) <> "Remp" And Left(.Cells(NumLigne, 1), 4) <> "Wall") Then
'Si Période Sélectionnée +1
If .Cells(NumLigne, 5) = .Cells(2, 5) + .Cells(2, 4) Then
'Le nombre est inscrit dans Var1
Var1 = .Cells(NumLigne, 3)
If Var1 <> "" Then
'Si la couleur de la cellule est "Or" alors
Select Case .Cells(NumLigne, 3).Interior.Color
Case Is = RGB(255, 192, 0)
Var_Or = Var1 + Var_Or
'MsgBox Var
Case Is = RGB(164, 30, 178)
Var_Elixir = Var1 + Var_Elixir
'MsgBox Var
Case Is = RGB(38, 38, 38)
Var_Elixir_Noir = Var1 + Var_Elixir_Noir
'MsgBox Var
End Select
NB = NB + 1
End If
End If
End If
Next
.Cells(3, 11) = NB
.Cells(3, 12) = Var_Or
.Cells(3, 14) = Var_Elixir
.Cells(3, 16) = Var_Elixir_Noir
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 5 To DernLigne
'Si "Rempart" / "Wall"
If (Left(.Cells(NumLigne, 1), 4) <> "Remp" And Left(.Cells(NumLigne, 1), 4) <> "Wall") Then
'Si Période Sélectionnée +2
If .Cells(NumLigne, 5) = .Cells(2, 5) + (2 * .Cells(2, 4)) Then
'Le nombre est inscrit dans Var
Var1 = .Cells(NumLigne, 3)
If Var1 <> "" Then
'Si la couleur de la cellule est "Or" alors
Select Case .Cells(NumLigne, 3).Interior.Color
Case Is = RGB(255, 192, 0)
Var_Or = Var1 + Var_Or
'MsgBox Var
Case Is = RGB(164, 30, 178)
Var_Elixir = Var1 + Var_Elixir
'MsgBox Var
Case Is = RGB(38, 38, 38)
Var_Elixir_Noir = Var1 + Var_Elixir_Noir
'MsgBox Var
End Select
NB = NB + 1
End If
End If
End If
Next
.Cells(4, 11) = NB
.Cells(4, 12) = Var_Or
.Cells(4, 14) = Var_Elixir
.Cells(4, 16) = Var_Elixir_Noir
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 5 To DernLigne
'Si "Rempart" / "Wall"
If (Left(.Cells(NumLigne, 1), 4) <> "Remp" And Left(.Cells(NumLigne, 1), 4) <> "Wall") Then
'Si Période Sélectionnée +2
If .Cells(NumLigne, 5) = .Cells(2, 5) + (3 * .Cells(2, 4)) Then
'Le nombre est inscrit dans Var1
Var1 = .Cells(NumLigne, 3)
If Var1 <> "" Then
'Si la couleur de la cellule est "Or" alors
Select Case .Cells(NumLigne, 3).Interior.Color
Case Is = RGB(255, 192, 0)
Var_Or = Var1 + Var_Or
'MsgBox Var
Case Is = RGB(164, 30, 178)
Var_Elixir = Var1 + Var_Elixir
'MsgBox Var
Case Is = RGB(38, 38, 38)
Var_Elixir_Noir = Var1 + Var_Elixir_Noir
'MsgBox Var
End Select
NB = NB + 1
End If
End If
End If
Next
.Cells(5, 11) = NB
.Cells(5, 12) = Var_Or
.Cells(5, 14) = Var_Elixir
.Cells(5, 16) = Var_Elixir_Noir
'Verrouille la feuille
.Protect
.EnableSelection = xlUnlockedCells
End With
End With
Rafraichissement_Ecran_ON
End Sub
Sub Reinitialiser_Planning()
'Fonction qui défini le nom des feuilles
Déclaration_Onglets
With ThisWorkbook
With WS_Plan
'Déverrouille la feuille
.Unprotect
'Afficher toutes les lignes
With .Cells
.EntireRow.Hidden = False
End With
'Détermine la dernière ligne
DernLigne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'De la ligne 8 à la dernière ligne
For NumLigne = 8 To DernLigne
'Le nombre est inscrit dans Var
Var = .Cells(NumLigne, 2)
'Si la valeur n'est pas vide alors supprimer la ligne
If Var <> "" Then
.Rows(NumLigne & ":" & NumLigne).EntireRow.Delete xlShiftUp
NumLigne = NumLigne - 1
End If
Next
'Masque la ligne 6
.Range("I6").EntireRow.Hidden = True
'Verrouille la feuille
.Protect
.EnableSelection = xlUnlockedCells
End With
End With
End Sub
Sub Cout_Periode()
'Fonction qui défini le nom des feuilles
Déclaration_Onglets
Rafraichissement_Ecran_OFF
With ThisWorkbook
With WS_Plan
'Déverrouille la feuille
.Unprotect
'Détermine la dernière ligne
DernLigne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 5 To DernLigne
'Si "Rempart" / "Wall"
If (Left(.Cells(NumLigne, 1), 4) <> "Remp" And Left(.Cells(NumLigne, 1), 4) <> "Wall") Then
'Si Période Sélectionnée
If .Cells(NumLigne, 5) = .Cells(2, 5) Then
'Le nombre est inscrit dans Var1
Var1 = .Cells(NumLigne, 3)
If Var1 <> "" Then
'Si la couleur de la cellule est "Or" alors
Select Case .Cells(NumLigne, 3).Interior.Color
Case Is = RGB(255, 192, 0)
Var_Or = Var1 + Var_Or
'MsgBox Var
Case Is = RGB(164, 30, 178)
Var_Elixir = Var1 + Var_Elixir
'MsgBox Var
Case Is = RGB(38, 38, 38)
Var_Elixir_Noir = Var1 + Var_Elixir_Noir
'MsgBox Var
End Select
NB = NB + 1
End If
End If
End If
Next
.Cells(2, 11) = NB
.Cells(2, 12) = Var_Or
.Cells(2, 14) = Var_Elixir
.Cells(2, 16) = Var_Elixir_Noir
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 5 To DernLigne
'Si "Rempart" / "Wall"
If (Left(.Cells(NumLigne, 1), 4) <> "Remp" And Left(.Cells(NumLigne, 1), 4) <> "Wall") Then
'Si Période Sélectionnée +1
If .Cells(NumLigne, 5) = .Cells(2, 5) + .Cells(2, 4) Then
'Le nombre est inscrit dans Var1
Var1 = .Cells(NumLigne, 3)
If Var1 <> "" Then
'Si la couleur de la cellule est "Or" alors
Select Case .Cells(NumLigne, 3).Interior.Color
Case Is = RGB(255, 192, 0)
Var_Or = Var1 + Var_Or
'MsgBox Var
Case Is = RGB(164, 30, 178)
Var_Elixir = Var1 + Var_Elixir
'MsgBox Var
Case Is = RGB(38, 38, 38)
Var_Elixir_Noir = Var1 + Var_Elixir_Noir
'MsgBox Var
End Select
NB = NB + 1
End If
End If
End If
Next
.Cells(3, 11) = NB
.Cells(3, 12) = Var_Or
.Cells(3, 14) = Var_Elixir
.Cells(3, 16) = Var_Elixir_Noir
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 5 To DernLigne
'Si "Rempart" / "Wall"
If (Left(.Cells(NumLigne, 1), 4) <> "Remp" And Left(.Cells(NumLigne, 1), 4) <> "Wall") Then
'Si Période Sélectionnée +2
If .Cells(NumLigne, 5) = .Cells(2, 5) + (2 * .Cells(2, 4)) Then
'Le nombre est inscrit dans Var
Var1 = .Cells(NumLigne, 3)
If Var1 <> "" Then
'Si la couleur de la cellule est "Or" alors
Select Case .Cells(NumLigne, 3).Interior.Color
Case Is = RGB(255, 192, 0)
Var_Or = Var1 + Var_Or
'MsgBox Var
Case Is = RGB(164, 30, 178)
Var_Elixir = Var1 + Var_Elixir
'MsgBox Var
Case Is = RGB(38, 38, 38)
Var_Elixir_Noir = Var1 + Var_Elixir_Noir
'MsgBox Var
End Select
NB = NB + 1
End If
End If
End If
Next
.Cells(4, 11) = NB
.Cells(4, 12) = Var_Or
.Cells(4, 14) = Var_Elixir
.Cells(4, 16) = Var_Elixir_Noir
NB = 0
Var1 = 0
Var_Or = 0
Var_Elixir = 0
Var_Elixir_Noir = 0
'De la ligne 5 à la dernière ligne
For NumLigne = 5 To DernLigne
'Si "Rempart" / "Wall"
If (Left(.Cells(NumLigne, 1), 4) <> "Remp" And Left(.Cells(NumLigne, 1), 4) <> "Wall") Then
'Si Période Sélectionnée +2
If .Cells(NumLigne, 5) = .Cells(2, 5) + (3 * .Cells(2, 4)) Then
'Le nombre est inscrit dans Var1
Var1 = .Cells(NumLigne, 3)
If Var1 <> "" Then
'Si la couleur de la cellule est "Or" alors
Select Case .Cells(NumLigne, 3).Interior.Color
Case Is = RGB(255, 192, 0)
Var_Or = Var1 + Var_Or
'MsgBox Var
Case Is = RGB(164, 30, 178)
Var_Elixir = Var1 + Var_Elixir
'MsgBox Var
Case Is = RGB(38, 38, 38)
Var_Elixir_Noir = Var1 + Var_Elixir_Noir
'MsgBox Var
End Select
NB = NB + 1
End If
End If
End If
Next
.Cells(5, 11) = NB
.Cells(5, 12) = Var_Or
.Cells(5, 14) = Var_Elixir
.Cells(5, 16) = Var_Elixir_Noir
'Verrouille la feuille
.Protect
.EnableSelection = xlUnlockedCells
End With
End With
Rafraichissement_Ecran_ON
End Sub