recherche regression sur une ligne

hajorinette

XLDnaute Occasionnel
Bonjour le forum

Je sollicite votre aide pour un petit sujet
le fichier il me semble est très clair mais je peux détailler davantage au besoin

merci beaucoup!!!
 

Pièces jointes

  • XLD.xls
    25.5 KB · Affichages: 53
  • XLD.xls
    25.5 KB · Affichages: 50
  • XLD.xls
    25.5 KB · Affichages: 46

Odesta

XLDnaute Impliqué
Re : recherche regression sur une ligne

Très rapidement (il faut parametrer toutes les bornes de fin des boucles ! et éventuellement les remplacer par des While/Wend)

VB:
Sub trouver_annee()

'le but de la macro est de trouver l'annee ou les vente dégringolent

seuil = 0.1

For ligne_obs = 3 To 4
    For i = 2 To 13
        If Cells(ligne_obs, i).Value < Cells(ligne_obs, i - 1).Value * seuil Then
            'écrire l'année
            Cells(ligne_obs, 15).Value = Cells(2, i).Value
            Exit For
        End If
    Next i
Next ligne_obs

End Sub


Cdt
O