Boucle VBA avec compteur d'occurrences et arrêt quand valeur trouvée

Bonjour,

J'aimerai faire une boucle de rafraichissement automatique type "F9" jusqu'à qu'une certaine valeur soit trouvé.

Je souhaite aussi faire un compteur du nombre d'occurrence nécessaire afin de trouver cette valeur.

Je ne peux malheureusement pas partager de fichier simplifié du au caractère sensible des données et la complexité d'un fichier simplifié.

Cordialement

Bonsoir,

une surveillance événementielle sur la cellule devant contenir la variable évolutive jusqu'à sa valeur de recherche.
Et s'il y a variation de cette valeur par calcul, alors il y a aussi l'événement "calculate" qui vous permettra de compter le nombre de fois que les calculs ont eu lieu...

@ bientôt

LouReeD

Bonjour,

Petit update depuis le temps.

J'ai fini par le faire via un script avec l'onglet "Automatiser" sur 365 FR :

function main(workbook: ExcelScript.Workbook) {

    let cellAddress = "R18";  // cellule cible
    let threshold = 3;      // valeur seuil

    let sheet = workbook.getActiveWorksheet();

    let targetCell = sheet.getRange(cellAddress);

    let occurrenceCount = 0;

    while (parseFloat(targetCell.getValues() as string) < threshold) {
        sheet.calculate();
        occurrenceCount++;
    }
    let outputCell = sheet.getRange("V16");
    outputCell.setValue(occurrenceCount);

}

Bonne journée,

bonjour Théo123,

c'est ceci en VBA ?

Private Const Threshold = 3                  'valeur à atteindre
Private Const N = 1000                       'max nombre de essais

Sub Theo()
     Dim i, b

     For i = 1 To N
          Calculate
          b = (Sheets("Feuil1").Range("R18").Value = Threshold)
          If b Then Exit For
     Next

     If b Then MsgBox "Valeur atteint après " & i & " boucles" Else MsgBox "Valeur n'est pas trouvé après " & N & " boucles"
End Sub

Bonjour BsAlv,

Par soucis de sécurité dans mon entreprise je ne vais pas pouvoir le tester.

Mais au vu du code je ne vois aucun problème quand au fonctionnement de celui-ci.

Merci pour cette proposition