Microsoft 365 Aide ajustement macro 😭

[Niko2149]

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

 

[TooFatBoy]

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é.

 

[TooFatBoy]

Pour ton problème de date, essaye de remplacer

Format(wsSource.Cells(i, 3).Value, "dd/mm/yyyy")

par

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

.Cells(resultRow, 7).Value = Format(wsSource.Cells(i, 10).Value, "#,##0.00")

par

.Cells(resultRow, 7).Value = CDbl(wsSource.Cells(i, 10).Value)
.Cells(resultRow, 7).NumberFormat = "#,##0.00"

 

[TooFatBoy]

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 ???

 

[job75]

Bonjour,

J'ai créé (à l'aide de l'IA) une macro censée faire gagner énormément de temps à la saisie comptable.

Bah demandez à l'IA de corriger la macro, si elle est intelligente elle devrait le faire non ?

A+

 

[job75]

Au café du commerce : l'IA est utile si elle permet à l'utilisateur d'apprendre quelque chose.

Et pour cela il faut comprendre ce qu'elle fait.

Autrement, à mon avis, elle ne sert à rien.

 

[TooFatBoy]

Il y a plusieurs types d'IA.
Les IA qui me bluffent complètement sont celles spécialisées dans la génération d'images. Ca donne des trucs plus vrais que nature !

 

[TooFatBoy]

Bah demandez à l'IA de corriger la macro, si elle est intelligente elle devrait le faire non ?

C'est probablement ce qu'il a fait car il n'y a eu aucune réponse à mes trois messages postés au début de ce fil de discussion.