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
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").ClearContentsRange("p6:q6").ClearContents
Range("A136").Select
