Macro calcul en boucle et report de résultats les uns à la suite des autres

[JulB]

Bonjour,

Dans ma cellule A4 j'ai un paramètre permettant d'afficher des résultats dans G4 et G6. Est-il possible d'avoir une macro qui change la valeur de A4 par 10 autres valeurs inscrites de B2 à B11 et recopie les valeurs qui s'affichent dans G4 et G6 pour chaque valeur présente de B2 à B11 dans la colonne I?

Ça me rendrait un grand service. Merci.

 

[ChTi160]

Bonjour juiB
un petit fichier exemple ?
de ce que tu as et de ce que tu veux ?
Bonne journée
jean marie

 

[mécano41]

Bonjour,

Pas sûr d'avoir compris...il faudrait dire ce qui va déclencher le changement. Dans l'exemple joint, c'est un bouton...

EDIT : je suis sûr que je n'ai pas compris...tu parles de colonne I...

Cordialement

 

[chris]

Bonjour à tous

Ce post double celui ci auquel j'attends toujours une réponse !
https://www.excel-downloads.com/thr...s-resultats-affichees.20025685/#post-20194584

 

[JulB]

Bonjour juiB
un petit fichier exemple ?
de ce que tu as et de ce que tu veux ?
Bonne journée
jean marie

Voici un fichier exemple Jean Marie. J'y ai mis quelques commentaires. Merci

 

[JulB]

Bonjour,

Pas sûr d'avoir compris...il faudrait dire ce qui va déclencher le changement. Dans l'exemple joint, c'est un bouton...

EDIT : je suis sûr que je n'ai pas compris...tu parles de colonne I...

Cordialement

Merci Mécano41. Pas mal déjà mais je voudrais en plus que ça me recopie les valeurs calculées en G4 et G6 en face de chaque valeur de la colonne B. Sinon le changement de ligne est déjà bon. Merci

 

[Dranreb]

Bonjour.
Comme ça par exemple, dans le module de la feuille :

Private Sub CommandButton1_Click()
   Dim Cel As Range, TDon(), TRés(), L&
   TDon = Me.[B2:B11].Value
   ReDim TRés(1 To UBound(TDon, 1), 1 To 2)
   For L = 1 To UBound(TDon, 1)
      Cells(4, "A").Value = TDon(L, 1)
      TRés(L, 1) = Cells(4, "G").Value
      TRés(L, 2) = Cells(6, "G").Value
      Next L
   Me.Cells(2, "C").Resize(UBound(TRés, 1), 2).Value = TRés
   End Sub

 

[JulB]

Bonjour.
Comme ça par exemple, dans le module de la feuille :

Private Sub CommandButton1_Click()
   Dim Cel As Range, TDon(), TRés(), L&
   TDon = Me.[B2:B11].Value
   ReDim TRés(1 To UBound(TDon, 1), 1 To 2)
   For L = 1 To UBound(TDon, 1)
      Cells(4, "A").Value = TDon(L, 1)
      TRés(L, 1) = Cells(4, "G").Value
      TRés(L, 2) = Cells(6, "G").Value
      Next L
   Me.Cells(2, "C").Resize(UBound(TRés, 1), 2).Value = TRés
   End Sub

T'es une bénédiction Dranreb. C'est exactement ce que je cherchais. Merci beaucoup. Très bonne journée