Microsoft 365 Aide ajustement macro 😭

Niko2149

XLDnaute Nouveau
Bonjour,

je vous sollicite à nouveau pour de l'aide "macro". J'ai créé (à l'aide de l'IA) une macro censée faire gagner énormément de temps à la saisie comptable.
2 problèmes en ressortent :
- les dates sont pas reprises correctement : confusion entre jj/mm/aaaa et mm/jj/aaaa. Ce point est le moins gênant.
- je n'arrive pas à appliquer toutes les conditions suivantes pour la colonne CREDIT:

CREDIT (« frais de dossier » et « commission de vente ») = reprendre la colonne "Prix HT" pour les comptes "708" et la colonne "TVA" pour le compte "445712"

CREDIT (facture diverse) = reprendre la colonne « TVA » pour le compte « 445712 », et diviser le montant de la colonne « TVA » par 0.2 pour obtenir le montant du compte « 708800 ». Passer le solde en compte « 467100 »

C'est vraiment cette dernière condition que je n'arrive pas à transcrire.

Si quelqu'un à une solution pour les quelques lignes à rajouter, je suis preneur ++++
Merci de votre aide 🙌
 

Pièces jointes

  • Fichier des ventes.xlsm
    57.7 KB · Affichages: 5

TooFatBoy

XLDnaute Barbatruc
Bonjour,

diviser le montant de la colonne « TVA » par 0,2 pour obtenir le montant du compte « 708800 ».
C'est vraiment cette dernière condition que je n'arrive pas à transcrire.
Le problème est-il sur le résultat obtenu après la division par 0,2 ?
Si oui, es-tu sûr que 0,2 est la bonne valeur ?



Apparemment tu as aussi un problème d'importation des données en UTF-8.



N'y a-t-il pas également un problème de reconnaissance du type de facture ?
"Facture diverse" dans les données source et "facture diverse" recherché dans le code et donc non trouvé.
 
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
Pour ton problème de date, essaye de remplacer
VB:
Format(wsSource.Cells(i, 3).Value, "dd/mm/yyyy")
par
VB:
CDate(Int(wsSource.Cells(i, 3).Value))



En utilisant l'instruction Format tu obtiens un texte.
(ceci dit, dans tes données source tes "nombres" sont déjà du texte en réalité...)
Si tu veux obtenir un nombre, au lieu d'un texte, c'est l'affichage du contenu de la cellule qu'il faut formater.

Essaye de remplacer
VB:
.Cells(resultRow, 7).Value = Format(wsSource.Cells(i, 10).Value, "#,##0.00")
par
VB:
.Cells(resultRow, 7).Value = CDbl(wsSource.Cells(i, 10).Value)
.Cells(resultRow, 7).NumberFormat = "#,##0.00"
 
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
Pour CREDIT (facture diverse) :

reprendre la colonne « TVA » pour le compte « 445712 »
Ca veut dire copier (HT source) en colonne cible CREDIT ?

diviser le montant de la colonne « TVA » par 0.2 pour obtenir le montant du compte « 708800 ».
Ca veut dire écrire résultat de (TVA source)/0,2 en colonne cible DEBIT ?

Passer le solde en compte « 467100 »
C'est-à-dire ???
 

Discussions similaires

Réponses
25
Affichages
1 K

Statistiques des forums

Discussions
314 121
Messages
2 106 129
Membres
109 495
dernier inscrit
jerome bonneau