R
Reeper
Guest
Bonjour,
Voila j'ai une macro qui utilise un UserForm pour remplir des données dans un tableau.
J'aimerais créer dans cette macro un morceau de programme qui copie un certain nombre de cellule, se trouvant toutes sur la même ligne, sur la ligne qui se trouve juste en dessous.
Jusque la rien de compliqué, mais les cellules à copier peuvent se trouver sur une ligne différente suivant les données qui ont déja étés saisies.
Par exemple j'ai mon tableau avec :
- Les lignes 8, 9, 10 qui sont remplies
- La ligne 11 sert de modèle et doit être copier sur la ligne 12 avant de la remplir.
Si ce sont les lignes 8 et 9 qui sont remplies la ligne 10 sert de modèle et doit être copier sur la ligne 11
dans ma macro j'ai une variable qui me permet de connaitre de numéro de la dernière ligne saisie :
j'avais donc pense mettre ça pour la copie de la ligne :
8 indique le numéro de la ligne ou commence mon tableau
i représente le nombre de ligne remplie dans mon tableau
Mais cela déconne au niveau du 'Rows', il n'aime pas le + i
Bon je sais pas si j'ai été très clair, si vous comprenez pas je verais pour faire des captures d'écran.
merci d'avance pour votre aide
Voila j'ai une macro qui utilise un UserForm pour remplir des données dans un tableau.
J'aimerais créer dans cette macro un morceau de programme qui copie un certain nombre de cellule, se trouvant toutes sur la même ligne, sur la ligne qui se trouve juste en dessous.
Jusque la rien de compliqué, mais les cellules à copier peuvent se trouver sur une ligne différente suivant les données qui ont déja étés saisies.
Par exemple j'ai mon tableau avec :
- Les lignes 8, 9, 10 qui sont remplies
- La ligne 11 sert de modèle et doit être copier sur la ligne 12 avant de la remplir.
Si ce sont les lignes 8 et 9 qui sont remplies la ligne 10 sert de modèle et doit être copier sur la ligne 11
dans ma macro j'ai une variable qui me permet de connaitre de numéro de la dernière ligne saisie :
Code:
DerLgn = Sheets('Nomenclature').Range('A999').End(xlUp).Row 'récupère le numéro de la dernière ligne
j'avais donc pense mettre ça pour la copie de la ligne :
Code:
i = DerLgn - 8
'Rajout d'une ligne
Rows('8' + i:'8' + i).Select
Selection.Copy
Range('A' & 9 + i).Select
Selection.Insert Shift:=xlDown
8 indique le numéro de la ligne ou commence mon tableau
i représente le nombre de ligne remplie dans mon tableau
Mais cela déconne au niveau du 'Rows', il n'aime pas le + i
Bon je sais pas si j'ai été très clair, si vous comprenez pas je verais pour faire des captures d'écran.
merci d'avance pour votre aide