Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion Pascal
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

Pascal

Guest
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:
 
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
 
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.

Code:
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
 
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
 
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.

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
11
Affichages
170
Réponses
6
Affichages
534
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…