Help!! Boucle vba

Résolu

missabc2016 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
missabc2016 Messages postés 3 Date d'inscription Statut Membre Dernière intervention - 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.

A voir également:

Help!! Boucle vba
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

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

missabc2016 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Mon ordinateur s'allume et s'eteint en boucle

tele s'eteind et s'allume en boucle

Votre réponse

Discussions similaires