Boucle itérative

pierrejean

XLDnaute Barbatruc

• 9 Janvier 2013

• #2

Re : Boucle itérative

bonjour legrand.slb

Et on fait quoi des resultats successifs (ou du resultat final ) ???

 

Vote positif 0 Vote négatif

L

legrand.slb

Guest

• 9 Janvier 2013

• #3

Re : Boucle itérative

bonjour pierrejean,
on oubli les résultats successifs, le fichier boucle sur lui-même et le résultat final s'affiche à la 30ième itération
merci de ton aide, bertrand

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Janvier 2013

• #4

Re : Boucle itérative

Re

Entre temps j'avais fait ceci
Voir en feuil2
Je revois pour afficher a coté

 

Pièces jointes

• Itération.xls

  67.5 KB · Affichages: 37
• Itération.xls

  67.5 KB · Affichages: 36
• Itération.xls

  67.5 KB · Affichages: 40

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Janvier 2013

• #5

Re : Boucle itérative

Re

Et voila en Feuil1

 

Pièces jointes

• Itération.xls

  69.5 KB · Affichages: 55
• Itération.xls

  69.5 KB · Affichages: 58
• Itération.xls

  69.5 KB · Affichages: 52

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 9 Janvier 2013

• #6

Re : Boucle itérative

bonjour legrand.slb , l'ami pierrejean🙂🙂
une autre facon de l'ecrire comme j'ai compris pas sûre🙁 copy tablo a cote en g4

Code:

 Sub es()
 Dim t(), t1(), x As Long, i As Long, c As Long, z As Long
  Application.ScreenUpdating = False
  Range("A4:E23").Copy Destination:=[g4]
  For z = 1 To [b1]
  x = 0
  t = Range("g4:k23")
  ReDim t1(1 To UBound(t), 1 To 5)
  For i = 1 To UBound(t)
  x = x + 1
  If x = 1 Then t(i, 4) = t(i, 4) * 2: t(i, 5) = t(i, 5) / t(i, 4)
  For c = 1 To 5: t1(x, c) = t(i, c): Next c
  Next i
  [g4].Resize(x, 5) = t1
  Erase t, t1
  [g4:k23].Sort Key1:=Range("k4"), Order1:=xlDescending, Header:=xlGuess
  Next z
End Sub

ps :remplacer
t(i, 4) = t(i, 4) * 2
par
t(i, 4) = t(i, 4) +1

 

Dernière édition: 9 Janvier 2013

Vote positif 0 Vote négatif

L

legrand.slb

Guest

• 9 Janvier 2013

• #7

Re : Boucle itérative

Bonsoir pierrejean et laetitia90

Merci beaucoup pour votre aide.
La solution pierrejean répond à la question posée mais j'ai plusieurs fichiers d'un nombre de lignes variable. Serait-il possible de ne pas mettre en dur la longueur du tableau dans la macro ?
Et au risque de paraître exigeant serait-il possible de mettre le résultat dans une nouvelle feuille.

Pour Laetiti90, j'ai bien remplacé
t(i, 4) = t(i, 4) * 2
par
t(i, 4) = t(i, 4) +1
mais à la 5° itération(correspondant à la 3° itération du produit 1) le produit 1 passe d'un coût de 10 000 à 3333 au lieu de 6667. La division doit se faire sur la valeur initiale et non sur la valeur recalculée.

Merci encore de votre aide
Bertrand

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 9 Janvier 2013

• #8

Re : Boucle itérative

Bonsoir
Ce qui facilite nos réponses ... rapides
c'est de mettre ( certes ajouter des com.) ex avec des fleches le debut et ce que l'on veut en final !!
Ce n'est que ma perception ...... certains pourraient approuver mais comme ils ont été satisfait .. on les voit plus ... Dommage

 

Vote positif 0 Vote négatif

L

legrand.slb

Guest

• 9 Janvier 2013

• #9

Re : Boucle itérative

Bonsoir herve62

Je ne suis pas sûr d'avoir bien compris ton post.
Si je traduis, ma demande n'était pas assez explicite ?????

Mais souvent, c'est seulement en voyant le résultat que le choses se précise du coté demandeur..... non ?

Bien cdt
Bertrand

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Janvier 2013

• #10

Re : Boucle itérative

Re

Version avec tableau de dimensions variables
Doit cependant debuter en A3 et avoir une ligne de titres

 

Pièces jointes

• Itération(1).xls

  67 KB · Affichages: 38
• Itération(1).xls

  67 KB · Affichages: 42
• Itération(1).xls

  67 KB · Affichages: 39

Vote positif 0 Vote négatif

L

legrand.slb

Guest

• 10 Janvier 2013

• #11

Re : Boucle itérative

Merci beaucoup pierrejean

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Janvier 2013

• #12

Re : Boucle itérative

Re

Et voila pour mettre dans une autre feuille

 

Pièces jointes

• Itération(1).xls

  69.5 KB · Affichages: 40
• Itération(1).xls

  69.5 KB · Affichages: 41
• Itération(1).xls

  69.5 KB · Affichages: 46

Vote positif 0 Vote négatif

L

legrand.slb

Guest

• 11 Janvier 2013

• #13

Re : Boucle itérative

Un dernier merci pierrejean
Cdt
Bertrand

 

Vote positif 0 Vote négatif