Microsoft 365 Bog execution sur macro + rajout condition

Céline49

XLDnaute Junior
Bonjour à la communauté,

J'ai ce fichier dans lequel j'intègre des données issues d'une base de données qui a évoluée (rajout de colonne inexistante jusqu'alors + dans la base "MesEncaissements" format de la colonne K qui n'est plus en format JJ/MM/AAAA). J'ai donc essayé d'ajuster la macro en conséquence mais j'ai 2 problèmes.

Dans le module 1 sub ecrencais, j'ai un bug d'exécution sur un numéro de facture et je ne comprends pas pourquoi?
--> à ce niveau-ci : Sheets("EcrEncais").Range("B" & lig).Value = sh.Range("C" & i).Value 'N° de facture

Dans le module 2 pour la gestion de l'onglet "MesMouvementsCaisse", j'aurais besoin de rajouter une condition supplémentaire et n'applique la macro qu'uniquement si les données de la colonne E "Rgt" = "Esp" et de ne pas traiter les lignes avec une donnée autre que "Esp".

Est-ce que quelqu'un pourrait m'aider. En lui faisant un grand merci par avance
 

Pièces jointes

  • Fichier avec bog.xlsm
    74.3 KB · Affichages: 3

Phil69970

XLDnaute Barbatruc
Bonjour @Céline49

De ce que j'ai compris je te propose ce fichier

Dans le module 1 je pense que t'on pb vient plutôt d'ici
1665911041784.png

La macro supprime les 0 inutile

Dans le module 2 j'ai rajouté la condition "ESP"

Merci de ton retour

@Phil69970
 

Pièces jointes

  • Pb sur colonne date V1.xlsm
    71.7 KB · Affichages: 2

Discussions similaires

Réponses
9
Affichages
391

Statistiques des forums

Discussions
312 103
Messages
2 085 321
Membres
102 862
dernier inscrit
Emma35400