Insérer un nombre prédéfini de tableau

Résolu
eviocchus Messages postés 3 Statut Membre -  
eriiic Messages postés 25847 Statut Contributeur -
Bonjour,

Je souhaiterais savoir s'il est possible d'insérer un X nombre de tableau (prédéfini) dans une seule feuille excel.

Par exemple : Créer une ligne nombre de personnel : 4 -> Insérer 4 fois ce tableau ci-dessous.

Merci d'avance.

A voir également:

2 réponses

Réponse 1 / 2
Theo.R Messages postés 585 Statut Membre 31
 
Bonjour,

Pour dépasser les fonctionnalités de base copier-coller (appliquées à des lignes entières), il vous faudra passer par des macro (VBA).

Cela n'est utile que si vous pouvez automatiser combien de ligne copier-coller et à partir de quel déclencheur.

Cdt,
0
eviocchus Messages postés 3 Statut Membre
 
C'est bien ce qu'il me semblait, le nombre serait défini par une donnée rentrée dans une cellule.

Merci.

Cdt,
0
Theo.R Messages postés 585 Statut Membre 31
 
Essayez ce code : 

Sub test()

m = InputBox("Entrez le nb de copies de la ligne actuelle que vous souhaitez ajouter ci-dessous")

If IsNumeric(m) And m > 0 Then

For i = 1 To m

Rows(Selection.Row).Copy
Rows(Selection.Row + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False
Next i

End If

End Sub
0
Theo.R Messages postés 585 Statut Membre 31
 
Ce code ne considère pas vraiment un "tableau" mais juste une ligne, si vous avez besoin de prendre plusieurs lignes et uniquement quelques colonnes ont peut l'adapter ;)
0
eviocchus Messages postés 3 Statut Membre
 
Merci c'est exactement ce qu'il me fallait pour me lancer. Deux trois bidouillages et ça devrait le faire.

Encore merci Théo.

Bonne journée.
0
Theo.R Messages postés 585 Statut Membre 31
 
De rien,

Pensez à passer le sujet en Résolu si ça vous convient ;)

Bonne continuation
0
Réponse 2 / 2
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

Si c'est juste pour en ajouter quelques uns (j'ai lu 4) tu peux sélectionner ton tableau avec le nombre de lignes de séparation que tu veux et tirer vers le bas pour recopier l'ensemble.
Ca va plus vite que de faire une macro.
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
0