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

XL 2016 Ecriture comptables

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion yann77610
  • 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
Y

yann77610

XLDnaute Nouveau
Bonsoir à tous,


Je suis comptable et je dois intégrer automatiquement des écritures comptables à partir d’un fichier excel reçu des dépenses et recettes de ma cliente avec des centaines de lignes à la suite, exemple de ligne ci-dessous.


DateN° compteIntituléTTCTVAHT
03.01.20627000PrlV Cotis Compte à composer2,14


Je souhaiterai en partant de l’exemple de ligne ci-dessus arriver au résultat ci-dessous afin d’intégrer le fichier retraité dans le logiciel comptable. Je n’arrive pas à rajouter/insérer « une « ligne de compte « 512 » entre les lignes du fichier d’origine de ma cliente, c’est-à-dire que pour chaque ligne de dépense, il faudra rajouter une ligne de compte « 512 banque » en dessous. Je n’ai aucune base en vba ou autre. Peut-être que quelqu’un pourrait m’aider ?


N° compteIntituléDébitCrédit
03.01.20627000PrlV Cotis Compte à composer2,14
03.01.20512000PrlV Cotis Compte à composer 2,14





Le même problème s’il y’a de la TVA dans le fichier d’origine, je n’arrive pas à rajouter/insérer « deux » lignes en dessous de la ligne du fichier d’origine. Ci-dessous la ligne en question du fichier d’origine pour une dépense avec TVA.

DateN° compteIntituléTTCTVAHT
03.01.20626100PayPal pour OVH50,628,4442,18


Ci-après le fichier que j’espère obtenir avec une ligne rajoutée pour la TVA en compte « 44566 » et une ligne en compte « 512 » pour le montant TTC.

DateN° compteIntituléDébitCrédit
03.01.20626100PayPal pour OVH42,18
03.01.20445660PayPal pour OVH8,44
03.01.20512000PayPal pour OVH 50,62

Je ne sais pas si je suis claire, en tout cas si une âme charitable pouvait m’aider… Merci.
 
Trier par date Trier par votes
Bonjour Yann, le fil,

bienvenue sur le site XLD ! 🙂

je te propose le fichier joint ci-dessous.

tu peux voir que "Feuil2" est vide ; va sur "Feuil1" ; note que j'ai d'abord corrigé ton erreur : en ligne 2, le montant 2,14 pour le compte 627000 (compte de charges) n'est pas un TTC mais un HT ! et comme tu as mis le HT en dernière colonne F, 2,14 doit être en F2 et pas en D2 ! à moins que tu aies inversé les intitulés des 2 colonnes "TTC" et "HT" ? 😁 😜

fais Ctrl e ➯ travail effectué. 😊 ça sera très rapide, même sur plusieurs milliers de lignes, car j'ai utilisé la méthode des Tableaux.​


ATTENTION : je me suis rendu compte d'un bug dans mon présent fichier : la date du 3 janvier 2020 devient le 1er mars 2020 ! ça fait cela : 03.01.20 → 01.03.20 ; ce problème est corrigé avec ma nouvelle version v2 du post #8.
​

salut patrick, peux-tu regarder mon fichier ci-joint ? connais-tu un moyen simple pour que ça ne fasse pas une inversion de date automatique ? c'est lors de l'exécution de cette instruction : T1 = [A2].Resize(n, 6) ; la colonne A de la feuille contient 03.01.20 (vraie date au format jj.mm.aa) et devient automatiquement, dans la 1ère colonne du tableau T1 : 01.03.20 ; mon fichier v2 donne les bonnes dates du 03.01.20, mais la seule solution que j'ai trouvée à été de faire un tableau séparé pour les dates, ce qui rend assez complexe : 4 tableaux au lieu de 2 ! 😕​

soan
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
En complément... Mais sans la correction de @soan, c'est à dire tel que spécifié.
Ce classeur est indépendant du classeur des Recettes & Dépenses.
Fichier supprimé, voir plus loin.
 
Dernière édition:
Vote positif 0 Vote négatif
@yann77610, le fil,

je me suis rendu compte d'un bug dans mon fichier précédent : la date du 3 janvier 2020 devient le 1er mars 2020 ! ça fait cela : 03.01.20 → 01.03.20 ; ce problème est corrigé avec cette nouvelle version : 03.01.20 reste inchangé ; de plus, comme dans la 1ère version, c'est une vraie date au format jj.mm.aa, pas une date texte.

même utilisation : la 2ème feuille est vide ; va sur la 1ère feuille, et fais Ctrl e ; dans mon prochain post, je vais mettre une 3ème version où 2,14 est en D2 au lieu de F2, même si c'est la colonne TTC (alors qu'une charge est normalement en colonne HT).​

VB: 
Option Explicit: Option Base 1

Sub Essai()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim D01() As String, T01, D02() As String, T02, k As Byte, d$, i&, j&
  n = n - 1: ReDim D01(n): T01 = [B2].Resize(n, 5)
  For i = 1 To n
    With [A1].Offset(i): D01(i) = Format(.Value, "dd.mm.yyyy"): End With
  Next i
  i = 2 * n + Application.Count(Columns(5))
  ReDim D02(i): ReDim T02(5, i): j = 1
  For i = 1 To n
    D02(j) = D01(i): T02(1, j) = T01(i, 1): T02(2, j) = T01(i, 2): T02(3, j) = T01(i, 5): j = j + 1
    k = 5 + 2 * (T01(i, 4) > 0)
    If k = 3 Then
      D02(j) = D01(i): T02(1, j) = "445660": T02(2, j) = T01(i, 2): T02(3, j) = T01(i, 4): j = j + 1
    End If
    D02(j) = D01(i): T02(1, j) = "512000": T02(2, j) = T01(i, 2): T02(4, j) = T01(i, k): j = j + 1
  Next i
  Application.ScreenUpdating = 0: Worksheets("Feuil2").Select: Columns("A:E").ClearContents
  [A1] = "Date": [B1] = "N° compte": [C1] = "Intitulé": [D1] = "Débit": [E1] = "Crédit"
  j = j - 1: [B2].Resize(j, 4) = Application.Transpose(T02)
  For i = 1 To j
    With [A1].Offset(i)
      d = D02(i): .Value = Format(DateSerial(Right$(d, 4), Mid$(d, 4, 2), Left$(d, 2)), "dd.mm.yy")
    End With
  Next i
End Sub

soan
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
@yann77610, le fil,

voici la 3ème version ; 2,14 en D2 au lieu de F2, même si d'un point d'vue comptable, ce montant du compte de charges 627000 est censé être un HT, donc ça serait plus logique qu'il soit en F2 ; faut croire qu'il est utilisé comme montant TTC après exonération de TVA.

même utilisation : la 2ème feuille est vide ; va sur la 1ère feuille, et fais Ctrl e ➯ travail effectué ! 😊
​
VB: 
Option Explicit: Option Base 1

Sub Essai()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim D01() As String, T01, D02() As String, T02, k As Byte, d$, i&, j&
  n = n - 1: ReDim D01(n): T01 = [B2].Resize(n, 5)
  For i = 1 To n
    With [A1].Offset(i): D01(i) = Format(.Value, "dd.mm.yyyy"): End With
  Next i
  i = 2 * n + Application.Count(Columns(5))
  ReDim D02(i): ReDim T02(5, i): j = 1
  For i = 1 To n
    k = 3 - 2 * (T01(i, 4) > 0)
    D02(j) = D01(i): T02(1, j) = T01(i, 1): T02(2, j) = T01(i, 2): T02(3, j) = T01(i, k): j = j + 1
    If k = 5 Then
      D02(j) = D01(i): T02(1, j) = "445660": T02(2, j) = T01(i, 2): T02(3, j) = T01(i, 4): j = j + 1
    End If
    D02(j) = D01(i): T02(1, j) = "512000": T02(2, j) = T01(i, 2): T02(4, j) = T01(i, 3): j = j + 1
  Next i
  Application.ScreenUpdating = 0: Worksheets("Feuil2").Select: Columns("A:E").ClearContents
  [A1] = "Date": [B1] = "N° compte": [C1] = "Intitulé": [D1] = "Débit": [E1] = "Crédit"
  j = j - 1: [B2].Resize(j, 4) = Application.Transpose(T02)
  For i = 1 To j
    With [A1].Offset(i)
      d = D02(i): .Value = Format(DateSerial(Right$(d, 4), Mid$(d, 4, 2), Left$(d, 2)), "dd.mm.yy")
    End With
  Next i
End Sub

soan
 

Pièces jointes

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

Discussions similaires

K
  • Question Question
Microsoft 365 Création d'un journal d'écriture à partir d'un tableau des ventes
2
Réponses
15
Affichages
2 K
CARTER92
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…