Bonjour à tous,
J'ai une macros qui copie un tableau dans un autre fichier et qui doit se coller en ajoutant le nombre de lignes du tableau afin d'ajuster sa grandeur pour ne pas coller les valeurs par-dessus les autres sections plus basse. Jusque là, tout va bien. Mon problème est que lorsque le tableau est copié, au lieu d'être copié à l'endroit que je sélectionne, il copie le tableau à l'infini à partir de la colonne A (Qui doit rester vide)
Je vais joindre une image du résultat.
Je ne comprends pas pourquoi cela se produit. J'ai essayé de trouver la source du problème, mais je ne trouve pas l'erreur.
Voici mon code:
Private Sub MAJ_CS_Mensuel_Click()
Dim Mois As String
Dim I As Integer ' Compteur
Dim L As Integer ' Nombre de lignes
Mois = Range("CS_Mois").Text
' 1 - Ouvrir le fichier des coûts de sous-traitance
Workbooks.Open ("H:\DXA Production\1. GESTION DES SITES\3104 - VARENNES\SUIVI DES COÛTS DE LOCATION\2018\Suivi coûts de location_Varennes_2018.xlsx")
' 2 - Sélectionner le rapport mensuel et copier
Workbooks("Suivi coûts de location_Varennes_2018.xlsx").Sheets(Mois).Activate
Workbooks("Suivi coûts de location_Varennes_2018.xlsx").Sheets(Mois).Range("Tableau").Select
Workbooks("Suivi coûts de location_Varennes_2018.xlsx").Sheets(Mois).Range("Tableau").Copy
L = ActiveCell.Rows.Count ' Compte le nombre de lignes dans la sélection
' 3 - Activer le tableau de bord et insérer le nombre de lignes à ajouter pour le tableau
Workbooks("Tableau de bord Varennes_2018.xlsm").Activate
Workbooks("Tableau de bord Varennes_2018.xlsm").Sheets("Tableau de bord").Range("CS_Mois").Offset(1, 0).Select
For I = 0 To L
Selection.EntireRow.Insert
Next I
' 4 - Coller les valeurs copier
Workbooks("Tableau de bord Varennes_2018.xlsm").Sheets("Tableau de bord").Range("CS_Mois").Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Merci d'avance à tous ceux qui prendront le temps de répondre à ce message!