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
- Créer un nouveau compte gmail - Guide
- Créer un nouveau compte google - Guide
- Nouveau site coco chat - Accueil - Réseaux sociaux
- Comment créer un nouveau groupe sur whatsapp - Guide
- Nouveau climatiseur - 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
