Etendre une plage par macro en fonction d'un chiffre demandé à l'utilisateur

  • Initiateur de la discussion Initiateur de la discussion Seboutchou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Seboutchou

XLDnaute Nouveau
Bonjour

Je vous explique mon probleme. j'ai decidé de me coller à la simplification des plannings de mon agence. J'avance bien mais j'ai un ensemble de macro assez lourdingue que j'aimerais simplifier.

Je bosse dans une boite qui engage bcp de saisonniers pdt l'été et j'aimerais pvr avoir une macro permettant de modifier la taille de mon tableau en fonction du nombre (à la hausse ou à la baisse) de saisonniers.
Je joins un tableau et ce que je souhaiterais obtenir c'est que l'intégralité des données et mise en forme de A5:R14 soit décalée vers le bas (créant ainsi une ligne supplémentaire pour un nv saisonnier). J'ai déjà crée la macro pour ça mais là où cela se corse et que le décalage doit se faire d'autant de fois que le chiffre indiqué en U5.
De plus, le decalage doit se faire à partir de la fin du tableau. En gros si j'ai déjà 6 saisonniers dans le tableau et que je veux en rajouter 1 de plus, le decalage doit imperativement se faire à parti du 6eme saisonnier et non pas du 1er.

Je ne sais pas si c'est super clair :s

Merci d'avance pour toute aide


La macro que j'utilise pour le decalage vers le bas

Range("A4:r13").Select
Selection.AutoFill Destination:=Range("A4:r23"), Type:=xlFillDefault
Rows("7:12").EntireRow.Hidden = True
Range("d4:e6").ClearContents
Range("f4:g6").ClearContents
Range("h4:i6").ClearContents
Range("j4:k6").ClearContents
Range("l4:m6").ClearContents
Range("n4😱6").ClearContents
Range("p6:q6").ClearContents
Range("A136").Select
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour