Journal comptable

Question

Bonjour
J'ai une question qui me taraude depuis un certain temps.
Dans le cadre d'un projet, j'ai été amenée à créer un dossier de gestion comportant le bon de commande, la facture, le journal...
Donc j'ai une facture et je souhaite transférer ses données dans le journal. En effet la 1ère opération s'enregistre sans aucun soucis par contre je n'arrive pas à trouver un code qui me permettra de réitérer l'opération .
J'essaye de joindre le fichier excel mais je n'y arrive pas donc je joins une image et mon doce utilisé.
Je vous remercie d'avance.


CODE:
sub comptabiliser()

Sheets("facture").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Journal Comptable").Range("G6").PasteSpecial Paste:=xlPasteValues
    
    Sheets("facture").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Journal Comptable").Range("E11").PasteSpecial Paste:=xlPasteValues
    
    Sheets("facture").Select
    Range("E28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Journal Comptable").Range("L8").PasteSpecial Paste:=xlPasteValues
    
     Sheets("facture").Select
    Range("E27").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Journal Comptable").Range("M10").PasteSpecial Paste:=xlPasteValues
    
     Sheets("facture").Select
    Range("E26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Journal Comptable").Range("M9").PasteSpecial Paste:=xlPasteValues
    
      Sheets("facture").Select
    Range("C31").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Journal Comptable").Range("R9").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = True

Sheets("Journal Comptable").Select
    Range("C9").Select
    ActiveCell.FormulaR1C1 = "7111"
    ActiveCell.Offset(0, 5) = "Vente de Marchandises"
    ActiveCell.Offset(1, 0) = "4455"
    ActiveCell.Offset(1, 5) = "Etat TVA facturée"
    ActiveCell.Offset(2, 1) = "Facture N°"
  MsgBox " Votre facture a bien été comptabilisée", vbOKOnly + vbInformation, "CONFIRMATION"
End Sub
[https://img-19.ccm2.net/XuBOMTmwlu_6edgJDHoxOwZjNgU=/f0b26ef6ef08454e82521a221aec5065/ccm-ugc/aide.JPG [Image:https://img-19.ccm2.net/TS_CwYB5D6POOSWEDKYf6HUI_cw=/440x/f0b26ef6ef08454e82521a221aec5065/ccm-ugc/aide.JPG|440px|]|fancy]

cs_Le Pivert · Answer

Bonjour,

voir ceci pour copier une cellule ou plage de cellule:

https://docs.microsoft.com/fr-fr/office/vba/api/excel.range.copy

a la place de:

Sheets("facture").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Journal Comptable").Range("G6").PasteSpecial Paste:=xlPasteValues


ceci:

Worksheets("facture").Range("B3").Copy _
    Destination:=Worksheets("Journal Comptable").Range("G6")

C'est beaucoup plus concis. Et avec les balises beaucoup plus clair
 
et pour répondre à ta question:

En effet la 1ère opération s'enregistre sans aucun soucis  

il suffit d'appeler de nouveau ta Sub comptabiliser()

Voilà

cs_Le Pivert · Answer

Il n'y a aucun tableau et aucune macro! 
Il y a seulement un message à l'ouverture indiquant que ce classeur n'est pas sur

Voilà

Journal comptable

2 réponses

Votre réponse

Discussions similaires