Discussion :

[barbie-9]

Bonjour à tous,
J'aimerai bien créer une macro qui me permettra de résoudre le problème suivant :
Dans le fichier excel ci joint, j'ai 4 colonnes A: jours, B=prix, C=variation de prix (p(t)-p(t-1))
*) si la variation de prix dans la colonne C ( p(t)-p(t-1)) est différente à 0, la valeur obtenu s'affichera telle quelle est dans la même cellule de la colonne D.

*) si la variation de prix de la colonne C (p(t)-p(t-1)) est égale à 0 dans ce cas, je passe à comparer p(t) avec p(t-2) si p(t)-p(t-2) est positive (négative), j'affectera dans la même cellule de la colonne D la valeur 1 (-1 pour la un résultat negative).
Or si p(t)-p(t-2)=0 je passe à comparer p(t)-p(t-3) la même pour p(t)-p(t-4) et p(t)-p(t-5) jusqu'à ce que j'obtiens une variation de prix non nulle. je m’arrêterai juste au niveau p(t)-p(t-5) et si cette variation p(t)-p(t-5) reste 0, la même cellule de la colonne D restera vide (pas de valeur).

je veux résoudre ce problème par série de jour (c.à.d chaque jour à part) d'ou la difficulté
merci d'avance

[gFZT82]

Bonjour,

je veux résoudre ce problème par série de jour (c.à.d chaque jour à part)

Si j’ai bien compris, tu ne prends pas en compte les variations entre 2 jours différents.
Entre le 01092008 et le 02092008, la variation de -40 (7550 – 7510) n’est pas prise en compte.
Idem entre le 02092008 et le 03092008, variation de -20 (7490 – 7470).
Idem entre le 03092008 et le 04092008, variation de -220 (7440 – 7220).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Dim DerLig As Long
Dim MaPlage As Range, Cel As Range
    With Worksheets("Feuil1") 'Nom de feuille à adapter
        DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
        Set MaPlage = .Range("A2:A" & DerLig - 1)
        For Each Cel In MaPlage
            'Si les 2 dates sont identiques, on effectue le traitement
            If Cel.Offset(1, 0) = Cel Then _
                Cel.Offset(1, 2) = Cel.Offset(1, 1) - Cel.Offset(0, 1)
        Next
    End With
End Sub

Cordialement.

[barbie-9]

oui vous avez compris chaque jour a part seulement la macro ne me donne aucun résultat

[gFZT82]

Re,

Effectivement, j'ai oublié le traitement de la colonne D

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
Dim DerLig As Long
Dim MaPlage As Range, Cel As Range
    With Worksheets("Feuil1") 'Nom de feuille à adapter
        DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
        Set MaPlage = .Range("A2:A" & DerLig - 1)
        For Each Cel In MaPlage
            'Si les 2 dates sont identiques, on effectue le traitement
            If Cel.Offset(1, 0) = Cel Then
                'Calcul de la variation
                Cel.Offset(1, 2) = Cel.Offset(1, 1) - Cel.Offset(0, 1)
                'Remplissage colonne D
                Select Case Cel.Offset(1, 2)
                Case Is < 0
                    Cel.Offset(1, 3) = -1
                Case Is > 0
                    Cel.Offset(1, 3) = 1
                End Select
            End If
        Next
    End With
End Sub

Cordialement.

[barbie-9]

merci de m'avoir répondu
votre macro traite seulement, les variations de prix qui sont différente de zero or mon problème cité ci-dessus est de traiter principalement les variations égale à zéro votre macro me donne une partie des résultats souhaités.
Cordialement,

[gFZT82]

Re,

dans l’énoncé de ta demande, je ne vois pas quel traitement tu souhaites réaliser quand une variation est égale à zéro.
Pour traiter ce cas, il te suffira de rajouter une clause

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case Is = 0

Cordialement.