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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Jers19
Membre fidèle
Membre fidèle
Messages : 295
Appréciations reçues : 27
Inscrit le : 14 septembre 2017
Version d'Excel : 2010

Message par Jers19 » 23 janvier 2018, 20:24

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+

:btres:
Avatar du membre
Jers19
Membre fidèle
Membre fidèle
Messages : 295
Appréciations reçues : 27
Inscrit le : 14 septembre 2017
Version d'Excel : 2010

Message par Jers19 » 23 janvier 2018, 20:41

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
A
AlexandreR
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 15 janvier 2018
Version d'Excel : 2010

Message par AlexandreR » 23 janvier 2018, 21:56

Merci beaucoup pour ton aide!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message