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 : 53
Appréciations reçues : 5
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'982
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 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é 8 fois
a
alphadupoint
Membre habitué
Membre habitué
Messages : 53
Appréciations reçues : 5
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'982
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 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 : 53
Appréciations reçues : 5
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..
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message