copié plusieur fois une sélection Fermé

Question

Bonjour,

Je suis novice en Programmation ,mais je vais m'améliorer en 2017 avec une formation.
Pour le moment j'ai besoin de votre aide/

J'ai besoin de réaliser les actions suivantes:

Copier une sélection qui ce trouve de A1 à X7 situé dans une  feuille nommé Etiquette. Dans cette plage de donnée ce trouve la valeur qui me donne le nombre de copie à effectuer
"J4".
Je dois la coller la sélection X fois" J4" dans une autre feuille .
Ensuite je passe à la sélection suivante dans la feuille Etiquette .
La sélection ce trouve 7 ligne plus basse sur un même nombre de ligne que la précédente et de la même manière je dois coller les données dans l'autre feuille sous la dernière copie.
et tout ceci en boucle jusqu'à ce que je trouve une valeur de zéro en " J4"

Pouvez vous m'aider ?

michel_m · Answer

Bonjour,

dans la feuille étiquette le 2° groupe débute bien ligne 15 ?

dans la feuille cible (nom ?)  on recopie le 2° groupe à la ligne 8 ou 15 ?

Si ligne 8 et rien à droite dans la feuille cible
Option Explicit'-------------------------------------------------Sub dupliquer()Dim Lignes As Integer, Nbre As IntegerSheets(2).Range("A1:X100000").Clear 'nettoyage'détermination zone à copierNbre = Sheets("Etiquette").Range("J4")Lignes = (Nbre + (Nbre - 1)) * 7'copie la zone totale en feuille2Range("A1:X" & Lignes).Copy Sheets(2).Range("A1")With Sheets(2)    'détruit les espaces entre les groupes    .Range("A1:A" & Lignes).SpecialCells(xlCellTypeBlanks).EntireRow.Delete    .ActivateEnd WithEnd Sub 
 
 Michel

Copié plusieur fois une sélection

1 réponse

Discussions similaires