1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. partner

[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. 3000 J est plus proche de 8 ans que de 10, hein. ^^
     
  2. Publicité Masquez cette pub en vous inscrivant



    pour masquer cette publicité.
  • 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+
     
  • Bravo ! Vraiment chapeau bas pour ce tuto, jl va vraiment m'aider !
     
  • 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.
     
  • Rafraîchissement macro_off

    Option Explicit
    Sub Rafraichissement_Ecran_OFF()
    Application.ScreenUpdating = False
    End Sub
    Sub Rafraichissement_Ecran_ON()
    Application.ScreenUpdating = True
    End Sub
     
  • 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
     
  • 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. :)
     
  • Salut,

    Pourquoi tu n'a pas fait un vrai logiciel ? (Le Visual Basic est ton ami ;) )
     
  • très beau travail! merci à toi! sauf que sa me décourage vraiment beaucoup :joyful:
     
  • Merci c'est vraiment cool
     
  • Ou le temps qu'il reste est-il marqué ?
     
  • Arf, j'avais une version d'excel useless il y avait pas tous les onglets
     
  • 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:

  • 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 !
     
  • 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
     
  • 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 !
     
    Olivier2a apprécie ceci.
  • 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.
     
  • Et cela cout combien! car elle est là la vrai question ;)
    Et cela est compatible avec l'utilisation sur tablette et smart phone?
     
  • 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 !
     
  • Le fichier est abscons depuis un moment, et personne pour le corriger... Dommage :(
     
  • 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?
     
  • 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
     
  • voila
    ICI
    merci
     
  • 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
     
  • Chargement...
    Sujets similaires Forum Date
    Certifié COC Calculator 2014 - Outil de calculs Excel sur Clash Of Clans Autres 16 Novembre 2014
    Statut de la discussion:
    N'est pas ouverte pour d'autres réponses.