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
A voir également:
- Vba nouveau
- Wannonces nouveau site - Guide
- Créer un nouveau compte google - Guide
- Comment créer un nouveau groupe sur whatsapp - Guide
- Gmail nouveau compte - Guide
- Nouveau tag ajouté - Forum Huawei
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
