Bonjour à tous,
J’essaie de finir un fichier qui permet d’automatiser la création de quittance de loyer. Mais je butte sur la boucle. J’ai deux feuilles :
La 1er : j’ai la base avec un nombre de lignes variables. Sur chaque lignes les infos nécessaires pour les quittances.
La 2ème : Le modèle que la quittance de loyer
L’idée c’est que lorsque je lance la macro, cette dernière me créer un nouveau classeur avec toutes les quittances de loyer.
Je suis parti sur la solution suivante qui me semble largement « améliorable » ! mais je ne suis pas expert en VBA !! Je bute sur la boucle. Voilà à quoi je pensais. La boucle fait le travail suivant sur chaque ligne :
1 : copie de la 1er ligne dans la base (ligne 2 de la feuille modèle cellules A2:M2)
2 : Collage spécial (valeur) de la sélection dans la feuille MODEL (ligne 2)
‘le model est programmé et se complète alors tous seul grâce au formules présentes dans les cellules du modèle
3 : Copie de la feuille au sein du même classeur en la renommant du nom du champ REF (M2 dans le modèle)
La boucle réalise cette opération jusqu’à la dernière ligne de la feuille MODEL. Une fois fait, la macro sélectionne toutes les feuilles ainsi créées et en fait un nouveau classeur.
Donc je butte sur la boucle. Voici le code que j’ai déjà fait. Il ne lui manque que la boucle. Please ! HELPPP ! :
Merci à tous d'avoir lu jusq'ici et merci par avance de votre aide ... si précieuse ! Voici le fichier auuel s'applique la macro.
J’essaie de finir un fichier qui permet d’automatiser la création de quittance de loyer. Mais je butte sur la boucle. J’ai deux feuilles :
La 1er : j’ai la base avec un nombre de lignes variables. Sur chaque lignes les infos nécessaires pour les quittances.
La 2ème : Le modèle que la quittance de loyer
L’idée c’est que lorsque je lance la macro, cette dernière me créer un nouveau classeur avec toutes les quittances de loyer.
Je suis parti sur la solution suivante qui me semble largement « améliorable » ! mais je ne suis pas expert en VBA !! Je bute sur la boucle. Voilà à quoi je pensais. La boucle fait le travail suivant sur chaque ligne :
1 : copie de la 1er ligne dans la base (ligne 2 de la feuille modèle cellules A2:M2)
2 : Collage spécial (valeur) de la sélection dans la feuille MODEL (ligne 2)
‘le model est programmé et se complète alors tous seul grâce au formules présentes dans les cellules du modèle
3 : Copie de la feuille au sein du même classeur en la renommant du nom du champ REF (M2 dans le modèle)
La boucle réalise cette opération jusqu’à la dernière ligne de la feuille MODEL. Une fois fait, la macro sélectionne toutes les feuilles ainsi créées et en fait un nouveau classeur.
Donc je butte sur la boucle. Voici le code que j’ai déjà fait. Il ne lui manque que la boucle. Please ! HELPPP ! :
Code:
Sheets("MAISON").Select
Range("A2:M2").Select
Selection.Copy
Sheets("MODEL").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MODEL").Select
Application.CutCopyMode = False
Sheets("MODEL").Copy Before:=Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseMerci à tous d'avoir lu jusq'ici et merci par avance de votre aide ... si précieuse ! Voici le fichier auuel s'applique la macro.