Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Archivage sur deuxfeuilles simultanément

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Clement09
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Clement09

Guest
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
 
Trier par date Trier par votes
Re : Archivage sur deuxfeuilles simultanément

Bonsoir,
Sans fichier 🙄
Code: 
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
788
AtTheOne
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
747
patricktoulon
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
562
Yogean
Y
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
1 K
mapomme
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
551
sylvanu
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
410
Ang3lina
A
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
751
piga25
R
  • Question Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
831
robbynasch
R
F
  • Question Question
XL 2010 Appeler une macro dans une autre
Réponses
5
Affichages
719
Dranreb
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
768
SAMUAL_2023
S
N
  • Résolu(e)
XL 2021 erreur Vba
2
Réponses
21
Affichages
2 K
Oneida
T
  • Question Question
Microsoft 365 Code VBA
Réponses
2
Affichages
597
thierry33670
T
  • Résolu(e)
XL 2016 If ActiveCell = "Contenu d'une TextBox" Then
2
Réponses
27
Affichages
2 K
TooFatBoy
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
628
francha62
F
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
882
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…