Copié plusieur fois une sélection
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 ?
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 ?
1 réponse
-
ContributeurBonjour,
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 cibleOption Explicit
'-------------------------------------------------
Sub dupliquer()
Dim Lignes As Integer, Nbre As Integer
Sheets(2).Range("A1:X100000").Clear 'nettoyage
'détermination zone à copier
Nbre = Sheets("Etiquette").Range("J4")
Lignes = (Nbre + (Nbre - 1)) * 7
'copie la zone totale en feuille2
Range("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
.Activate
End With
End Sub
Michel
