Discussion :

[DragZZ]

Bonjour Le forum

aujourd'hui j'ai un petit problème concernant une de mes conditions SI

mon but est de créer une conditions SI qui dédouble la ligne du compte client Ex :" 35165DABSO ." que SI il y a un compte de TVA "445720" en reprévenant les informations de la ligne repris mais en changeant le libellé en rajoutant TAUX TVA 10% comme ci-dessous .


pourriez vous m'aider a adapter ma condition ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MAcroInsertion()
Dim i&
Application.ScreenUpdating = False
If Cells(i + 1, 3) = "445720" And Cells(i + 1, 3) Like "*35*" Then
Rows(i + 1).Insert
    Cells(i + 1, 1) = Cells(i + 1, 1)
    Cells(i + 1, 2) = Cells(i + 1, 2)
    Cells(i + 1, 3) = Cells(i + 1, 3)
    Cells(i + 1, 4) = Cells(i + 1, 4)
    Cells(i + 1, 1) = Cells(i + 1, 1)
    Cells(i + 1, 1) = Cells(i + 1, 1)
End If
End Sub

j'ai essayé plein de conditions mais sans succès

Je vous joins un fichier test avec des explications approfondis si vous avez des questions n'hésitez pas et mon code qui est ci-dessous et dans le fichier test.

En vous remerciant

[hyperion13]

Salut
Une remarque en passant.
Si je pose i = 1 en L4 de votre macro on aurait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(1 + 1, 3) = "445720" And Cells(1 + 1, 3) Like "*35*" Then

et signifierait qu'en C2 on a tout à la fois 445720 et 35165DABSO

[DragZZ]

ah d'accord mais ducoup que dois-je utilisé comme il sont sur la meme colonne ???

[hyperion13]

re,
de plus votre schéma d'écritures n'a aucun sens puisque Débit/Crédit sont déséquilibrés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
35165DABSO1 = 7884.63
35165DABSO2 =  710.37

Le plus simple serait de créer des guides d'écritures sur une feuille de calculs et en fonction de l'écriture à passer, sélectionner le bon et ensuite l'ajouter dans un journal AC, BP, CA, VE, VC, OD

[DragZZ]

Merci de votre reponse pour ma part je n'ai aucune connaissance comptable on m'a demandé d'effectué une macro avec un fichier TXT pour pouvoir importer facilement sur un logiciel comptable
mon collaborateur veux que je dedouble la ligne 31655dabso que SI il ya un le numero de compte 445720 qui est afficher dans cette colonne en remettant le la valeur au debit mais juste en ajoutant le taux tva dans le libéllé

[hyperion13]

ah bon ! Et selon quelle règle du PCG sommes-nous obligés de différencier le montant TTC selon les différents Taux TVA appliqués dans une VE, VC ou AC ?

[Raccourcix]

Bonjour

perso, je trouve bien plus facile d'utiliser Power Query pour traiter les données comptables (Power Query fait ça plus simplement que VBA) et d'avoir une petite macro pour générer le fichier texte avec quelques lignes du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Open "xxx.txt" for Output As #1 
boucle sur les lignes 
Print #1, ligne
 
Close #1

j'ai fait gagner des heures à mes collègues comptables en remplaçant leurs vieilles macros qui mettaient parfois 2 mn à traiter ligne à ligne leurs écritures par une requête qui prends quelques secondes
c'est un peu long à mettre en place quand on ne connait pas Power Query mais que du bonheur ensuite.


Stéphane