Incrémentation ligne colonne
Résolu
trolaybus
Messages postés
17
Statut
Membre
-
trolaybus Messages postés 17 Statut Membre -
trolaybus Messages postés 17 Statut Membre -
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
A voir également:
- Incrémentation ligne colonne
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Partager photos en ligne - Guide
- Colonne word - Guide
- Mètre en ligne - Guide
2 réponses
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 :
m@rina
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
trolaybus
Messages postés
17
Statut
Membre
merci pour votre aide
