Aide au code

[apdf1]

Bonjour,

Je recherche comment modifier ce code pour qu'il rajoute les données sur la première ligne "6" pour que les données affichées sont préalablement décalées vers le bas pour laisser la place libre en ligne 6 afin d'y mettre les nouvelles données

Private Sub CommandButton1_Click()
Dim Chemin As String
Dim DerniereLigneSource As Integer, DerniereLigneDestination As Integer
Chemin = ActiveWorkbook.Path & "\balance.xlsm"
With Workbooks("journal").Sheets("Feuil1")
    DerniereLigneSource = .Range("A65536").End(xlUp).Row
End With
Workbooks.Open Chemin
DerniereLigneDestination = Range("A65536").End(xlUp).Row + 1
With Workbooks("journal").Sheets("Feuil1")
    Cells(DerniereLigneDestination, 1) = .Cells(DerniereLigneSource, 1)
    Cells(DerniereLigneDestination, 2) = .Cells(DerniereLigneSource, 2)
    Cells(DerniereLigneDestination, 4) = .Cells(DerniereLigneSource, 6)
    Cells(DerniereLigneDestination, 5) = .Cells(DerniereLigneSource, 8)
    Cells(DerniereLigneDestination, 6) = .Cells(DerniereLigneSource, 9)
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Merci d'avance


Max

 

[Pierrot93]

Re : Aide au code

Bonjour,

pas tout compris :

ce code pour qu'il rajoute les données sur la première ligne "6"

pour moi, il n'y a qu'une ligne 6 par feuille Excel....

bonne journée
@+

 

[apdf1]

Re : Aide au code

Bonjour Pierrot

Actuellement les données vont sur la dernière ligne et moi j'aimerais qu'il s'enregistre sur la 6 éme ligne que les données affichées sont préalablement décalées vers le bas pour laisser la place libre.
C'est pas toujours facile a expliquer se que l'on voudrais.

Bonne journée

Max

 

[Pierrot93]

Re : Aide au code

Re,

peut être insérer une ligne au préalable...

Rows(6).Insert

 

[bouley]

Re : Aide au code

bonjour,
Pour suivre le conseil avisé de Pierrot...

Private Sub CommandButton1_Click()
Dim Chemin As String
Dim DerniereLigneSource As Integer
Chemin = ActiveWorkbook.Path & "\Source.xls"
Workbooks.Open Chemin
With Workbooks("Source.xls").Sheets("Feuil1")
DerniereLigneSource = .Range("A65536").End(xlUp).Row
End With
Workbooks("destination.xls").Activate
Workbooks("destination.xls").Sheets("Feuil1").Rows("6:6").Insert Shift:=xlDown
With Workbooks("Source.xls").Sheets("Feuil1")
Cells(6, 1) = .Cells(DerniereLigneSource, 1)
Cells(6, 2) = .Cells(DerniereLigneSource, 2)
Cells(6, 4) = .Cells(DerniereLigneSource, 6)
Cells(6, 5) = .Cells(DerniereLigneSource, 8)
Cells(6, 6) = .Cells(DerniereLigneSource, 9)
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

 

[apdf1]

Re : Aide au code

Bonjour Bouley,

Et merci beaucoup sa marche nickel

Bonne journée

Max