Microsoft 365 Aide ajustement macro 😭

Niko2149 · 1 Octobre 2024

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 · 1 Octobre 2024

Bonjour,

Niko2149 à dit:
diviser le montant de la colonne « TVA » par 0,2 pour obtenir le montant du compte « 708800 ».

Niko2149 à dit:
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 · 1 Octobre 2024

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"

TooFatBoy · 1 Octobre 2024

Pour CREDIT (facture diverse) :

Niko2149 à dit:
reprendre la colonne « TVA » pour le compte « 445712 »

Ca veut dire copier (HT source) en colonne cible CREDIT ?

Niko2149 à dit:
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 ?

Niko2149 à dit:
Passer le solde en compte « 467100 »

C'est-à-dire ???

job75 · 1 Octobre 2024

Bonjour,

Niko2149 à dit:
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 · 1 Octobre 2024

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 · 1 Octobre 2024

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 · 4 Octobre 2024

job75 à dit:
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.

Microsoft 365 Aide ajustement macro 😭

Niko2149

XLDnaute Nouveau

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires