Macro pour dupliquer lignes : erreur 457

Robert

XLDnaute Barbatruc

Repose en paix

• 27 Janvier 2010

• #2

Re : Macro pour dupliquer lignes : erreur 457

Bonjour Jen, bonjour le forum,

à mon avis il manque juste cette ligne :
On Error Resume Next

 

Vote positif 0 Vote négatif

J

Jen

Guest

• 27 Janvier 2010

• #3

Re : Macro pour dupliquer lignes : erreur 457

Alors en effet, cette ligne empêche le message d'erreur de s'afficher.
Par contre, ça ne résout pas le problème.

Je m'explique :
Ma 1e ligne contient le nom "X" et dans une autre cellule le chiffre "5", qui est le nombre de fois que la ligne devra être dupliquée dans la feuille "publi".
Quand je lance la macro, ça part bien : 2 lignes avec X sont créés. Mais après ces 2 lignes, la macro s'arrête, alors que 5 lignes de X aurait dû être créés, et après ça aurait dû passer au nom "Y".

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Janvier 2010

• #4

Re : Macro pour dupliquer lignes : erreur 457

Bonjour Jen, Robert

pas sûr, mais rajoute peut être un point devant le "cells" :

Code:

Etiq.Add [COLOR="Red"][B].[/B][/COLOR]Cells(Cel.Row, 1).Value, Cel.Row

bon après midi
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Janvier 2010

• #5

Re : Macro pour dupliquer lignes : erreur 457

bonjour Jen

Salut Robert 🙂

A tester

remplacer

Code:

Etiq.Add Cells(Cel.Row, 1).Value, Cel.Row

par

Code:

 if not [COLOR=blue]Etiq.exists[/COLOR](Cells(Cel.Row, 1).Value) then Etiq.Add Cells(Cel.Row, 1).Value, Cel.Row

Qui offre l'avantage de ne couvrir que l'erreur provoquée par la mise en dictionnaire de 2 mots identiques
Pour ma part je ne recourt au on error resume next
Que conjointement au on error goto 0
avec entre les 2 une a 3 lignes maxi dont je sais quelle(s) erreur(s) elles peuvent produire

Edit: salut Pierrot 🙂

Nb: a la relecture de l'erreur d'execution j'ai l'impression d'etre dans le vrai

 

Dernière édition: 27 Janvier 2010

Vote positif 0 Vote négatif

J

Jen

Guest

• 27 Janvier 2010

• #6

Re : Macro pour dupliquer lignes : erreur 457

Merci pour vos réponses.
Alors :
@ Pierrot93 : testé, et ça ne change rien, pas mieux pas pire !
@ pierrejean : ça me met "Sub ou Function non définie" sur le exists (désolée, je suis pas assez calée pour pouvoir corriger ça moi-même !)

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Janvier 2010

• #7

Re : Macro pour dupliquer lignes : erreur 457

Re
vois la modif sur post precedent (avec mes excuses)

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Janvier 2010

• #8

Re : Macro pour dupliquer lignes : erreur 457

Re

Reste que Pierrot n'a pas forcement tort et qu'un fichier exemple sans données confidentielles permettrait de lever tous les doutes

 

Vote positif 0 Vote négatif

J

Jen

Guest

• 27 Janvier 2010

• #9

Re : Macro pour dupliquer lignes : erreur 457

Merci pour ta correction pierrejean. Malheureusement, c'est pas mieux !

J'ai zippé mon fichier (j'y avais pas pensé avant pour réduire la taille...) et je l'ai mis en pièce jointe, en espérant que vous pourrez m'aider !
La colonne en jaune contient le nombre de fois que chaque ligne doit être dupliquée dans la feuille "publi".

Merci d'avance !

 

Pièces jointes

• R10cmf7w_3.zip

  16 KB · Affichages: 37
• R10cmf7w_3.zip

  16 KB · Affichages: 37
• R10cmf7w_3.zip

  16 KB · Affichages: 38

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Janvier 2010

• #10

Re : Macro pour dupliquer lignes : erreur 457

Re, bonsoir PierreJean🙂

perso vois pas trop l'interet d'un "dictionary" dans ton code, ou alors quelque chose doit m'échapper.... je pense que 2 boucles imbriquées devraient suffire... enfin c'est juste un avis....

en supposant ta feuille R10... active :

Code:

Option Explicit
Sub etiquette()
Dim i As Long, j As Long
For i = 2 To Range("A65536").End(xlUp).Row
    For j = 1 To Cells(i, 5).Value
        Cells(i, 1).Resize(, 5).Copy Sheets("publi").Range("A65536").End(xlUp).Offset(1, 0)
    Next j
Next i
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

J

Jen

Guest

• 27 Janvier 2010

• #11

Re : Macro pour dupliquer lignes : erreur 457

En effet, ça marche nickel, merci Pierrot !

Comme je l'ai dit dans mon 1er post, j'avais juste copié-collé un autre code, donc l'intérêt du "dictionary" m'échappe également totalement 😉

Par contre, ce que j'aurais aimé faire, c'est numéroter chaque ligne dupliquée.
D'après ce que je comprends, la variable "j" contient le numéro de ligne, mais comment je fais pour le positionner sur la ligne en question ?
Car en fait le code ne positionne pas les lignes avec des variables comme i ou j, mais il les positionne automatiquement sur la dernière ligne, c'est ça ?
Donc comment j'insère un Cells(...,...).Value=j là dedans ?

Merci !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Janvier 2010

• #12

Re : Macro pour dupliquer lignes : erreur 457

Re

modifie comme suit si j'ai bien compris :

Code:

Option Explicit
Sub etiquette()
Dim i As Long, j As Long
For i = 2 To Range("A65536").End(xlUp).Row
    For j = 1 To Cells(i, 5).Value
        With Sheets("publi").Range("A65536").End(xlUp)
            Cells(i, 1).Resize(, 5).Copy .Offset(1, 0)
            .Offset(1, 5).Value = j
        End With
    Next j
Next i
End Sub

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Janvier 2010

• #13

Re : Macro pour dupliquer lignes : erreur 457

Re

Si tu tiens a ton dictionnaire
Explication: j'ai ajouté dans le dictionnaire la colonne B afin d'eviter les doublons (c'etaient bien eux qui provoquaient l'erreur)

 

Pièces jointes

• R10cmf7w_3.zip

  15.7 KB · Affichages: 34
• R10cmf7w_3.zip

  15.7 KB · Affichages: 32
• R10cmf7w_3.zip

  15.7 KB · Affichages: 35

Vote positif 0 Vote négatif

J

Jen

Guest

• 27 Janvier 2010

• #14

Re : Macro pour dupliquer lignes : erreur 457

Pierrot93 à dit:

Re

modifie comme suit si j'ai bien compris :

Cliquez pour agrandir...

Nickel ! Avec un peu de mise en page en plus, c'est exactement ce que je voulais, merci beaucoup !!

 

Vote positif 0 Vote négatif