Bonjour à tous, j’ai un souci pour automatiser un code.
J’ai un classeur Excel qui possède deux feuilles (onglets) : « JANVIER » et « Récap FY ».
Sur la feuille « JANVIER », je souhaite que la cellule F22 soit égale à la cellule A3 de la feuille « Récap FY ». Puis J22 de la feuille « JANVIER » égale à A4 de la feuille « Récap FY ». Ainsi de suite.
Donc à chaque fois, les cellules de la ligne F, de la feuille « JANVIER » se décalent de 4 colonnes vers la droite. Cette action commence en F22 et se termine en TJ22.
Les cellules de la ligne 22 de la feuille « JANVIER », prennent la valeur des cellules de la colonne A de la feuille « Récap FY », à partir de A3 jusqu’à A145.
Donc à chaque fois, les cellules de la colonne A, de la feuille « Récap FY » se décalent d’1 seule ligne vers le bas
Voici le code que j’ai réalisé :
Mon code fonctionne mais le but du VBA étant d’automatiser les actions, il est ridicule de rédiger un code si laborieux. J’ai notamment rédigé d’autres codes avec des boucles mais aucunes ne fonctionnent. Si quelqu’un peut m’aider, ce sera avec grand plaisir.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub proprietes() Range("f22").Value = Sheets("Récap FY").Range("a3") Range("j22").Value = Sheets("Récap FY").Range("a4") Range("n22").Value = Sheets("Récap FY").Range("a5") Range("r22").Value = Sheets("Récap FY").Range("a6") End Sub
Je vous remercie d’avance et vous souhaite une bonne journée.
Jonathan
Partager