Analyse d'une suite de nombre dont l'espacement est variable

Bonjour,

Je fais suite à un précédent sujet peut claire, j'espère que celui ci le sera un peut plus

J'ai des sommes de série de 1 et -1 que je veux pouvoir comparer les une aux autres prenant aussi en compte leur valeur.

Les conditions énoncées dans le fichier.

voilà ma problématique :

Le fichier :

test v3 diagramme

Merci pour les 4 téléchargements, j'espère que ça bosse dur ^^

Perso j'ai refermé

Modo pouvez vous supprimez le message inutile de Mr Eric ainsi que celui ci, merci.

A moins que cela soit de l'ironie

Bonsoir,

Sur un site j'ai trouvé ceci :

"Pour connaître la dernière case pleine de la colonne A

Range("A1").end(xlDown)

Tu peux ensuite faire une boucle jusqu’à cette case"

Donc je me dis que la variable Range("n1").end(xlUp) devrait fonctionner, si cela peut aider

Bonjour,

On ne sait plus à qui répondre ...

Bonjour M12,

Sur les 3 ^^ je rigole, ça me rassure tu n'es pas tombé sur le 4eme forum

Si j'ai une solution même provenant d'un autre forum, je la posterais sur chacun d'entre eux, donc ici aussi.

Re,

C'est ton problème, pas le mien

Si tenté de penser que tu avais l'intention de proposer une réponse à mon problème.... Eric sort de M12

Ceci est un Troll Eric

bonjour

il me semble que le multi-post est prohibé sur ce forum (comme sur les autres)

si tu as besoin de relancer ta question parce que tu n'as pas de réponse satisfaisante, relance la question de départ

amitiés à tous

J'ai créé un diagramme, ce que j'aurais du faire depuis le départ, mes excuses.

diagramme

Bonjour,

quel accouchement difficile, enfin des instructions claires !

8alphadupoint.xlsm (18.43 Ko)

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 ) :

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 ?

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).

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..

Rechercher des sujets similaires à "analyse suite nombre espacement variable"