simplifier et répéter une formule 360 fois

[spadassi]

Bonjour,

je suis débutant en macro et j'aimerai répéter une opération fastidieuse 360 fois dans ma feuille excel.

Voici les actions qui doivent être faites :

Sélectionner une cellule faisant partie d'une liste de 1 à 360
la copier (par exemple la 1ere cellule notée 1)
aller coller la valeur dans une "cellule fixe"
lancer une macro nommée "lissage"
sélectionner une "cellule fixe" dans laquelle apparaitra le résultat
copier le résultat
coller ce résultat dans une cellule

et recommencer cela 359 autres fois.

au final j'aurais donc un petit tableau à deux colonnes, la première numérotée de 1 à 360 et juste à côté tous les résultats correspondants...


maintenant je me demande si j'utilise la bonne stratégie en allant copier les chiffres de 1 à 360 tout ça dans le seul but de faire les 360 calculs, ne serait il pas plus simple de trouver une commande qui permettrait de faire les calculs de 1 à 360 sans cette étape ? car pour mois ce qui compte c'est que la case D4 voit défiler les chiffres de 1 à 360.

Sub Macro6()
'
' Macro6 Macro
'

Range("N17").Select
Selection.Copy
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Range("O17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N18").Select
Application.CutCopyMode = False
Selection.Copy
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Range("O18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Application.CutCopyMode = False
Selection.Copy
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Run ("Lissage")
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy

Range("o17").Activate
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
Wend



Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("o17").Activate
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
Wend
Selection.Offset(0, -1).Select


etc


End Sub





par avance merci à ceux qui pourront m'aider

 

[Victor21]

Re : simplifier et répéter une formule 360 fois

Bonjour, spadassi, et bienvenue sur XLD.

Si vous aviez la bonne idée de joindre un court extrait de votre fichier (respectant sa structure, sans données confidentielles, avec vos explications) en illustration de votre question, les contributeurs intéressés n'auraien pas besoin de tenter de reconstituer celui-ci pour tester leurs propositions.
🙂

Notez que les "select" sont rarement nécessaires.

Range("N17").Select
 Selection.Copy
 Range("D4").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False

peut être avanageusement remplacé par :

Range("D4") = Range("N17").Value

 

[spadassi]

Re : simplifier et répéter une formule 360 fois

je te remercie pour ta réponse,

étant donné que j'ai besoin qu'une autre macro soit exécutée avant d'obtenir le résultat je peux le faire ainsi :

Sub copie()
[d4] = [n17].Value
Application.Run ("Lissage")
[o17] = [d12].Value
End Sub

c'est cette macro qui me permet d'obtenir le résultat en d12 qui sera donc copié en o17, par contre, comment passer à la formule suivante qui sera :

Sub copie()
[d4] = [n18].Value
Application.Run ("Lissage")
[o18] = [d12].Value
End Sub

et cela jusqu'à

Sub copie()
[d4] = [n376].Value
Application.Run ("Lissage")
[o376] = [d12].Value
End Sub


par avance merci