Ligne à répéter...en bas = ?

[Pascal]

Bonjour tout le monde !
je recherche l'astuce suivante (si elle existe): Comment faire pour recopier automatiquement le contenu de la 1ere ligne en dernière ligne en bas de chaque tableau édité?
Car dans l'onglet 'feuille' de la 'mise en page' nous disposons de 'lignes à répéter en haut' et de 'colonnes à répéter à gauche' mais rien pour: 'Ligne à répéter en bas'

Actuellement, je fais 'insérer copier coller' mais j'ai une vingtaine de fichiers à éditer à chaque fois, chaque fichier contient 400 lignes, et je dois insérer la 1ere ligne toutes les 25 ligne sur chacun de 20 fichiers Excel: c'est tres tres fastidieux...

Cordialement,
Pascal :silly:

 

[porcinet82]

Salut Pascal,

Je te propose une solution par le biais d'une petite macro.
Je te laisse le soin de regarder le fichier join et de me dire si c'est ce que tu voulais.

[file]

@+

 

[porcinet82]

Salut Pascal,

Je te propose une solution par le biais d'une petite macro.
Je te laisse le soin de regarder le fichier join et de me dire si c'est ce que tu voulais.



@+

Message édité par: porcinet82, à: 17/12/2005 15:30

 

[porcinet82]

Je ne sais pas pourquoi le fichier n'ai pas passé, il y a des trucs bizarre!!!

Je réessais. Toujours pas, tant pis. je te file direct la macro je crois qu'on va gagneer du temps.
Cette macro insere toute les 25 lignes ta première ligne et boucle sur 3 feuilles.

Sub copie()

For j = 1 To 3 'nombre de feuille du classeur
    Application.Goto Sheets(j).Range('a1')
    Selection.End(xlDown).Select
    nb = Int(ActiveCell.Row / 25)
    Application.Goto Sheets(j).Range('a1')
    For i = 1 To nb
        lig = ActiveCell.Row
        Rows(lig).Copy
        lig = lig + 26
        Rows(lig).Select
        Selection.Insert Shift:=xlDown
    Next i
Next j
End Sub

@+

Message édité par: porcinet82, à: 17/12/2005 15:38

 

[Pascal]

merci !

Bonjour Porcinet82
Je te remercie pour avoir recherché cette information: je vais tenter de placer cette macro (dès que j'aurais trouvé comment on crée une macro...)

cordialement à toi,
Pascal

 

[porcinet82]

Re:merci !

Salut Pascal,

Pour copier la macro, c'est simple tu fais Alt+F11 (dans excel), ca t'ouvre Visual Basic Editor, là, soit tu copies dans le module de feuille a gauche, soit tu insères un modules. Pour l'utiliser, soit tu cré un bouton, soit tu cliques sur l'icone lecture.

Si tu as un soucis, tiens moi au courant y a ps de soucis pour que je te file un coup de main.

@+