[OLD] COC Calculator - Outil de calculs Excels sur Clash Of Clans

Statut
N'est pas ouverte pour d'autres réponses.

Pelusse

P.E.K.K.A
10 Octobre 2013
358
101
58
www.vin-terre-net.com
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
 

Tomascftyjilp

Barbare
24 Janvier 2014
3
0
16
24
Niveau
46
Clan
15-18'army
Rang de Clan
Membre
Ligue
Argent II
Salut !
Dit, tu pourrais pas envoyer un autre lien que Méga ? Je sais pas pourquoi il ne veut pas lancer le téléchargement chez moi... Je te remercie d'avance. :)
 

Valounours

Barbare
12 Janvier 2014
9
1
18
28
Niveau
29
Clan
Pomplars-69
Rang de Clan
Ainé
Ligue
Argent III
Salut,

Pourquoi tu n'a pas fait un vrai logiciel ? (Le Visual Basic est ton ami ;) )
 

xador35

Barbare
4 Mars 2014
12
1
18
28
Niveau
41
Clan
Acnologia
Rang de Clan
Aucun clan
Ligue
Argent II
Ou le temps qu'il reste est-il marqué ?
 

xador35

Barbare
4 Mars 2014
12
1
18
28
Niveau
41
Clan
Acnologia
Rang de Clan
Aucun clan
Ligue
Argent II
Arf, j'avais une version d'excel useless il y avait pas tous les onglets
 

fort.boyard

Barbare
18 Mars 2014
5
0
16
44
Niveau
76
Clan
Ford Boyard
Rang de Clan
Chef adjoint
Ligue
Or III
et bien cela à l'aire très compliquer

et plus possible à télécharger!

voici un autre basique pour la formation des troupes
 

Pièces jointes

  • formation tps & cout.zip
    18.9 KB · Affichages: 19

nhefti

Barbare
25 Mars 2014
2
1
18
38
Rang de Clan
Aucun clan
Ligue
Aucune
Salut

Je m'appelle Nicolas et suis le fondateur d'un projet du nom d'Appizy dont l'objectif est de partager plus simplement des outils comme ceux qui sont proposés dans cette discussion. Pour vous donner un exemple, j'ai créé avec des amis un tableau interactif des scores pour la coupe du monde :

http://toolbox.appizy.com/tool/worldcup-matches-table

Je pense que cela serait sympa de créer une appli similaire à partir d'un tableur pour CoC, avec le même principe que dans cette vidéo :


Si tu es créateur d'un des outils tableur et veut tester la publication d'une version web je t'invite à m'envoyer un email à nicolas (at) appizy.com ! Au plaisir !

ps : n'interprétez pas mal ce message. Je ne cherche pas à vous vendre mon service mais à trouver des early-users afin de tester le projet sur des besoins réels !
 

Olivier2a

Molosse
29 Janvier 2013
194
165
58
Niveau
150
Clan
exca machina
Rang de Clan
Chef adjoint
Ligue
Champion I
Bjr Nicolas
Viens de prendre 20 ans dans la figure ...
J'ai rien compris a ton truc si d'aventure tu pouvais détailler suis assez curieux, par avance merci
 
Statut
N'est pas ouverte pour d'autres réponses.