Calcul itératif

[Adriano43]

Bonjour à toutes et à tous,

Je souhaiterais mettre en place une macro qui effectuerait un calcul de manière itérative x fois, x étant le chiffre contenu dans une cellule. La subtilité réside dans le fait que je voudrais que chaque itération apparaisse dans une cellule unique.
Ex: itération 1 en F2; itération 2 en G2...

je vous joins un fichier exemple.

Merci de votre aide

Cordialement

Adriano43

 

[phlaurent55]

Re : Calcul itératif

Bonjour Adriano,

voir fichier joint
il est nécessaire d'activer les macros à l'ouverture du fichier

à+
Philippe

 

[Adriano43]

Re : Calcul itératif

Bonjour phlaurent55,

Un seul mot à dire: Chapeau!!!!
Je vais regarder le code et vous tiendrais informé demain et vous poserais surement quelques questions...
En tout cas, un grand merci

Cordialement

A bientôt

Adriano43

 

[Adriano43]

Re : Calcul itératif

Bonjour le forum, bonjour phlaurent55,

Pourriez vous m'indiquer comment procéder si je souhaite rajouter une constante dans le calcul.
Ex : Constante = 100
Variable = 10
Nombre itération = 3

Itération 1 = 100 + 10 *1 = 110...

Cordialement

Adriano43

 

[phlaurent55]

Re : Calcul itératif

Re,

voir fichier joint

à+
Philippe

 

[Adriano43]

Re : Calcul itératif

Re le forum,

Je reviens vers sujet car j'ai du mal m'exprimer... Je souhaiterais que la constante s'applique uniquement à lors de la 1ère itération.
Et j'ai eu beau regarder votre fichier, mais je ne vois pas comment faire...

Je poste en PJ un exemple du résultat souhaité

Merci d'avance

 

[phlaurent55]

Re : Calcul itératif

Re Bonjour,

voir fichier joint

à+
Philippe

 

[Adriano43]

Re : Calcul itératif

Re phLaurent55,

J'ai regardé votre fichier qui marche comme demandé. Il me reste un problème que je n'arrive pas à résoudre, dans le fichier réel; ma plage de données se situent de B38 à D68, et le nombre max d'itérations est de 40.
Pourriez vous m'expliciter votre code afin que j'arrive à l'adapter?

Cordialement

Adriano43

 

[phlaurent55]

Re : Calcul itératif

Re Bonjour,

il suffit de remplacer:
If Not Intersect(Target, Range("B47")) Is Nothing Then

par:

If Not Intersect(Target, Range("B3868 ")) Is Nothing And Cells(Target.Row, 3) < 41 Then

à+
Philippe

 

[phlaurent55]

Re : Calcul itératif

Re,

il faut également Modifier cette ligne:

Range("F" & Target.Row & ":AF" & Target.Row).ClearContents

comme ceci:
Range("F" & Target.Row & ":AS" & Target.Row).ClearContents

à+
Philippe

 

[Adriano43]

Re : Calcul itératif

Re,

Je me permets de revenir vers vous car je n'y arrive décidemment pas...

 

[Adriano43]

Re : Calcul itératif

Re,

C'est bon, c'est ok tout fonctionne parfaitement!!!
Merci Phlaurent55

 

[Adriano43]

Re : Calcul itératif

Re le forum, phlaurent55,

La macro marche comme demandé, cependant je souhaiterais l'adapter en tant que procédure traditionnelle c'est à dire qu'elle s'applique au libre choix de l'utilisateur et non pas automatiquement, mais je n'arrive pas à l'adapter...
Pourriez vous m'aider SVP?

Cordialement

Adriano43

 

[phlaurent55]

Re : Calcul itératif

Re Bonjour,

il suffit de mettre la procédure dans un module et ajouter un bouton sur la feuille
ce bouton déclenchera la procédure
... ne pas oublier de lier le bouton au code

à+
Philippe

 

[Adriano43]

Re : Calcul itératif

Re,

C'est bien ce que j'ai fais ( avec un bouton sur Userform) mais cela provoque une erreur . Car il faut je suppose supprimer la 1ère ligne qui active la macro au changement de valeur de cellule. Je voudrais pouvoir activer uniquement le calcul, mais comment remplacer "Target.Row" dans les identifications.

Cordialement

Adriano43