Bonjour,
Pour un travail, je dois réaliser un logiciel de gestion des ventes pour un magasin.
Pour ce faire, j'utilise un UserForm d'archivage pour enregistrer les nouvelles ventes dans un tableau de données. Cependant j'aimerais bien avoir ce tableau sur deux feuilles différentes et pouvoir analyser les deux différemment.
Ma question est : est-ce possible que mon archivage enregistre les données sur deux feuilles différentes à la foi, ou alors que le deuxième tableau s'actualise automatiquement.
Voici le code d'archivage que j'utilise.
Private Sub CommandButton2_Click()
Sheets("Archivage").Select
Range("B2").Select
Do
If ActiveCell.Value = "" Then
GoTo Archive
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
Archive:
ActiveCell.Value = Format(TBX_Date, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mois
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Client
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CA * 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Carte
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Remise * 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Code * 1
ActiveCell.Offset(0, 1).Select
Archivage.Hide
Sheets("Archivage").Select
Range("D1").Select
Unload Me
End Sub
Merci d'avance !
Clément
Pour un travail, je dois réaliser un logiciel de gestion des ventes pour un magasin.
Pour ce faire, j'utilise un UserForm d'archivage pour enregistrer les nouvelles ventes dans un tableau de données. Cependant j'aimerais bien avoir ce tableau sur deux feuilles différentes et pouvoir analyser les deux différemment.
Ma question est : est-ce possible que mon archivage enregistre les données sur deux feuilles différentes à la foi, ou alors que le deuxième tableau s'actualise automatiquement.
Voici le code d'archivage que j'utilise.
Private Sub CommandButton2_Click()
Sheets("Archivage").Select
Range("B2").Select
Do
If ActiveCell.Value = "" Then
GoTo Archive
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
Archive:
ActiveCell.Value = Format(TBX_Date, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mois
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Client
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CA * 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Carte
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Remise * 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Code * 1
ActiveCell.Offset(0, 1).Select
Archivage.Hide
Sheets("Archivage").Select
Range("D1").Select
Unload Me
End Sub
Merci d'avance !
Clément