Incrémentation ligne colonne
Résolu
Bonjour,
je suis sous exel et j'ai fais la macro suivante c'est juste un exemple.
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IF(exp_xls!RC=Feuil2!RC,1,0)"
Sheets("exp_xls").Select
Columns("B:B").Select
Selection.Copy
Ce que je souhaiterais faire c'est pouvoir incorporer cette exemple dans une boucle for et pouvoir
incrémenter les lingnes ou colone ou les deux que ce soit dans Range("C1").Select, Columns("B:B").Select, ActiveCell.FormulaR1C1 et je n'arrive pas a trouver la façon de faire, quelqu'un aurait-il une idée.
Merci d'avance pour votre aide
je suis sous exel et j'ai fais la macro suivante c'est juste un exemple.
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IF(exp_xls!RC=Feuil2!RC,1,0)"
Sheets("exp_xls").Select
Columns("B:B").Select
Selection.Copy
Ce que je souhaiterais faire c'est pouvoir incorporer cette exemple dans une boucle for et pouvoir
incrémenter les lingnes ou colone ou les deux que ce soit dans Range("C1").Select, Columns("B:B").Select, ActiveCell.FormulaR1C1 et je n'arrive pas a trouver la façon de faire, quelqu'un aurait-il une idée.
Merci d'avance pour votre aide
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
ModérateurBonjour,
Déjà, commence par virer tes Select, Selection, etc.
Ça alourdit le code et c'est surtout inutile. VBA n'a pas besoin de sélection.
Voici un exemple pour ajouter ta formules sur la plage de cellules C1:C50 :
Sub toto() For Each c In Sheets("Feuil1").Range("C1:C50") c.FormulaR1C1 = "=IF(exp_xls!RC=Feuil2!RC,1,0)" Next c End Sub
m@rina
-
http://www.commentcamarche.net/forum/affich 11898959 telecharger ie 8?#dernier
