Bonjour,
Je cherche la solution la plus simple à mon problème et quoique certains cas ressemblent au mien, je ne trouve pas LA solution à mon problème.
Le contexte est le suivant :
Dans un premier onglet Sheets("Facture"), j'ai mon interface de facture.
Mon deuxième onglet Sheets("BD Facture) est comme le nom le dit, là où je veux cumuler les données relatives aux différentes factures créées.
J'ai une macro qui génère mon # automatique de chaque facture
BREF,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub NO_Facture() 'Va chercher le dernier numero de facture dans la BD Facture 'Additionne 1 à ce numero de facture 'Va inscrire ce numero dans l'onglet Facture dans la cellule appropriée ProchaineCelluleVide = Sheets("BD Facture").Range("c1").End(xlDown).Value ProchainNumero = ProchaineCelluleVide + 1 Sheets("Facture").Range("k2").Value = ProchainNumero End Sub
Maintenant, je veux que certaines cellules contenant de l'information importante (date, # client, montant facture, etc) soient «exportées» dans ma BD
Là où mon nouveau # de facture va avoir été créé.
J'avais utilisé la macro suivante, mais je réalise que si le # existe déjà, il va se doubler...
Je pense donc inscrire dans la dernière cellule libre le # de facture que j'ai créée dans la macro NOFacture et j'aimerai que ma macro trouve ce # puis inscrive dans les bonnes cellules les valeurs de la facture...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Sub RemplirChamp() 'Permet d'aller chercher tous les nouveaux champs de la facture et de remplir la BD 'En commençant par aller ajouter le # de facture utilisée (BD Facture : Colonne C)(Facture : k2) Sheets("BD Facture").Range("c1").End(xlDown).Select Selection.Offset(1, 0).Value = Sheets("Facture").Range("k2").Value 'Cellule # document (BD Facture : Colonne A)(Facture : K3) Sheets("BD Facture").Range("a1").End(xlDown).Select Selection.Offset(1, 0).Value = Sheets("Facture").Range("k3").Value 'Cellule # Client (BD Facture : Colonne B)(Facture : K1) Sheets("BD Facture").Range("b1").End(xlDown).Select Selection.Offset(1, 0).Value = Sheets("Facture").Range("k1").Value 'Cellure Date (BD Facture : Colonne D)(Facture : G5) Sheets("BD Facture").Range("d1").End(xlDown).Select Selection.Offset(1, 0).Value = Sheets("Facture").Range("g5").Value ' Cellule Montant avant taxes (BD Facture : Colonne E)(Facture : H26 ) Sheets("BD Facture").Range("e1").End(xlDown).Select Selection.Offset(1, 0).Value = Sheets("Facture").Range("h26").Value ' Cellule TPS (BD Facture : Colonne F)(Facture : H27) Sheets("BD Facture").Range("F1").End(xlDown).Select Selection.Offset(1, 0).Value = Sheets("Facture").Range("h27").Value ' Cellule TVQ (BD Facture : Colonne G)(Facture : H28) Sheets("BD Facture").Range("g1").End(xlDown).Select Selection.Offset(1, 0).Value = Sheets("Facture").Range("h28").Value ' Cellule Montant après taxes (BD Facture : Colonne H)(Facture : H29) Sheets("BD Facture").Range("h1").End(xlDown).Select Selection.Offset(1, 0).Value = Sheets("Facture").Range("h29").Value End Sub
Est-ce que je suis claire
Un gros merci !!![]()
Partager