Macro avec 1 formule différente liée au mois
BROCH002
Messages postés
13
Statut
Membre
-
G.David Messages postés 790 Statut Membre -
G.David Messages postés 790 Statut Membre -
Bonjour,
Je cherche à inclure dans une macro excel 12 formules liées aux mois pour remplir une cellule:
Exemple :
Si la cellule FI = janvier
Range("R4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=C:\Program Files\Budget\[Budget .xls]Budget'!R4C18"
Si la cellule FI = Février
Range("R4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=C:\Program Files\Budget\[Budget .xls]Budget'!R4C15"
Si la cellule FI = Mars
Range("R4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=C:\Program Files\Budget\[Budget .xls]Budget'!R4C12"
Range("R4").Select
Selection.Copy
Range("R5:R2000").Select
Etc... jusqu'à décembre.
Je souhaite le faire par macro pour éviter 2000 cellules avec une formule conditionnelle à 12 variables, trop lourd.
Merci de votre aide.
Je cherche à inclure dans une macro excel 12 formules liées aux mois pour remplir une cellule:
Exemple :
Si la cellule FI = janvier
Range("R4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=C:\Program Files\Budget\[Budget .xls]Budget'!R4C18"
Si la cellule FI = Février
Range("R4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=C:\Program Files\Budget\[Budget .xls]Budget'!R4C15"
Si la cellule FI = Mars
Range("R4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=C:\Program Files\Budget\[Budget .xls]Budget'!R4C12"
Range("R4").Select
Selection.Copy
Range("R5:R2000").Select
Etc... jusqu'à décembre.
Je souhaite le faire par macro pour éviter 2000 cellules avec une formule conditionnelle à 12 variables, trop lourd.
Merci de votre aide.
1 réponse
-
pourquoi une macro lorsque l'on peut l'éviter
tu fait un tableau sur une feuille quelconque dans un coin ou tu n'écriras rien
(à part le tableau cela s'entend)
janvier C:\Program Files\Budget\[Budget .xls]Budget'!R4C18
fevrier C:\Program Files\Budget\[Budget .xls]Budget'!R4C15
mars
decembre C:\Program Files\Budget\[Budget .xls]Budget'!R4C2"
(bon j'ai pas vérifier le pas de décroissement) des colonne
ceci fait tu sélectionne le tableau entier de janvier à C:\Program Files\Budget\[Budget .xls]Budget'!R4C2"
et tu le nomme ( par ex Tablo)
dans ta cellule au lieu d'une montrueuse formule tu tapes =rechercheV(F1;tablo;2;faux)