Arrêter la boucle probleme

Bonjour

j'ai essayé de faire une boucle de calcul

et ca c'est mon code final :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 0 To 50

Range("I23") = -Range("$I$22") * Worksheets("SDC Z04").Range("$F$25") ^ 0 * WorksheetFunction.VLookup(Range("C23"), _
Worksheets("SDC Z04").Range("$C$15:$F$174"), 4, False) - Range("$I$22") * Worksheets("SDC Z04").Range("$F$25") ^ i * _
WorksheetFunction.VLookup(Range("C23"), Worksheets("SDC Z04").Range("$C$15:$F$174"), 4, False)

Next i
End Sub

je veux deux opération a faire

1- que cette formule est faire pour les cellule I23 jusque I170 et dans Vlookup C23 jusqua C170

2- j'ai remarqué qu'a chaque fois quand je clique a différent cellule, la cellule I23 recalcule, je veux arrêter cette formule quand la cellule I23 est remplis

Merci *

Bonjour,

Fournir le fichier KIVABIEN avec.

A+

la taille du fichier est 62 Mo

Il semble qu'il n'y ait que 2 feuilles concernées : La feuille KIVABIEN et Worksheets("SDC Z04")

A+

La feuille SDC Z04 et liée avec 26 Autres Feuille

je vais essayer de créer un Classeur pour test

Rechercher des sujets similaires à "arreter boucle probleme"