VBA : reporting

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
menazuta
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 15 février 2019
Version d'Excel : 2016fr

Message par menazuta » 16 février 2019, 21:57

Bonjour la communauté,

Je viens vers vous car je ne trouve pas de réponse à mon problème sur le Forum .

j'ai 2 table
le premier table est dans la feuil nommé ("saisie")
saisie.JPG
le deuxième est dans la feuil nommé ("plan comptable") allant de ("A2" :"C289")qui est toujours fixe
plan comptable.JPG
plan comptable.JPG (128.34 Kio) Vu 194 fois
et N autre feuilles portant le nom des compte du plan comptable.
je voudrai quand j'aurai terminé de faire de saisie sur la feuille ("saisi")
Dé que je clique si bouton ("transfer") le macro
Doit, d'abord regarde le ("numéro compte) et la recherche sur la feuille ("plan comptable") de ("A2 à A289") s'il le trouve retenir le nom sur dans la partie ("B") et prendre la saisie et les copier du la feuille correspondante ("B").
faire Attention au numéro de compte("saisie") suivant car il doit réponde à 2 conditions avant de coller rechercher le numéro de compte et vérifier le montant s'il inscrit soit ("débit ") ou au ("crédit") car le nom dépend de cela. voir image de compte concerné
nb.JPG
nb.JPG (64.36 Kio) Vu 194 fois
et enfin parfois le numéro de compte ("saisie") peut soit appliquer les comptedu plan comptable soit prendre ses compte qui reste fixe et ajouté autant de chiffre qu'il veux sa dépend de l'utilisateur
Mais elle suis la méme logique du traitement précédant exemple :
compte 221 ou 2210 ou 22002 ("saisi') correspondra à > 22 'Terrains'du ("plan comptable")
compte 7069 ou 70610 ou 706101 ("saisi') correspondra à > 706 'Travaux servis vendus' du ("plan comptable")
compte 2919 ou 29191 ou 291905 ("saisi') correspondra à > 2919 'Frais de dévevelo & propection' du ("plan comptable")
ect....

mercie
Cordialement
llemezo reporting.xlsm
(251.91 Kio) Téléchargé 6 fois
l
llemezo
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 11 février 2019
Version d'Excel : 2016fr

Message par llemezo » 16 février 2019, 22:58

salut
m
menazuta
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 15 février 2019
Version d'Excel : 2016fr

Message par menazuta » 17 février 2019, 13:48

bonjour jour tout le monde
j'ai grand besoin de l'aide . je suis preneur toute idée ou piste.
salut llemezo
mercie
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 5'721
Appréciations reçues : 78
Inscrit le : 18 septembre 2008
Version d'Excel : 2010 / 2016
Téléchargements : Mes applications

Message par galopin01 » 17 février 2019, 15:23

Bonjour,
Pas certain que tu reçoives beaucoup de réponses.
Juste pour ouvrir le débat, d'autre pourrons ainsi confirmer ou pas selon leur point de vue :
Sans vouloir t'offenser, dispatcher les saisies sur une centaine de feuilles me parait sans intérêt ! (euphémisme !)
Je ne sais pas ce que tu comptes en tirer, mais mon intuition personnelle serait plutôt de rassembler toussa dans une base de donnée unique...
Si c'est juste pour faire des éditions par regroupement de N° de compte. Excel et VBA sont bien capable de te générer des états à la demande.
Sinon si tu as d'autres perspectives tu devrais annoncer la couleur tout de suite... Parce que pour l'instant tu risques de ne pas motiver les foules ! (Personne n'aime se lancer dans des développement sans intérêt ! )

Si tu tiens absolument à rester sur cette idée :
Piste : Au lieu de dispatcher tes saisies prendre le problème à l'envers.
Passer en revue tous les Numéros de comptes valides de ton plan comptable et les rechercher dans les saisies : si ça match tu copies.
Si ça ne matche pas pour le N° tu vas rechercher les sous comptes (qui commencent forcément par le même N° mais qui ont plus de digits...)
Dans l'un ou l'autre cas pour les comptes pertinents utiliser un flag Débiteur afin d'imputer ça dans la bonne feuille...

Compte tenu du grand nombre de boucles prévisibles il est fortement conseillé de stocker la liste des comptes dans un Dico et les saisies dans un Array...

Tips : Dimensionner l'Array avec une colonne de plus que nécessaire. Dans un premier temps tu affectera dans cette colonne le nom de la feuille matchée.
Quand toute la colonne est pleine le travail est terminé, tu peux interrompre la recherche et copier la ligne dans la feuille voulue à ce moment là.
Avantage : Tu travailleras en permanence sur l'array pendant la recherche. Et que sur des lignes valides à la fin au moment de l'écriture. Ça me semble beaucoup plus rapide à programmer en un seul bloc à la fin plutot que de faire une écriture au fil de l'eau. En plus tu pourras vérifier le contenu de ton travail dans la feuille de saisies. Ce qui ne serait pas possible avec un transfert au fil de l'eau...
A+
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
m
menazuta
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 15 février 2019
Version d'Excel : 2016fr

Message par menazuta » 17 février 2019, 16:31

bonjour r galopin01
merci pour vos remarque mémé si je comprend les terme que vous utisez car je un novice en vba.

je vous explique c'est que tout le 30jours je doit extraire tout les saisie faite sur le(" logicel Sarie") par le comptable et faire rubrique par rubrique et le détailler.
je le fait manuellement et sa prend beaucoup de jour pour mois car je suis pas assez rapide et je fausse mes toujours la date ou je doit rendre le ficher excel.

je vais suivre votre logique si que comprend bien je vais créer un autre feuille et la nommé ("base")
qui va rassemblé tout les saisie dé-jas faites et je vais réserver la colonne ('"J") qui fera une RECHERCHEV Par rapport à ma feuille
("plan compta") s'il la trouve il mettra le nom pour tout les colonnes.
si tout est terminé par rapport a ma colonne ("J") dont le nom sera identique avec les autres feuilles copier la ligne ("A : I") vers la feuille sa feuille correspondante.
je vais essayer de faire cela et je vous reviens.

Merci d'avoir essayer de m"aider sa me touche beaucoup
pour les autres je suis toujours preneur de tout remarque ou solution
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 5'721
Appréciations reçues : 78
Inscrit le : 18 septembre 2008
Version d'Excel : 2010 / 2016
Téléchargements : Mes applications

Message par galopin01 » 17 février 2019, 19:15

Toussa ne dit pas vraiment ce que -in fine- tu comptes faire de toutes ces feuilles ? Mébon
Ça me parait un peu juste de faire ça avec des RECHERCHEV
Je vais quand même essayer de te faire un truc pas trop complexe et pas trop chronovore...
Prévoir un délai...

Hum... S'il y en a d'autres qui ont des idées, ne vous génez pas pour les développer...

A+
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
m
menazuta
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 15 février 2019
Version d'Excel : 2016fr

Message par menazuta » 17 février 2019, 20:03

bonsoir mr galopin01
je m'en vais essayer de vous expliquer ce que je suis entrain de faire de puis ce matin
d'abord j'ai créer une autre feuil nommé ( "base") qui vas stocké ce que j'aurai fait dans la feuil ("saisi")
puis j'ai rajouté une colonne ("I")
base.JPG
qui va regardé le numéro de compte et lui attribuer un titre linge par ligne par cette formule que j'ai pas encore fini je croix qu'elle va me prendre toute la nuit ou meme de demain
  • =SI(OU(A6=10;ET(A6>=101;A6<=104);ET(A6>=1010;A6<=1040);ET(A6>=10100;A6<=10400);ET(A6>=101000;A6<=104000);ET(A6>=1010000;A6<=1040000));"Capital"; SI(OU(A6=109;ET(A6>=1090;A6<=1099);ET(A6>=10900;A6<=10999);ET(A6>=109000;A6<=109999);ET(A6>=1090000;A6<=1099999));"Apporteur de capital no appele";
    SI(OU(A6=105;ET(A6>=1050;A6<=1059);ET(A6>=10500;A6<=10599);ET(A6>=105000;A6<=105999);ET(A6>=1050000;A6<=1059999));" primes liee au capital social"; SI(OU(A6=106;ET(A6>=1060;A6<=1069);ET(A6>=10600;A6<=10699);ET(A6>=106000;A6<=106999);ET(A6>=1060000;A6<=1069999));"ecarts de réévaluation";
    SI(OU(A6=111;A6=112;A6=113;ET(A6>=1110;A6<=1119);ET(A6>=1120;A6<=1129);ET(A6>=1130;A6<=1139);ET(A6>=11200;A6<=11299);ET(A6>=11300;A6<=11399);ET(A6>=11400;A6<=11499);ET(A6>=111000;A6<=111999); ET(A6>=112000;A6<=112999); ET(A6>=113000;A6<=113999);ET(A6>=1110000;A6<=1119999);ET(A6>=1120000;A6<=1129999);ET(A6>=1130000;A6<=1139999));"Réservers indiponibles";
    SI(OU(A6=118;ET(A6>=1180;A6<=1189);ET(A6>=11800;A6<=11899);ET(A6>=118000;A6<=118999);ET(A6>=1180000;A6<=1189999));"Réservers Libres";
    SI(OU(A6=12;A6=121;A6=129 ;ET(A6>=1210;A6<=1219);ET(A6>=1290;A6<=1299);ET(A6>=12100;A6<=12199) ;ET(A6>=12900;A6<=12999);ET(A6>=121000;A6<=121999);ET(A6>=129000;A6<=129999);ET(A6>=1210000;A6<=1219999;ET(A6>=1290000;A6<=1299999));"Report à nouveau";
    SI(OU(A6=13;A6=131;A6=139 ;ET(A6>=1310;A6<=1319);ET(A6>=1390;A6<=1399);ET(A6>=13100;A6<=13199) ;ET(A6>=13900;A6<=13999);ET(A6>=131000;A6<=131999);ET(A6>=139000;A6<=139999);ET(A6>=1310000;A6<=1319999;ET(A6>=1390000;A6<=1399999));" Resultat net de l'exercice";
    SI(OU(A6=14;ET(A6>=140;A6<=149);ET(A6>=1400;A6<=1499);ET(A6>=14000;A6<=14999);ET(A6>=140000;A6<=149999);ET(A6>=1400000;A6<=1499999));"subvension d'investissement";
    SI(OU(A6=15;ET(A6>=150;A6<=159);ET(A6>=1500;A6<=1599);ET(A6>=15000;A6<=15999);ET(A6>=150000;A6<=159999);ET(A6>=1500000;A6<=1599999));"Provision Reglementées ";
    SI(OU(A6=16; ET(A6>=160;A6<=169); ET(A6>=181;A6<=184);ET(A6>=1600;A6<=1699); ET(A6>=1810;A6<=1849); ET(A6>=16000;A6<=16999);ET(A6>=18100;A6<=18499); ET(A6>=160000;A6<=169999);ET(A6>=181000;A6<=184999;ET(A6>=1600000;A6<=1699999;ET(A6>=1810000;A6<=1849999));" Emprunts et dettes financieres";
    SI(OU(A6=17;ET(A6>=170;A6<=179);ET(A6>=1700;A6<=1799);ET(A6>=17000;A6<=17999);ET(A6>=170000;A6<=179999);ET(A6>=1700000;A6<=1799999));"Dette de location acquisition";
    SI(OU(A6=19;ET(A6>=190;A6<=199);ET(A6>=1900;A6<=1999);ET(A6>=19000;A6<=19999);ET(A6>=190000;A6<=199999);ET(A6>=1900000;A6<=1999999));"Provisions risques et charges";
    SI(OU(A6=4998; ET(A6>=2481;A6<=2484); ET(A6>=49980;A6<=49989);ET(A6>=24810;A6<=24849); ET(A6>=499800;A6<=499899); ET(A6>=248100;A6<=248499);ET(A6>=4998000;A6<=4998999); ET(A6>=2481000;A6<=2484999")); Dette circulants HAO";
    SI(OU(A6=419;ET(A6>=4190;A6<=4199);ET(A6>=41900;A6<=41999);ET(A6>=419000;A6<=419999);ET(A6>=4190000;A6<=4199999));" Client avance recue";
    SI(OU(A6=40;ET(A6>=400;A6<=408);ET(A6>=4000;A6<=4089);ET(A6>=40000;A6<=40899);ET(A6>=400000;A6<=408999);ET(A6>=4000000;A6<=4089999));" fournisseur d'expoitation";
    SI(OU(A6=478;ET(A6>=4780;A6<=4789);ET(A6>=47800;A6<=47899);ET(A6>=478000;A6<=478999);ET(A6>=4780000;A6<=4789999));"Autre dette";
    SI(OU(A6=499;ET(A6>=4990;A6<=4997);ET(A6>=49900;A6<=49979);ET(A6>=499000;A6<=499799);ET(A6>=4990000;A6<=4997999));"Provision risque a court terme";
    SI(OU(ET(A6>=564;A6<=565);ET(A6>=5640;A6<=5659);ET(A6>=56400;A6<=56599);ET(A6>=564000;A6<=565999);ET(A6>=5640000;A6<=5659999));" Banque; crédit escompter treso ";

merci de votre attention
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 5'721
Appréciations reçues : 78
Inscrit le : 18 septembre 2008
Version d'Excel : 2010 / 2016
Téléchargements : Mes applications

Message par galopin01 » 18 février 2019, 08:30

Bonjour,
Je pense que tu peux arrêter avant d'épuiser ta provision de Doliprane ! :mrgreen:
J'ai également bossé un peu dessus, mais ton truc me parait vraiment imbuvable.
En plus tes données sont imprécises...

Pour ne prendre qu'un exemple il y a, de la ligne 145 à 177 des saisies qui sont codées 284 et une ribambelle d'autres sous compte (2844, 28441,28442...) Mais dans ton plan comptable cette ligne n'existe pas !
Moi je ne sais pas coder dans ces conditions !
A+
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
m
menazuta
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 15 février 2019
Version d'Excel : 2016fr

Message par menazuta » 18 février 2019, 08:54

Bonjour mr galopi01
Ces compte exit je me suis pas rendu compte que les est omise car je les ai saisie une par une
Merci de maider
m
menazuta
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 15 février 2019
Version d'Excel : 2016fr

Message par menazuta » 18 février 2019, 09:23

Pouvais vous me donné quelques mnute je vais saisir encore le plan comptable tel qui les : tous les comptes commençant par 14 = subvention d'investissement
17= dette de location acquisition
284= materiel mobilier actf biologie(s
-auf 2845)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • REPORTING
    par abd_sy » 20 juillet 2016, 10:36 » dans Excel - VBA
    2 Réponses
    270 Vues
    Dernier message par bouben
    24 juillet 2016, 10:33
  • reporting
    par Marie95 » 20 juin 2016, 14:56 » dans Excel - VBA
    8 Réponses
    375 Vues
    Dernier message par tulipe_4
    21 juin 2016, 20:34
  • reporting automatique
    par qassim » 12 décembre 2018, 09:45 » dans Excel - VBA
    18 Réponses
    387 Vues
    Dernier message par Steelson
    18 décembre 2018, 10:05
  • Reporting interventions
    par mathvador » 9 août 2016, 10:45 » dans Excel - VBA
    10 Réponses
    329 Vues
    Dernier message par andrea73
    9 août 2016, 15:33
  • reporting automatisé
    par Jeff1974 » 15 février 2015, 18:35 » dans Excel - VBA
    6 Réponses
    821 Vues
    Dernier message par James007
    21 février 2015, 10:14
  • Tableau de reporting
    par Abdeal » 3 octobre 2016, 10:32 » dans Excel - VBA
    13 Réponses
    560 Vues
    Dernier message par Abdeal
    14 novembre 2016, 12:25