Analyse d'une suite de nombre dont l'espacement est variable Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
alphadupoint
Membre habitué
Membre habitué
Messages : 54
Appréciations reçues : 2
Inscrit le : 18 novembre 2018
Version d'Excel : 2016

Message par alphadupoint » 25 novembre 2018, 16:05

J'ai créé un diagramme, ce que j'aurais du faire depuis le départ, mes excuses.
Diagramme.JPG
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'328
Appréciations reçues : 266
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 26 novembre 2018, 09:21

Bonjour,

quel accouchement difficile, enfin des instructions claires !
alphadupoint.xlsm
(18.43 Kio) Téléchargé 7 fois
a
alphadupoint
Membre habitué
Membre habitué
Messages : 54
Appréciations reçues : 2
Inscrit le : 18 novembre 2018
Version d'Excel : 2016

Message par alphadupoint » 26 novembre 2018, 12:11

Bonjour Haut Grand Maître H2so4 ^^

Cela fonctionne !

Le nom de la Fonction est parfaite ;)
Je me suis permis d'ajouter des < & > au endroit indiqué en couleur ci-dessous (détails que j'ai oublié dans mon diagramme :oops:) :
Function droledetruc(r)
    Dim som(3)
    s = 0
    c = Application.Transpose(r)
    ubc = UBound(c)
    If (c(ubc) = 1 And c(ubc - 1) [color=#FF0000][size=150]<[/size][/color]= -2) Or (c(ubc) = -1 And c(ubc - 1) [color=#FF0000][size=150]>[/size][/color]= 2) Then
        For i = ubc - 2 To LBound(c) Step -1
            If c(i) <> "" Then
                s = s + 1
                som(s) = c(i)
                If s = 3 Then Exit For
            End If
        Next i
        If s = 3 Then
            If c(ubc - 1) [color=#FF0000][size=150]<[/size][/color]= -2 Then
                If c(ubc - 1) < som(2) And som(1) < som(3) Then droledetruc = 1: Exit Function
            ElseIf c(ubc - 1) [color=#FF0000][size=150]>[/size][/color]= 2 Then
                If c(ubc - 1) > som(2) And som(1) > som(3) Then droledetruc = 1: Exit Function
            End If
        End If
    End If
    droledetruc = ""
End Function
Avec ton accord, est-ce que je peux copier ton code sur les autres forum, avec ton pseudo, et le lien renvoyant ici ?
Modifié en dernier par alphadupoint le 26 novembre 2018, 12:33, modifié 1 fois.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'328
Appréciations reçues : 266
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 26 novembre 2018, 12:25

Bonjour,

je te remercie de ne pas copier le code sur d'autres forums, par contre tu peux y mettre un lien vers la solution ici.

merci de mettre ton code corrigé entre balises code (bouton </> dans la barre de menu du message).
a
alphadupoint
Membre habitué
Membre habitué
Messages : 54
Appréciations reçues : 2
Inscrit le : 18 novembre 2018
Version d'Excel : 2016

Message par alphadupoint » 26 novembre 2018, 13:33

Voilà les liens ont été fait.

Et désolé d'avoir été :

Peut claire,
Une perte de temps pour certaine personne,
D'avoir bousculé un peut les codes (peut être mon coté pécheur (lancer des lignes à plusieurs endroits...)
Une source de mécontentement tout simplement.

Un grand merci..
a
alphadupoint
Membre habitué
Membre habitué
Messages : 54
Appréciations reçues : 2
Inscrit le : 18 novembre 2018
Version d'Excel : 2016

Message par alphadupoint » 26 novembre 2018, 13:57

Et comme tout travail demande salaire,

Je vous invites à vous inscrire sur ce site :
https://www.bitsler.com/

Qui est un site ou vous pouvez faire fructifier une petite somme de départ en bitcoin.
Cette petite somme de bitcoin se réclame gratuitement dans le menu général, onglet "Free BTC" ou vous pouvez récupérer 150 satoshi, 0,00000150 BTC

Ensuite allez dans l'onglet "Game" et choisir "Dice"
Configurez le jeux sur x2, se qui vous donnera quasiment une chance sur deux (49,5%) gagner votre investissement.

Je vous conseil de :
Configurer la somme à jouer sur le minimum càd 0,00000001 btc
Garder toujours le même sens de jeu (<49,50% ou >50,49%)

Pour chaque sortie, entrer dans le fichier excel, -1 pour perdu, 1 pour gagner .
Si gagner grâce à une série de -1, ne pas oublié de repositionner par exemple <49,50 sur >50,49 ou inversement, cela dépend de votre sens de jeu initial.

Quand dans la colonne D un 1 apparait, jouer votre capital/4 dans le sens de la tendance dominante.

Ne stresser pas si vous perdez vos 150 satoshi, vous pouvez en réclamer une 10ène de fois par jour.

Et se que tu viens de réaliser H2so4 cela s'appelle de la modélisation financière ;)

Amusez-vous bien :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message