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
A voir également:
- Vba nouveau
- Wannonce nouveau site - Guide
- Wannonces nouveau site - Guide
- Créer un nouveau compte google - Guide
- Comment créer un nouveau groupe sur whatsapp - Guide
- Créer un nouveau compte gmail - Guide
2 réponses
bonjour
Il faut positionner ta ligne de copie, comme ceci par exemple :
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
