Bonjour, je souhaite à partir d'un tableau "encaissement" importer ses données saisies, dans un tableau "feuille de caisse". Le principe étant que "encaissement" me permette de saisir la liste des articles facturés d'un client à la fois (en purgeant entre chaque les données, VBA créé et en fonction) et 'feuille de caisse" avoir le récapitulatif de l'ensemble des recettes de la journée (en conservant le détail). J'ai pu créer une macro qui recopie :
copier_reglements Macro
'
'
Range("B4:F16,E19:F19").Select
Range("E19").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B4:F4,B5:F16").Select
Range("B5").Activate
Selection.Copy
Range("I4").Select
ActiveSheet.Paste
Range("I4:M16,E19").Select
Range("E19").Activate
Application.CutCopyMode = False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Mais quel code dois-je intégrer pour que chaque copie se fasse à la suite de la précédente ? un genre de While si une ligne est remplie passe à la ligne suivante ? Comment je le rédige en langage informatique ?
Merci pour votre aide. Clemence.
copier_reglements Macro
'
'
Range("B4:F16,E19:F19").Select
Range("E19").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B4:F4,B5:F16").Select
Range("B5").Activate
Selection.Copy
Range("I4").Select
ActiveSheet.Paste
Range("I4:M16,E19").Select
Range("E19").Activate
Application.CutCopyMode = False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Mais quel code dois-je intégrer pour que chaque copie se fasse à la suite de la précédente ? un genre de While si une ligne est remplie passe à la ligne suivante ? Comment je le rédige en langage informatique ?
Merci pour votre aide. Clemence.