Help!! Boucle vba Résolu/Fermé

Question

Bonsoir le forum,
aidez moi svp à mettre mon code sous forme d'une boucle

   Range("F101").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F102").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F103").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F104").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F105").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F106").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F107").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F108").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F109").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F110").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F111").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F112").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
    Range("F113").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"
....

    Range("F195").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-5],22,3)"

Merci.
Bonne soirée.

ThauTheme · Answer

Bonsoir le forum,

C'est le B A BA MissABC !...

Sub Macro1()
For I = 101 To 195
    Range("F" & I).FormulaR1C1 = "=MID(RC[-5],22,3)"
Next I
End Sub

Help!! Boucle vba

1 réponse

Discussions similaires