Bonjour !
J'aurais besoin d'aide pour insérer un code dans ma Macro "Activation de façon à copier seulement le resultat de la derniere ligne (16). J'aimerais appliquer une formule qui demeurerait la une fois toute les cellules copiées dans la feuille Flexo.
Voici le code de ma Macro actuel. Je place aussi en attachement mon fichier.
Merci d'avance pour votre aide.
Sub Activation()
'macro par vba-new - par Dpour SD le 07/07/09
'Modification Dan le 07/07/09
'http://forum.excel-pratique.com/viewtopic.php?t=12265
Dim debLig As Integer
Application.ScreenUpdating = False
With Sheets("Flexo")
debLig = .Range("A65536").End(xlUp).Row + 1
.Cells(debLig, 1) = Sheets("Activation Dossier").Cells(3, 3)
.Cells(debLig, 2) = Sheets("Activation Dossier").Cells(4, 3)
.Cells(debLig, 3) = Format(Sheets("Activation Dossier").Cells(5, 3), "mm/dd/yy")
.Cells(debLig, 4) = Sheets("Activation Dossier").Cells(6, 3)
.Cells(debLig, 5) = Sheets("Activation Dossier").Cells(7, 3)
.Cells(debLig, 6) = Sheets("Activation Dossier").Cells(8, 3)
.Cells(debLig, 7) = Sheets("Activation Dossier").Cells(9, 3)
.Cells(debLig, 8) = Sheets("Activation Dossier").Cells(10, 3)
.Cells(debLig, 9) = Format(Sheets("Activation Dossier").Cells(11, 3), "mm/dd/yy")
.Cells(debLig, 10) = Sheets("Activation Dossier").Cells(12, 3)
.Cells(debLig, 11) = Sheets("Activation Dossier").Cells(13, 3)
.Cells(debLig, 12) = Sheets("Activation Dossier").Cells(14, 3)
.Cells(debLig, 13) = Sheets("Activation Dossier").Cells(15, 3)
.Cells(debLig, 14) = Sheets("Activation Dossier").Cells(16, 3)
.Cells(debLig, 15) = Sheets("Activation Dossier").Cells(17, 3)
.Cells(debLig, 16) = Sheets("Activation Dossier").Cells(18, 3)
.Activate
End With
Sheets("Activation Dossier").Range("C3:C18").ClearContents
End Sub
J'aurais besoin d'aide pour insérer un code dans ma Macro "Activation de façon à copier seulement le resultat de la derniere ligne (16). J'aimerais appliquer une formule qui demeurerait la une fois toute les cellules copiées dans la feuille Flexo.
Voici le code de ma Macro actuel. Je place aussi en attachement mon fichier.
Merci d'avance pour votre aide.
Sub Activation()
'macro par vba-new - par Dpour SD le 07/07/09
'Modification Dan le 07/07/09
'http://forum.excel-pratique.com/viewtopic.php?t=12265
Dim debLig As Integer
Application.ScreenUpdating = False
With Sheets("Flexo")
debLig = .Range("A65536").End(xlUp).Row + 1
.Cells(debLig, 1) = Sheets("Activation Dossier").Cells(3, 3)
.Cells(debLig, 2) = Sheets("Activation Dossier").Cells(4, 3)
.Cells(debLig, 3) = Format(Sheets("Activation Dossier").Cells(5, 3), "mm/dd/yy")
.Cells(debLig, 4) = Sheets("Activation Dossier").Cells(6, 3)
.Cells(debLig, 5) = Sheets("Activation Dossier").Cells(7, 3)
.Cells(debLig, 6) = Sheets("Activation Dossier").Cells(8, 3)
.Cells(debLig, 7) = Sheets("Activation Dossier").Cells(9, 3)
.Cells(debLig, 8) = Sheets("Activation Dossier").Cells(10, 3)
.Cells(debLig, 9) = Format(Sheets("Activation Dossier").Cells(11, 3), "mm/dd/yy")
.Cells(debLig, 10) = Sheets("Activation Dossier").Cells(12, 3)
.Cells(debLig, 11) = Sheets("Activation Dossier").Cells(13, 3)
.Cells(debLig, 12) = Sheets("Activation Dossier").Cells(14, 3)
.Cells(debLig, 13) = Sheets("Activation Dossier").Cells(15, 3)
.Cells(debLig, 14) = Sheets("Activation Dossier").Cells(16, 3)
.Cells(debLig, 15) = Sheets("Activation Dossier").Cells(17, 3)
.Cells(debLig, 16) = Sheets("Activation Dossier").Cells(18, 3)
.Activate
End With
Sheets("Activation Dossier").Range("C3:C18").ClearContents
End Sub