Discussion :

[Khaos]

Bonjour,

j'aimerais copier certaines lignes d'un tableau vers un autre.

J'ai un classeur X dans lequel j'ai un titre de colonne "mission" contenant un certain nombre de ligne (disons 13), dans l'autre classeur Y je veux insérer ces 13 lignes en ajoutant les lignes nécessaire pour décaler le reste du tableau (tableau existant ou vierge qu'il faut formater).




Merci par avance

[Abed_H]

Bonjour
ce code te conviendrait peut être, à inserer dans un module standart et les deux fichiers devront être ouvertent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test_H7()
Dim NCol As Integer, Nbrl As Integer
Set TW1 = Workbooks("Classeur1").Sheets("Feuil1")
Set TW2 = Workbooks("Classeur2").Sheets("Feuil1")
    NCol = Application.Match("Mission", TW1.Rows(1), 0)
    Nbrl = TW1.Cells(Rows.Count, NCol).End(xlUp).Row
        TW1.Range("A2:" & TW1.Cells( _
               Rows.Count, NCol).End(xlUp).Address).EntireRow.Copy
TW2.Range("A2:A" & Nbrl + 1).EntireRow.Insert
TW2.Activate
End Sub

Bonne journée.

[Khaos]

Merci pour avoir répondu, et excuse le temps de réaction;

Je ne parviens pas à réutiliser ton code. Pourrais tu me l'expliquer pour que je puisse faire les modifs que je désire?

Merci.

[Khaos]

Je vais un peu préciser mon "envie" (qui complète ma demande précédente):

Dans mon classeur plan de trésorerie, j'ai une partie à reporter de façon mensuelle, nombre de mois indéterminé, ce qui constituera les colonnes) pour un nombre indéterminé d'éléments/entreprises (qui constitueront les lignes).

Dans ce classeur un tableau existant avec d'autres valeurs, je veux intégrer le nombre de lignes en fonctions de toutes les lignes présentes dans mon classeur de référence.

Ainsi, mon plan se voit créer pour chaque mission/entreprise une ligne, et pour chaque mois une colonne du mm nom que la feuille du classeur de référence.

Pour chaque feuille dont le nom est de la forme mois-YY (ex: sept-08) rechercher les valeurs correspondant aux noms de lignes et les reporters dans la colonne correspondant à la date.

Si la feuille août-07 contient une valeur pour mettre d'oeuvre, la reporter sur la ligne correspondante à la colonne août-07 (la créer si elle n'existe pas).