Archivage sur deuxfeuilles simultanément

[Clement09]

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

 

[Clement09]

Re : Archivage sur deuxfeuilles simultanément

Personne n'a d'idées?

 

[kjin]

Re : Archivage sur deuxfeuilles simultanément

Bonsoir,
Sans fichier

Private Sub CommandButton2_Click()
With Sheets("Archivage")
dl = .Range("B65000").End(xlUp).Row + 1
    .Cells(dl, 2) = Format(TBX_Date, "mm/dd/yyyy")
    .Cells(dl, 3) = Mois
    .Cells(dl, 4) = Client
    .Cells(dl, 5) = CA * 1
    .Cells(dl, 6) = Carte
    .Cells(dl, 7) = Remise * 1
    .Cells(dl, 8) = Code * 1
End With
With Sheets("Archivage2") 'remplace archivage2 par le nom de ta 2e feuille
dl = .Range("B65000").End(xlUp).Row + 1
    .Cells(dl, 2) = Format(TBX_Date, "mm/dd/yyyy")
    .Cells(dl, 3) = Mois
    .Cells(dl, 4) = Client
    .Cells(dl, 5) = CA * 1
    .Cells(dl, 6) = Carte
    .Cells(dl, 7) = Remise * 1
    .Cells(dl, 8) = Code * 1
End With
Unload Me

End Sub

Ait l'amabilité de mettre le code dans des balises (bouton # dans le menu)
A+
kjin

 

[Clement09]

Re : Archivage sur deuxfeuilles simultanément

Bonsoir,
Ça fonctionne nickel !

Désolé pour les balises, je suis pas encore très habitué au forum, maintenant je ferais plus l'erreur.

Merci beaucoup, bonne soirée.