Incrémentation ligne colonne

Résolu/Fermé
trolaybus Messages postés 17 Date d'inscription jeudi 24 février 2005 Statut Membre Dernière intervention 8 avril 2009 - 8 avril 2009 à 09:21
trolaybus Messages postés 17 Date d'inscription jeudi 24 février 2005 Statut Membre Dernière intervention 8 avril 2009 - 8 avril 2009 à 13:37
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
A voir également:

2 réponses

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
8 avril 2009 à 11:18
Bonjour,

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

0
trolaybus Messages postés 17 Date d'inscription jeudi 24 février 2005 Statut Membre Dernière intervention 8 avril 2009
8 avril 2009 à 13:37
merci pour votre aide
0