Créer une boucle

Bonjour,

Merci de m'indiquer comment faire une boucle pour régler mon problème.

Merci

Ci joint Tableau Excel

Bonsoir,

une manière de faire

Sub aargh()
    With Sheets("feuil1")
        .Range("E9") = .Range("E8")
        While Int(.Range("N9") - .Range("O9")) <> 0
            .Range("E9") = .Range("E9") - 0.01
            DoEvents
        Wend
    End With
End Sub

Merci pour l'information,

Je ne connais pas le processus, je copie ces instructions dans E9 ?.

L'ensemble des instructions est sur 9 lignes comment l’insérer dans une seule cellule ?

Merci de m'informer

Gut

Suite

L'instruction doit être répétée dans E10, E11. . . ., jusque N soit à 0.

bonsoir,

merci de voir la proposition dans le fichier en annexe

Merci pour votre réponse et votre solution.

Pour qu'il n'y est pas de problème, notamment si B10 = 20, il faut que G8 soit "= B10".

les résultats sont bons.

Quelle est la tolérance <>0

Merci encore

Pour plus de précision (i, "E") -0.001.

Bonjour,

code adapté,

1) pour qu'il n'y ait pas de problème avec le calcul des valeurs en colonne D, de la valeur de D8 à la valeur contenue dans G8 par incrément de 1.

2) la tolérance était 0.9999, code adapté pour retenir la valeur la plus proche possible compte tenu de l'incrément pour la colonne E( B14)

Bonjour,

Merci pour votre dernier envoi.

Il semble que la boucle s'arrête à D15, si B4=20 !

Si possible :

D: jusque = Ta, ensuite effacer les lignes suivantes provenant d'un précédent calcul.

Pour vérification, faire un calcul avec Ta= 20 et ensuite Ta=15

Merci encore

Gut

Bonjour,

code adapté

Merci,

C'est super

J'ai voulu essayé d'ajouter une ligne et colonne et modifiè les références

mais cela ne fonctionne pas

En pièce jointe la macro modifiée !

Sans succès

Merci encore

Gut

Bonjour,

Si incrément 0.1 le calcul est plus rapide, normal et juste, mais quelques fois il est impossible d'effectuer le re-calcul juste à 0.001.

Si on sauvegarde la feuille, ensuite plus de possibilité de calcul

Merci

Bonjour,

je ne parviens pas à reproduire le problème que tu rencontres. tu mets bien un incrément négatif ?

Bonjour,

Effectivement j'ai fait l’erreur de rentrer une valeur positive.

Mais il reste une erreur à la dernière cellule.

IL reste aussi le problème de copie et l'ajout de lignes ou colonnes

Bon dimanche

Gut

Ci joint la feuille tests

Bonjour,

version adaptée à l'ajout d'une ligne et d'une colonne. correction pour le calcul de la dernière ligne.

contrairement aux formules Excel, le code VBA ne s'adapte pas automatiquement en cas d'ajout ou de suppression de lignes ou de colonnes, il faut modifier manuellement le code.

Est il possible que sur la dernière feuille tu supprime la ligne et la colonne A "sans autres modification que l'adaptation ", afin que je

vois les modifications à faire sans te déranger.

Ci joint les modifications que j'ai noté et que tu peux compléter "autre couleur" sur la copie.

Merci encore

Gut

Bonjour,

j'ai pas compris ce que tu veux.

tes indications en rouge reflètent bien les modifications à faire au code en cas d'ajout de lignes et de colonnes.

j'ai détecté une petite erreur

dl = .Cells(Rows.Count, "E4).End(xlUp).Row            

doit être

dl = .Cells(Rows.Count, "E").End(xlUp).Row