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

Discussion dans 'Autres' créé par sednanref, 18 Juin 2013.

Statut de la discussion:
N'est pas ouverte pour d'autres réponses.
  1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  1. DarkrymoZe

    DarkrymoZe Simple mortel

    2 Mars 2013
    2 876
    1 039
    Élixir:
    1519 
    Or:
    Deuxième année mdc
    Niveau:
    95
    Clan:
    les fantomas
    Niveau du clan:
    2
    Rang de Clan:
    Chef adjoint
    Ligue:
    Or II

    3000 J est plus proche de 8 ans que de 10, hein. ^^
     
  2. Clashcalulator

    18 Janvier 2014
    2
    0
    Élixir:
    50 
    Or:
    Rang de Clan:
    Aucun clan
    Ligue:
    Aucune
    Ok, merci Pelusse.
    Désolé si j'ai tardé à répondre, beaucoup de boulot...
    Alors évidemment je m'y attendais, il y a des sous programmes. Il faudrait que tu m'envoies tout ce que tu as comme code macros!
    Au moins :
    "Rafraichissement_Ecran_OFF"
    et "Reinitialiser_Planning"
    A voir s'il y a d'autres macros à l'intérieur...

    Mais bon je crois que ça sert qu'à faire le planning. Toutes les autres feuilles fonctionnent avec des formules et c'est déjà suuuuper pratique! Il faudra juste vérifier que les paramètres sont à jour avec la dernière version de COC! Je regarderai dès que je peux.

    A+
     
  3. estp

    estp Archer

    10 Janvier 2014
    55
    6
    Élixir:
    597 
    Or:
    CoC
    Niveau:
    65
    Clan:
    nopeee
    Rang de Clan:
    Ainé
    Ligue:
    Or I
    Bravo ! Vraiment chapeau bas pour ce tuto, jl va vraiment m'aider !
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  4. Pelusse

    Pelusse Gargouille

    10 Octobre 2013
    358
    126
    Élixir:
    2950 
    Or:
    Niveau:
    125
    Clan:
    ZOB
    Niveau du clan:
    4
    Rang de Clan:
    Chef adjoint
    Ligue:
    Master I
    Clash, ça m’étonne que tu n'es pas accès aux macros et moi si ! J'ai téléchargé la derniers version disponible (mais qui a déjà trois (et dans quelques minutes quatre...) MAJ de retard vis à vis de COC) et les macros sont accessibles; seulement, je ne sais m'en servir... :(

    Je regarde ce que tu me demande, mais des macros, y'en a un paquet !

    Dés que tu pourras faire les modifs sur le fichiers, on ferra les point sur les MAJ a faire dessus.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  5. Pelusse

    Pelusse Gargouille

    10 Octobre 2013
    358
    126
    Élixir:
    2950 
    Or:
    Niveau:
    125
    Clan:
    ZOB
    Niveau du clan:
    4
    Rang de Clan:
    Chef adjoint
    Ligue:
    Master I
    Rafraîchissement macro_off

    Option Explicit
    Sub Rafraichissement_Ecran_OFF()
    Application.ScreenUpdating = False
    End Sub
    Sub Rafraichissement_Ecran_ON()
    Application.ScreenUpdating = True
    End Sub
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  6. Pelusse

    Pelusse Gargouille

    10 Octobre 2013
    358
    126
    Élixir:
    2950 
    Or:
    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
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  7. Tomascftyjilp

    Tomascftyjilp Archer

    24 Janvier 2014
    3
    0
    Élixir:
    567 
    Or:
    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. :)
     
  8. Valounours

    Valounours Archer

    12 Janvier 2014
    9
    1
    Élixir:
    501 
    Or:
    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 ;) )
     
  9. vtec kicked in yo

    2 Décembre 2013
    238
    57
    Élixir:
    660 
    Or:
    Niveau:
    160
    Rang de Clan:
    Aucun clan
    Ligue:
    Aucune
    très beau travail! merci à toi! sauf que sa me décourage vraiment beaucoup :joyful:
     
  10. Denis le rebel

    14 Février 2014
    8
    0
    Élixir:
    523 
    Or:
    Clash of clans, cod etc
    Niveau:
    81
    Niveau du clan:
    1
    Rang de Clan:
    Aucun clan
    Ligue:
    Or II
    Merci c'est vraiment cool
     
  11. xador35

    xador35 Archer

    4 Mars 2014
    12
    1
    Élixir:
    340 
    Or:
    Niveau:
    41
    Clan:
    Acnologia
    Rang de Clan:
    Aucun clan
    Ligue:
    Argent II
    Ou le temps qu'il reste est-il marqué ?
     
  12. xador35

    xador35 Archer

    4 Mars 2014
    12
    1
    Élixir:
    340 
    Or:
    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
     
  13. fort.boyard

    fort.boyard Archer

    18 Mars 2014
    5
    0
    Élixir:
    336 
    Or:
    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
     

    Fichiers attachés:

  14. nhefti

    nhefti Archer

    25 Mars 2014
    2
    1
    Élixir:
    581 
    Or:
    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 !
     
  15. Olivier2a

    Olivier2a Gargouille

    29 Janvier 2013
    195
    174
    Élixir:
    722 
    Or:
    Niveau:
    150
    Clan:
    exca machina
    Rang de Clan:
    Chef adjoint
    Ligue:
    Champion
    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
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  16. nhefti

    nhefti Archer

    25 Mars 2014
    2
    1
    Élixir:
    581 
    Or:
    Rang de Clan:
    Aucun clan
    Ligue:
    Aucune
    Avec plaisir ! Tu vas voir c'est pas si sorcier que ça.

    Mon idée de base c'était : les gens développent des "outils persos" avec Excel mais dès qu'il s'agit de diffuser sur le cela devient galère (problème de versionning, de mise à jour, etc). Bref pas très 2.0 comme histoire !

    D'où le concept d'Appizy : un logiciel qui prend ton tableur (OpenOffice pas Excel pour le moment) et le transforme en code HTML+CSS+Javascript, pour te créer un outil web interactif équivalent (comme dans la vidéo).

    Ensuite j'ai créé Toolbox, la plateforme d'hébergement d'outils (le Youtube-like de l'outil de calcul si tu préfères). A la place d'un feuille Excel à télécharger, tu as une page web dynamique où tu peux enregistrer des paramètres, partager avec ton Clan, ...

    Pour résumer :
    1. Tu as un outil tableur que tu souhaites partager sur le web avec ton Clan
    2. Tu le passes dans la moulinette Appizy, tu obtiens le code d'une page web équivalente à ton outil de départ
    3. Soit tu postes ton appli sur Toolbox, soit tu colles le code sur ton site perso ou blog

    J'espère que j'ai été clair. Dis moi !
     
    2 personnes aiment ça.
  17. Olivier2a

    Olivier2a Gargouille

    29 Janvier 2013
    195
    174
    Élixir:
    722 
    Or:
    Niveau:
    150
    Clan:
    exca machina
    Rang de Clan:
    Chef adjoint
    Ligue:
    Champion
    Vais faire comme en Afrique : oui oui j'ai compris c'est par là !
    Mais en fait même si c'est clairement expliqué j'ai du mal a comprendre mais cela tient plus en mes carences en connaissance qu'a tes explications.
    Merci en tout cas.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  18. fort.boyard

    fort.boyard Archer

    18 Mars 2014
    5
    0
    Élixir:
    336 
    Or:
    Niveau:
    76
    Clan:
    Ford Boyard
    Rang de Clan:
    Chef adjoint
    Ligue:
    Or III
    Et cela cout combien! car elle est là la vrai question ;)
    Et cela est compatible avec l'utilisation sur tablette et smart phone?
     
  19. Maximerbt

    Maximerbt Archer

    17 Avril 2014
    1
    0
    Élixir:
    603 
    Or:
    Niveau:
    70
    Clan:
    Les Foufettes
    Rang de Clan:
    Chef adjoint
    Ligue:
    Argent III
    Hello,
    Je signale une petite erreur, le prix de la création de sorts est exprimé en OR, depuis une mise à jour les sorts coûtes désormais de l’élixir :)!!

    Merci !
     
  20. Pelusse

    Pelusse Gargouille

    10 Octobre 2013
    358
    126
    Élixir:
    2950 
    Or:
    Niveau:
    125
    Clan:
    ZOB
    Niveau du clan:
    4
    Rang de Clan:
    Chef adjoint
    Ligue:
    Master I
    Le fichier est abscons depuis un moment, et personne pour le corriger... Dommage :(
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  21. jojodelyon

    jojodelyon Archer

    1 Octobre 2013
    28
    5
    Élixir:
    110 
    Or:
    Niveau:
    106
    Clan:
    lord of knight
    Rang de Clan:
    Chef adjoint
    Ligue:
    Master III
    Bonjour à tous, j'ai le document mis à jour enfin ce que je pouvais, mais qui doit etre relativement sans trop d'erreur. j 'ai juste un probleme: comment je fais pour vous le donner?
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  22. Blik

    Blik Gobelin

    15 Avril 2014
    112
    18
    Élixir:
    968 
    Or:
    Niveau:
    85
    Clan:
    Neko Family
    Niveau du clan:
    5
    Rang de Clan:
    Ainé
    Ligue:
    Argent I
    Poste le sur un site comme megafire :) Sinon mois j'utilise pas Coc calculator sa me mettrait le seum de savoir le temps qu'il me reste pour tout faire xD
     
  23. jojodelyon

    jojodelyon Archer

    1 Octobre 2013
    28
    5
    Élixir:
    110 
    Or:
    Niveau:
    106
    Clan:
    lord of knight
    Rang de Clan:
    Chef adjoint
    Ligue:
    Master III
    voila
    ICI
    merci
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
  24. Blik

    Blik Gobelin

    15 Avril 2014
    112
    18
    Élixir:
    968 
    Or:
    Niveau:
    85
    Clan:
    Neko Family
    Niveau du clan:
    5
    Rang de Clan:
    Ainé
    Ligue:
    Argent I
  25. jojodelyon

    jojodelyon Archer

    1 Octobre 2013
    28
    5
    Élixir:
    110 
    Or:
    Niveau:
    106
    Clan:
    lord of knight
    Rang de Clan:
    Chef adjoint
    Ligue:
    Master III
    j'ai pas l'impression que ça marche si?

    EDIT: si ça marche en téléchargement

    si vous avez des modifs ou remarques je pourrais les faire
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Cliquez pour agrandir...
Chargement...
Sujets similaires - [OLD] COC Calculator Forum Date
COC Calculator 2014 - Outil de calculs Excel sur Clash Of Clans Autres 16 Novembre 2014