Vba nouveau
Résolu
amok
-
amok -
amok -
Bonjour,
bon j'ai avancé j'ai un nouveau code bien plus pratique qui fait que quand j'enregistre ça se met dans la feuille que je desire mais quand je fait un autre bon de commande ça n'enregistre pas en dessus de mon premier bdc mais ça se met a la place au lieu d en dessous. Pouvez vous m aider ?
voila mon code :
Sub enregistrer()
'
' enregistrer Macro
Sheets("liste bdc").Range("A2") = Sheets("bdc").Range("B6")
Sheets("liste bdc").Range("B2") = Sheets("bdc").Range("B7")
Sheets("liste bdc").Range("C2") = Sheets("bdc").Range("C30")
Sheets("liste bdc").Range("D2") = Sheets("bdc").Range("C31")
Sheets("liste bdc").Range("E2") = Sheets("bdc").Range("D25")
Sheets("liste bdc").Select
Sheets("dispo").Select
End Sub
bon j'ai avancé j'ai un nouveau code bien plus pratique qui fait que quand j'enregistre ça se met dans la feuille que je desire mais quand je fait un autre bon de commande ça n'enregistre pas en dessus de mon premier bdc mais ça se met a la place au lieu d en dessous. Pouvez vous m aider ?
voila mon code :
Sub enregistrer()
'
' enregistrer Macro
Sheets("liste bdc").Range("A2") = Sheets("bdc").Range("B6")
Sheets("liste bdc").Range("B2") = Sheets("bdc").Range("B7")
Sheets("liste bdc").Range("C2") = Sheets("bdc").Range("C30")
Sheets("liste bdc").Range("D2") = Sheets("bdc").Range("C31")
Sheets("liste bdc").Range("E2") = Sheets("bdc").Range("D25")
Sheets("liste bdc").Select
Sheets("dispo").Select
End Sub
Configuration: Windows Vista Internet Explorer 7.0
2 réponses
-
bonjour
Il faut positionner ta ligne de copie, comme ceci par exemple :Sub enregistrer() ' ' enregistrer Macro Dim lig As Long lig = Sheets("liste bdc").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1 Sheets("liste bdc").Cells(lig, 1) = Sheets("bdc").Range("B6") Sheets("liste bdc").Cells(lig, 2) = Sheets("bdc").Range("B7") Sheets("liste bdc").Cells(lig, 3) = Sheets("bdc").Range("C30") Sheets("liste bdc").Cells(lig, 4) = Sheets("bdc").Range("C31") Sheets("liste bdc").Cells(lig, 5) = Sheets("bdc").Range("D25") Sheets("dispo").Select End Sub -
