Excel Downloads
Forum

Précédent   Excel Downloads Forums > Excel > Forum Excel


Réponse
 
LinkBack Outils de la discussion
Vieux 21/04/2005, 14h14   #1 (permalink)
macros
Guest
 
Messages: n/a
Par défaut dubliquation de ligne

salut tout le monde,
j'ai un tableau contenant X colones et Y lignes;
je dois dupliquer chaque ligne y du tableau 4 fois.
c'est assez compliqué de le faire manuellement surtot si j'ai 5000 lignes.
Je cherche une macro qui pour le faire automatiquement pour n'importe nombre de ligne.
Merci pour l'attention
  Réponse avec citation
ANNONCES
Vieux 21/04/2005, 14h16   #2 (permalink)
macro
Guest
 
Messages: n/a
Par défaut dubliquation de ligne

macros écrit:
Citation:
salut tout le monde,
j'ai un tableau contenant X colones et Y lignes;
je dois dupliquer chaque ligne y du tableau 4 fois.
c'est assez compliqué de le faire manuellement surtot si j'ai 5000 lignes.
Je cherche une macro qui pour le faire automatiquement pour n'importe nombre de ligne.
Merci pour l'attention
merci de me répondre sur medjemni@mac.com
  Réponse avec citation
Vieux 21/04/2005, 17h24   #3 (permalink)
XLDnaute Nouveau
 
Date d'inscription: avril 2005
Messages: 2
Par défaut Re:dubliquation de ligne

Salut,

Comme il n'y a pas de réponse en macro,
je te propose une formule à mettre en A1
par exemple et à recopier autant que nécessaire.
A adapter peut-être pour gérer les erreurs si la taille
de ta table change...

Tiens-moi au courant.

Bye et @+

_Eric_ [file name=dupli.zip size=2495]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dupli.zip[/file]
Fichiers attachés
Type de fichier : zip dupli.zip (2,4 Ko, 1 affichages)
_Eric_ est déconnecté   Réponse avec citation
Vieux 21/04/2005, 17h47   #4 (permalink)
XLDnaute Barbatruc
 
Avatar de porcinet82
 
Date d'inscription: mars 2005
Localisation: Issy les Moulineaux
Version Excel : Excel 2003 (PC)
Messages: 3 178
Envoyer un message via MSN à porcinet82
Par défaut Re:dubliquation de ligne

salut a tous,

voila une petite macro qui a vu d'oeil devrait faire a peu pres ce que tu veux, mais je l'ai pas testé

Code:
Sub test()
Sheets('Data').Select
Range('a1').Select
For i = 1 To Range('A65536').End(xlUp).Row
    Rows(i).Select
    Selection.Copy
    Sheets('feuil2').Select
    Range('a65536').End(xlUp).Select
    For j = 1 To 5
        ActiveSheet.Paste
        Selection.Offset(1, 0).Select
    Next j
    Sheets('Data').Select
    Selection.Offset(1, 0).Select
Next i
End Sub
voila bon courage et si y a un souci ...

@+
__________________
« Connaître son ignorance est la meilleure part de la connaissance. »
porcinet82 est déconnecté   Réponse avec citation
ANNONCES
Réponse

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 01h55.


(C) 2006 Excel Downloads