Help!! Boucle vba

Résolu/Fermé
missabc2016 Messages postés 3 Date d'inscription lundi 25 avril 2016 Statut Membre Dernière intervention 26 avril 2016 - 25 avril 2016 à 18:44
missabc2016 Messages postés 3 Date d'inscription lundi 25 avril 2016 Statut Membre Dernière intervention 26 avril 2016 - 26 avril 2016 à 11:47
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.

1 réponse

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
25 avril 2016 à 19:39
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

0
missabc2016 Messages postés 3 Date d'inscription lundi 25 avril 2016 Statut Membre Dernière intervention 26 avril 2016
26 avril 2016 à 11:47
merci bcp je suis débutante et j'utilise l'enregistrement automatique
Bonne journée,
0