Forum de la fafa Nostale *black*démons*, certifiée 100% de barjots parmi les membres.
 
AccueilPortailCalendrierFAQRechercherMembresGroupesS'enregistrerConnexion

Partagez | 
 

 SIMULATEUR NOSMALL V2 [FINI]

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Blade-master
Mouton
Mouton
avatar

Messages : 42
Date d'inscription : 10/07/2012
Age : 23
Localisation : derrière toi *W*

MessageSujet: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 11:53

Version 2 du simulateur fini !
Screen :

Spoiler:
 
Fonctionnalité :
Une option qui permettera de calculer les bénefices par rapport au prix d'achat des nosthunes et au prix de vente de l'objet.
Aide :
Pour modifier le prix d'achat de la nosthune cliquez sur le bouton "Prix du nosthune" à gauche du selecteur de choix
Pour entrer le prix de vente de l'objet cliquez sur le bouton "Prix de vente" se situant à gauche du selecteur de choix

Release : 25/08/12 - Correction d'un bug mineur

Lien : multiupload.nl PM3PINV1AR


Version 1 du simulateur fini !
Screen :


Lien : multiupload.nl 543JCXM35K

___________________________

Début du projet en spoil :
Spoiler:
 

Code Projet Fini V1 :
Code:
Sub Change_SousClasse_01()

If Range("E11").Value = 1 Then

    If Range("I11").Value = 1 Then

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$2:$B$3"
        .LinkedCell = "$E$13"
        .DropDownLines = 2
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 2 Then

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$4:$B$6"
        .LinkedCell = "$E$16"
        .DropDownLines = 3
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 3 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$7:$B$23"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    End If

ElseIf Range("E11").Value = 2 Then
ElseIf Range("E11").Value = 3 Then
ElseIf Range("E11").Value = 4 Then
ElseIf Range("E11").Value = 5 Then

    If Range("I11").Value = 1 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$63:$B$71"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 2 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$72:$B$76"
        .LinkedCell = "$E$16"
        .DropDownLines = 5
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 3 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$77"
        .LinkedCell = "$E$16"
        .DropDownLines = 1
        .Display3DShading = False
End With

Range("B6").Select

    End If
   
ElseIf Range("E11").Value = 6 Then

    If Range("I11").Value = 1 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$78:$B$90"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 2 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$91:$B$183"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 3 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$184:$B$276"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 4 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$277:$B$300"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 5 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$301:$B$345"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 6 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$346:$B$390"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 7 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$391:$B$401"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    End If
   
ElseIf Range("E11").Value = 7 Then

    If Range("I11").Value = 1 Then
   
ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$402:$B$404"
        .LinkedCell = "$E$16"
        .DropDownLines = 3
        .Display3DShading = False
End With

Range("B6").Select

    ElseIf Range("I11").Value = 2 Then

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$405:$B$418"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

    End If
   
End If

End Sub
Code:
Sub Change_Classe_01()

If Range("E11").Value = 1 Then

ActiveSheet.Shapes("Drop Down 8").Select
    With Selection
        .ListFillRange = "Data!$N$4:$N$6"
        .LinkedCell = "$I$11"
        .DropDownLines = 3
        .Display3DShading = False
End With

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$2:$B$3"
        .LinkedCell = "$E$16"
        .DropDownLines = 2
        .Display3DShading = False
End With

Range("B6").Select 'On selectionne un case vide pour pouvoir utiliser la liste déroulante

ElseIf Range("E11").Value = 2 Then

ActiveSheet.Shapes("Drop Down 8").Select
    With Selection
        .ListFillRange = "Data!$M$5"
        .LinkedCell = "$I$11"
        .DropDownLines = 0
        .Display3DShading = False
End With

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$24:$B$43"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

ElseIf Range("E11").Value = 3 Then

ActiveSheet.Shapes("Drop Down 8").Select
    With Selection
        .ListFillRange = "Data!$M$6"
        .LinkedCell = "$I$11"
        .DropDownLines = 0
        .Display3DShading = False
End With

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$44:$B$50"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

ElseIf Range("E11").Value = 4 Then

ActiveSheet.Shapes("Drop Down 8").Select
    With Selection
        .ListFillRange = "Data!$M$7"
        .LinkedCell = "$I$11"
        .DropDownLines = 0
        .Display3DShading = False
End With

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$51:$B$62"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

ElseIf Range("E11").Value = 5 Then

ActiveSheet.Shapes("Drop Down 8").Select
    With Selection
        .ListFillRange = "Data!$O$4:$O$6"
        .LinkedCell = "$I$11"
        .DropDownLines = 3
        .Display3DShading = False
End With

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$63:$B$71"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

ElseIf Range("E11").Value = 6 Then

ActiveSheet.Shapes("Drop Down 8").Select
    With Selection
        .ListFillRange = "Data!$N$9:$N$15"
        .LinkedCell = "$I$11"
        .DropDownLines = 7
        .Display3DShading = False
End With

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$78:$B$90"
        .LinkedCell = "$E$16"
        .DropDownLines = 8
        .Display3DShading = False
End With

Range("B6").Select

ElseIf Range("E11").Value = 7 Then

ActiveSheet.Shapes("Drop Down 8").Select
    With Selection
        .ListFillRange = "Data!$O$9:$O$10"
        .LinkedCell = "$I$11"
        .DropDownLines = 2
        .Display3DShading = False
End With

ActiveSheet.Shapes("Drop Down 11").Select
    With Selection
        .ListFillRange = "Data!$B$402:$B$404"
        .LinkedCell = "$E$16"
        .DropDownLines = 3
        .Display3DShading = False
End With

Range("B6").Select

    End If

End Sub


Dernière édition par Blade-master le Sam 25 Aoû 2012 - 16:05, édité 14 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Sophie
Puissant Grenigas
Puissant Grenigas
avatar

Messages : 668
Date d'inscription : 22/12/2011
Age : 18

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 11:55

Jcomprend pas a qquoi sa sert? a gagné des nosyhune gratuit? scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Key
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 269
Date d'inscription : 25/06/2012

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 12:17

Il a dit un truc "inutile" pas révolutionnaire Mad

Et tant qu'on parle des programmes, j'viens de remarquer que j'suis célèbre *-*



Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Plins
Fourrez-le & mangez-le
avatar

Messages : 1302
Date d'inscription : 16/01/2011
Age : 21
Localisation : Brule dans les flammes de l'enfer

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 13:17

Hannn t'savais pas Key ? =O

Shoun: Des nostunes gratuits ._. Sa serais bien c'est vrais mais faut pas rêver Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Sophie
Puissant Grenigas
Puissant Grenigas
avatar

Messages : 668
Date d'inscription : 22/12/2011
Age : 18

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 13:36

M'ouais.. Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Key
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 269
Date d'inscription : 25/06/2012

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 15:55

Ben ça existe NT gratuites :O
Faut juste faire quelques trucs bien chiant pour les chopper Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Plins
Fourrez-le & mangez-le
avatar

Messages : 1302
Date d'inscription : 16/01/2011
Age : 21
Localisation : Brule dans les flammes de l'enfer

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 17:05

Dis moi tout Keykinette =3
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Rosy
Poule Grognonne
Poule Grognonne
avatar

Messages : 1329
Date d'inscription : 18/07/2011
Age : 22
Localisation : Dans ma culotte, BITCH!

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 17:54

Bah tu cliques sur avoir des nosthunes gratuits quand tu veux en acheter via le Nosmall. Rolling Eyes

Après faut remplir des offres à la c** qui marche une fois sur 10 et tu gagnes 10 nosthunes... truc pourri quoi!

_______________________________





Spoiler:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Blade-master
Mouton
Mouton
avatar

Messages : 42
Date d'inscription : 10/07/2012
Age : 23
Localisation : derrière toi *W*

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Dim 19 Aoû 2012 - 19:06

UP ajout de screen et du code
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Blade-master
Mouton
Mouton
avatar

Messages : 42
Date d'inscription : 10/07/2012
Age : 23
Localisation : derrière toi *W*

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Sam 25 Aoû 2012 - 16:07

Mise à Jours et correction d'un bug mineur.

Nouveau lien post à télécharger.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Kami~Kane
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 349
Date d'inscription : 06/04/2012
Localisation : Entre la chaise et l'écran

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mar 28 Aoû 2012 - 16:14

Muhhhhmmmm mouiii

Complex

Je préfère encore ma bonne feuille de calcule excel qui me donne les perte/bénef pour les objets nosmall en fonction du prix item et nosthune, et ce avec tous les objets nosmall qu'on veut en même temps, pour faire un calcule final, avec une capacité de comparaison entre chaque item nosmall.

Feuille qui m'a pris 4h à être faite, qui fonctionne avec 1 seul fichier et sans avoir à toucher ou à placer des codes, certes moins joli, mais bien plus efficace x)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Key
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 269
Date d'inscription : 25/06/2012

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mar 28 Aoû 2012 - 16:56

Dites, vous êtes des businessman ou ? Suspect

Vous pouvez m'aider à faire fortune ? Dans le jeu et surtout en vrai ! S'il vous plait Very Happy
J'veux du ca$h Cool
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Blade-master
Mouton
Mouton
avatar

Messages : 42
Date d'inscription : 10/07/2012
Age : 23
Localisation : derrière toi *W*

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mer 29 Aoû 2012 - 12:42

@Kamié~Kane

Ce que ta feuille excell fait je le fait sauf que moi c'est en plus d'être regroupé dans un tableau, ont peut le rechercher grace au fonction recherche.
Parce que les liste deroulante d'excel cible une case, cette case serra incrémenté d'une valeur entre 1 et le nombre de choix de la plage selectionné.
La recherche se fait en fonction de cette valeur.

Certe en premiere abbord ça a l'air complexe mais une foix que tu sais l'utiliser c'est plus rapide que de chercher sur plus de 300 objet du nosmall les valeurs.

Surtout que ton tableau tu as du faire 1 fois la formule puis l'étirer non ? ^^

voila
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Kami~Kane
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 349
Date d'inscription : 06/04/2012
Localisation : Entre la chaise et l'écran

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mer 29 Aoû 2012 - 13:16

Businessman ig oui =p

Voilà la feuille Wink



de gauche à droite, en gros, le produit, la quantité par slot disponible, en rouge, les case à modifier selon les fluctuation des prix nosbazar ou du prix que l'on veut vendre, la quantité à acheter ou à vendre, la valeur en nosthunes à l'achat, puis en or, valeur unitaire d'achat - revente, le total pour l'item, et tout en bas, non présent, le total pour l'ensemble des item.
Enfin, les colonnes à droite, la valeur si on revendait le nosthune lui-même, la somme, la renabilité par rapport aux autres item et au nosthune (indépendant des autres cases)

Le prix du nosthune est à modifier tout en haut.

Difficile de faire plus complet =p


Et les valeurs ne sont pas à jour, là, je précise x)


En modifiant les case rouges, tout se met à jour. Certaines cases inutiles à l'utilisateur sont cachées.



Au passage, il y a de nombreuses formules là-dedans ^^
Et si on veut rajouter un item, il suffit de l'ajouter entre deux autres déjà existant en modifiant les valeurs nécessaires.

M'enfin la différence entre le tien et le mien, c'est que le mien n'est pas à distribuer. Si tous les joueurs de nostale le possédaient, je sais que ça provoquerait l'éffondrement de l'économie, vu que beaucoup ne savent pas ce qui est ou non rentable, ce qui est bien pour d'autres qui ne nosmall pas et qui ont ainsi accès à des rouleau moins cher que peux valoir un collier nosmate en nosthunes.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Key
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 269
Date d'inscription : 25/06/2012

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mer 29 Aoû 2012 - 19:07

Ben moi j'comprends rien Very Happy
*sors*
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Clélia34
Mouton
Mouton
avatar

Messages : 44
Date d'inscription : 07/08/2012

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mer 29 Aoû 2012 - 19:59

key laisse tombé moi aussi je comprend rien confused
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Key
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 269
Date d'inscription : 25/06/2012

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mer 29 Aoû 2012 - 22:35

C'est horribeule Crying or Very sad
On se sent exclus hein ? >.<
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Kami~Kane
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 349
Date d'inscription : 06/04/2012
Localisation : Entre la chaise et l'écran

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Lun 3 Sep 2012 - 10:46

Qu'est-ce que vous avez pas compris ? xD

Tu mets l'objet que tu veux et tu as toutes les infos pour te faire des sous =D
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Blade-master
Mouton
Mouton
avatar

Messages : 42
Date d'inscription : 10/07/2012
Age : 23
Localisation : derrière toi *W*

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mar 4 Sep 2012 - 20:25

CQFD c'est pas bien compliqué.

@Kami

Enfait ton tableau et mon simulateur sont complêtement différent.
Sur la base c'est la même chose mais c'est tout.
Sinon bien pensé pour ton tableau.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Clélia34
Mouton
Mouton
avatar

Messages : 44
Date d'inscription : 07/08/2012

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mar 4 Sep 2012 - 22:13

Je préfere utilisé ma calculatrice et mon bloc note pour les achats reventes de nosthunes c'est moins compliqué confused
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Rosealice
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 365
Date d'inscription : 09/07/2012
Age : 18
Localisation : derrière son écran 8D

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Mer 5 Sep 2012 - 13:45

Je suis d'accord avec Clélia! confused
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Kami~Kane
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 349
Date d'inscription : 06/04/2012
Localisation : Entre la chaise et l'écran

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Jeu 6 Sep 2012 - 11:30

Mais son simulateur et mon tableau sont de grosses calculatrices qui font pleins de calcules en même temps =D
Rhalala, ces jeunes. Ils n'arrivent pas à suivre la vitesse de la technologie =p
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Rosealice
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 365
Date d'inscription : 09/07/2012
Age : 18
Localisation : derrière son écran 8D

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Jeu 6 Sep 2012 - 18:35

C'est pas de notre faute ! Les profs nous ont trop habitué aux bonnes vieilles feuilles et aux stylos =o.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Rosy
Poule Grognonne
Poule Grognonne
avatar

Messages : 1329
Date d'inscription : 18/07/2011
Age : 22
Localisation : Dans ma culotte, BITCH!

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Jeu 6 Sep 2012 - 19:58

Si tes profs de techno t'ont pas appris à te servir d'un tableur en 6ème... Faut faire une pétition pour les renvoyer sérieux! Rolling Eyes

_______________________________





Spoiler:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Rosealice
Seigneur Mukraju
Seigneur Mukraju
avatar

Messages : 365
Date d'inscription : 09/07/2012
Age : 18
Localisation : derrière son écran 8D

MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   Jeu 6 Sep 2012 - 19:59

Ba oui on va pouvoir en faire une! Ils ne me l'ont pas appris en 6e ! (Mais en 5e Razz )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: SIMULATEUR NOSMALL V2 [FINI]   

Revenir en haut Aller en bas
 
SIMULATEUR NOSMALL V2 [FINI]
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Le nouveau simulateur de vol
» [Fini] Mon nabaztag devient un mir:ror !
» CASUS BELLI c'EST FINI ?
» Iway à Lyon : le simulateur automobile unique au monde!
» Heavy Rain - spoil free pour ceux qui l'ont fini

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum de la fafa *black*démons* :: Le petit monde des Blacks-
Sauter vers: