Help!! Boucle vba

Résolu/Fermé
Signaler
Messages postés
3
Date d'inscription
lundi 25 avril 2016
Statut
Membre
Dernière intervention
26 avril 2016
-
Messages postés
3
Date d'inscription
lundi 25 avril 2016
Statut
Membre
Dernière intervention
26 avril 2016
-
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

Messages postés
1413
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
4 décembre 2021
154
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

Messages postés
3
Date d'inscription
lundi 25 avril 2016
Statut
Membre
Dernière intervention
26 avril 2016

merci bcp je suis débutante et j'utilise l'enregistrement automatique
Bonne journée,