FanExcel
XLDnaute Occasionnel
Bonjour à tout le forum
Je souhaiterais automatiser la recopie d’une formule de calcul suivant le mois d’établissement d’un tableau de bord.
Il s’agit du suivi budgétaire du chiffre d’affaires de magasin.
Par famille de produits (Jardinage et aliments dans l’exemple), comparer le budget au réalisé ou à la reprévision demandée aux responsables de magasins qui saisissent dans la ligne reprévision.
Cette ligne reprévision est modifiée lorsque le CA réellement réalisé est connu.
Dans ce cas, je « tire » la formule qui va chercher la ligne REA.
Je souhaiterais automatiser cette opération en fonction du numéro de mois qui figure dans la cellule L1 du fichier.
Dans l’exemple, le numéro de mois est 3. Obtenir dans la ligne 7 pour les mois 1 à 3 la formule = données de la ligne 6 et protéger les cellules. Laisser libres pour la saisie et non protégées les cellules des mois 04 à 12.
J’ai essayé en m’enregistrant mais ne sait pas comment définir la destination de la cellule copiée
Range("c7").Select
Application.CutCopyMode = False
Selection.Copy
Range("????????????").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Ou, éventuellement, y intégrer un compteur ?
Dim i As Integer
i = Range("L1").Select
Je joins un petit bout de fichier, ce sera peut être plus explicite
Dans la feuille « Départ » un bout de la base
Dans la feuille essai, mes infructueuses tentatives.
D’avance merci
Et bonne journée à tout le forum.
Je souhaiterais automatiser la recopie d’une formule de calcul suivant le mois d’établissement d’un tableau de bord.
Il s’agit du suivi budgétaire du chiffre d’affaires de magasin.
Par famille de produits (Jardinage et aliments dans l’exemple), comparer le budget au réalisé ou à la reprévision demandée aux responsables de magasins qui saisissent dans la ligne reprévision.
Cette ligne reprévision est modifiée lorsque le CA réellement réalisé est connu.
Dans ce cas, je « tire » la formule qui va chercher la ligne REA.
Je souhaiterais automatiser cette opération en fonction du numéro de mois qui figure dans la cellule L1 du fichier.
Dans l’exemple, le numéro de mois est 3. Obtenir dans la ligne 7 pour les mois 1 à 3 la formule = données de la ligne 6 et protéger les cellules. Laisser libres pour la saisie et non protégées les cellules des mois 04 à 12.
J’ai essayé en m’enregistrant mais ne sait pas comment définir la destination de la cellule copiée
Range("c7").Select
Application.CutCopyMode = False
Selection.Copy
Range("????????????").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Ou, éventuellement, y intégrer un compteur ?
Dim i As Integer
i = Range("L1").Select
Je joins un petit bout de fichier, ce sera peut être plus explicite
Dans la feuille « Départ » un bout de la base
Dans la feuille essai, mes infructueuses tentatives.
D’avance merci
Et bonne journée à tout le forum.