Incrémentation ligne colonne
Résolu
trolaybus
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
trolaybus Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
trolaybus Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
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
- Formule somme excel colonne - 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
Date d'inscription
Statut
Membre
Dernière intervention
merci pour votre aide