Copié plusieur fois une sélection

Fermé

Lgrinch Messages postés 1 Date d'inscription dimanche 25 septembre 2016 Statut Membre Dernière intervention 25 septembre 2016 - 25 sept. 2016 à 17:23
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 sept. 2016 à 09:07

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 ?

A voir également:

Copié plusieur fois une sélection
Copie cachée - Guide
Super copie - Télécharger - Gestion de fichiers
Copie écran samsung - Guide
Site paiement plusieur fois carte nickel forum ✓ - Forum Consommation & Internet
Copie disque dur - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 26/09/2016 à 09:36

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 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

Discussions similaires

paiment 4x nickel sur top achat

lien copié

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

"L'indice n'appartient à la sélection" + VBA

Comment retrouver des lien copier sur sont téléphone

Discussions similaires

Newsletters