VBA: compteur conditionnel

De rien

Pense à marquer le sujet résolu avec les 3 points en bas de ton premier message 

Bonjour Whismeril,

Je reviens sur ton code de vendredi (que j'ai appliqué à ma macro ci dessous) . Et il y a un cas pour lequel il ne marche pas. 

Je m'explique:

effectivement, la macro va me sortir le "i" demandé avec la fonction :

If Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j) > 0 Then Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j + 1) = i
   

Et le "end for""

SAUF (et je ne l'explique pas) : quand la valeur de la fonction petite valeur va être pour la première fois > 0, et se suffira à elle même pour répondre à la condition souhaitée cad, cells(l,j)> cells(l,j-1) . (pas besoin de sommer 2 "i" pour arriver au résuluat souhaité donc)

Dans le cas ou (et c'était le cas dans mon exemple de vendredi), la formule va devoir additionner au moins 2 petites valeurs >0 pour répondre à la condition cells(l,j)> cells(l,j-1) alors la , cela fonctionnera . 

Ce sera peut être plus parlant:

1er c:   cells(l,j-1)

2eme c:   cells(l,j)

3eme c:  cells(l,j+1)

typiquement le résultat de la "3eme c" de la 1er ligne qui est à 0, devrait être à 26 (NB: la 1er c = 1.0% et la 2eme c= 1.02% donc ce n'est pas égal) . En effet je dois attendre la 26eme itération pour que la condition  cells(l,j)> cells(l,j-1) soit remplie sans avoir besoin de la sommer avec un autre "i">0

Merci à toi !

Sub stress_test_passif()

Application.ScreenUpdating = False

Workbooks.Open Filename:= _
        "P:\Bureau\Audit Contrôle\Suivi des risques\tableau de bord\Portefeuille FIA sous gestion.xlsx"
  
Windows("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Activate

'gf de breves

For k = 1 To 32
For j = 3 To 61 Step 4
For i = 1 To 40

l = k + 52

If Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j) = 0 Then Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j + 1) = 0


a = WorksheetFunction.Small(Workbooks("Portefeuille FIA sous gestion.xlsx").Sheets(k).Range("k10:k49"), i)
Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j) = Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j) + a
If Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j) >= Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j - 1) Then

Exit For

End If

If Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j) > 0 Then Workbooks("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Sheets("marché secondaire inactif").Cells(l, j + 1) = i + 1
   

Next i

Next j
 
Next k


Windows("suivi des augmentations de K + STRESS TEST PASSIF.xlsm").Activate



Application.ScreenUpdating = True


End Sub

Heu....

J'ai pas compris...

Peux tu donner les valeurs d'entrée qui amènent à ce résultat incorrect ?

ouais l'enfer d'écrire ça mes "i" qui sont donc compris entre 1 et 40, s'appliquent via la formule petitevaleur, sur une plage de cellules égales à 0 ou > à 0. si je vire mes 0, ta formule marche sans problème quelque soit le cas . par contre si je les laisse, évidemment les premières petites valeurs font ressortir tous mes 0 (c'est normal et ce n'est pas un problème ) mais dès que la 1er valeur > 0 est identifiée et qu'en plus la condition Cells(l,j) > Cells(l,j-1) est remplie, la boucle va évidemment s'arrêter mais elle va me compter i = 0 , alors que j'aurais du avoir toutes les fois ou le résultat de mes i = 0 + la 1er valeur positive. la ou la logique est curieuse c'est que si pour satisfaire cette condition Cells(l,j) > Cells(l,j-1) , il me faut 2 valeurs positives la formule marche sans problème là aussi . J'ai bidouillé un truc qui fonctionne pour corriger cela mais j'aimerai comprendre . Merci Matthieu

Evidement que c'est une lettre fantôme due à une frappe clavier trop légère .

Va-tu me demander l'accent sur le: "E" ?