Sujet Précédent Sujet Suivant

Création d'une boucle

Fermé
daoud388 - 20 avril 2015 à 15:29
Patrice740 Messages postés 4 Date d'inscription lundi 10 juillet 2006 Statut Membre Dernière intervention 20 avril 2015 - 20 avril 2015 à 15:42
Bonjour,
Je débute dans le VBA et je souhaiterai améliorer un programme très long, mais qui je pense peux être fortement réduit grace à une boucle.
Le programme est le suivant :
Range("DA7:DA250").Select
Selection.Insert Shift:=xlToRight
Range("DA7").Select
ActiveCell.FormulaR1C1 = "V"
Range("A500").Select
Selection.Copy
Range("DA7:DA250").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Range("DF7:DF250").Select
Selection.Insert Shift:=xlToRight
Range("DF7").Select
ActiveCell.FormulaR1C1 = "V"
Range("A500").Select
Selection.Copy
Range("DF7:DF250").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Range("DK7:DK250").Select
Selection.Insert Shift:=xlToRight
Range("DK7").Select
ActiveCell.FormulaR1C1 = "V"
Range("A500").Select
Selection.Copy
Range("DK7:DK250").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Merci pour votre aide.
A voir également:

1 réponse

Réponse 1 / 1
Patrice740 Messages postés 4 Date d'inscription lundi 10 juillet 2006 Statut Membre Dernière intervention 20 avril 2015
20 avril 2015 à 15:42
Bonjour,

Je ne suis pas sur qu'un boucle soit la solution, par contre supprimes les commandes inutiles (notamment les Select) : 

Range("DA7:DA250").Insert Shift:=xlToRight
Range("DA7").Formula = "V"
Range("A500").Copy
Range("DA7:DA250").PasteSpecial Paste:=xlPasteFormats

Range("DF7:DF250").Insert Shift:=xlToRight
Range("DF7").Formula = "V"
Range("A500").Copy
Range("DF7:DF250").PasteSpecial Paste:=xlPasteFormats

Range("DK7:DK250").Insert Shift:=xlToRight
Range("DK7").Formula = "V"
Range("A500").Copy
Range("DK7:DK250").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
0