Copier les valeurs d'un tableau de longueur variable sans la mise en forme Le sujet est résolu

[Jers19]

Alexandre

Voici ton code modifié.

Private Sub MAJ_PAC_Click()

Dim I As Integer ' Compteur
Dim N As Integer ' Colonne où coller
Dim M As Integer ' Colonne où copier

' Va chercher et ouvre le doc de PAC 2018
Workbooks.Open ("H:\DXA-DXB-SST\S-87 - Plan d'amélioration continue (PAC)\s_87_plan_amelioration_continue_DXA_3104_Varennes.xlsm")

N = 7
M = 29

For I = 1 To N+1
    If Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Value <> "" Then
        If Workbooks("Tableau de bord Varennes_2018.xlsm").Sheets("Tableau de bord").Cells(M, 2).Value <> "" Then
            Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Copy
            Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            M = M + 1
        Else
            Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Rows(M).Insert Shift:=xlUp
            Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Copy
            Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).PasteSpecial Paste:=xlPasteValues
            M = M + 1
        End If
    End If
Next I

Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes.xlsm").Close

End Sub

A+

[Jers19]

Petite correction

Private Sub MAJ_PAC_Click()

Dim I As Integer ' Compteur
Dim N As Integer ' Colonne où coller
Dim M As Integer ' Colonne où copier

' Va chercher et ouvre le doc de PAC 2018
Workbooks.Open ("H:\DXA-DXB-SST\S-87 - Plan d'amélioration continue (PAC)\s_87_plan_amelioration_continue_DXA_3104_Varennes.xlsm")

N = 7 (considérant que la 1ere cellule à copier se situe en ligne 7)
M = 29

For N = 7 To (nb de lignes à parcourir)
    If Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Value <> "" Then
        If Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).Value <> "" Then
            Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Copy
            Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).PasteSpecial Paste:=xlPasteValues
            M = M + 1
        Else
            Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Rows(M).Insert Shift:=xlUp
            Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Copy
            Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).PasteSpecial Paste:=xlPasteValues
            M = M + 1
        End If
    End If
Next N

Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes.xlsm").Close

End Sub

[AlexandreR]

Merci beaucoup pour ton aide!