Bonsoir Nutella, bienvenue sur XLpages.com

Si j'ai bien compris les 2 questions :


En espérant que ça puisse t'aider.

Par ailleurs, STP :

• Merci de taper le texte de tes messages directement dans l'éditeur de post du forum et de ne pas faire de copier-coller du texte depuis un autre éditeur (Word ou autre...). Sinon, ça ajoute toute une série de balises (invisibles) à ton texte et ça alourdit inutiliement notre base de données.
• Pour insérer du code VBA proprement dans tes posts : consulter CETTE FAQ.

Cordialement,

Bonsoir,

Merci pour ta réponse. le traitement 1 ne marche pas.
Le traitement 2 marche bien, d'ou j'aimerai l'améliorer. comment peut-on dupliquer les données des lignes sans mettre les numéros  des lignes en dur.
exemple dans le traitement 2, les lignes 1 à 5 sont en dur, est-il possible que les lignes à dupliquer soient dynamiques et il le duplique automatiquement ?
Le fichier lit automatiquement les lignes contenant des données et le duplique le nombre de fois que l'on souhaite.
Merci d'avance et Bonne nuit !

Bonjour Nutella, Didier, Le forum

Le code Traitrement() donné par Didier fonctionne très bien, es-tu certain d'avoir des cellules dans la colonne ne contenant que 5 caractères, il y a peut-etre des caractères cachés.

Pour ce qui est de ta nouvelle demande, soit plus précis, que veux-tu dire par le "fichier lit". Par quel moyen veux-tu indiquer à la macro le nombre de recopies ? Veux-tu un décalage de ligne entre chaque recopie, pour laisser une ligne vide par exemple. Ton tableau a peut-être une ligne d'entête, doit-on la copier ou pas la copier.
Connaissant très bien Didier, en te proposant le code traitement2, soit il n'a pas compris ce que tu souhaitais, soit il se posait la question pourquoi un code pour faire une simple recopie !.

@+Jean-Marie 

Merci à vous les réponses données par Didier fonctionne très bien. Merci beaucoup Didier et à tous le forum.

J'aimerai quand même aller plus loin dans le code :

Code Origine
 
Sub Traitement2()
Recopie des lignes 1 à 5 en lignes 6 à 10
    With Sheets("Feuil1")
        .Rows("1:5").Copy Destination:=.Rows("6:10")
    End With
End Sub

Code à Améliorer

Sub Traitement2()

       Dim Ligne As Long
        Dim LigneMax As Long                  
       i = 1

      With Sheets("Feuil1")

      Recopie = Application.InputBox("Saisir le nombre de fois à       recopier", Type:=1)
         If Recopie = False Or Recopie < 0 Then Exit Sub

        LigneMax = .Cells(.Rows.Count, .Rows.Count).End(xlUp).Row
        .Rows("Ligne : LigneMax").Copy Destination:=.Rows("LigneMax+i:.Rows.Count+1 ")
      End With
End Sub

Ma nouvelle question étant, je souhaiterai améliorer le code sans mettre les numéro de ligne en dur.
 
En fait, j'ai défini deux variables. la variable Ligne correspond à la deuxieme ligne de la feuille excel et LigneMax correspond à la dernière ligne de la feuille excel contenant les données.

Et je veux que le recopie commence à partir de ligneMax +1 et ainsi de suite.
La première ligne du tableau n'est pas à recopier car c'est la ligne d'entête.

Dans l'attente d'une solution merci d'avance à vous tous!

Bonsoir Nutella, JeanMarie, le Forum,

A vrai dire, tu commences par demander un code pour copier les lignes 1:5 en 6:10, ensuite tu parles de vouloir la recopie des lignes sur une autre feuille et maintenant tu ne parles visiblement plus de cette autre feuille...

Je me base donc sur la dernière version de ta question... et te propose le code comme suit :

Pour gain de temps, je te remercie d'éviter les questions à rebondissement et d'être précis dès le départ.

Par ailleurs, je répète ma remarque précédente :
Pour insérer du Code VBA proprement dans les posts du forum : voir CETTE FAQ. Merci.

Cordialement,

Bonsoir Nutella, Jean-Marie,

Au vu de ta réponse Nutella, j'en déduis que ton problème est résolu. Je clôture donc ce fil de discussion en tant que tel (merci de penser à le faire toi-même la prochaine fois, STP).

Cordialement,