Cherche VBA pour archiver

Bonjour,

J'aimerai que l'on puisse m'aider à résoudre mon problème. Voilà, j'ai un tableau (H5:H32) dans un onglet "ARCHIVES". Dans ce tableau il y a des noms qui ne sont pas toujours à la même place.
Puis un autre tableau sur le même feuille en (J5:J32) avec une somme qui s'affichent devant le nom des personnes, cette somme correspond à un achat non réglé.
Dans un onglet que j'ai nommé "récup" il y a un tableau de deux lignes. La première ligne correspond au nom de toutes les personnes susceptibles de ne pas avoir réglées leur achat. La deuxième correspond à la somme due.
Est-il possible que les sommes du tableau (J5:J32) dans l'onglet "ARCHIVES" soient retranscrites dans le tableau de l'onglet "récup" sous le nom correspondant à la personne et puissent se cumuler si plusieurs ventes ne sont pas réglées.
Merci à toutes les personnes qui pourront m'aider.

Bonjour,

À première vue, la meilleure place où commencer est le filtre avancé (filtre élaboré).

Bonjour clementmarcotte

Je vous remercie d'avoir répondu à mon message.
Cependant, je ne suis pas un expert en excel, je bidouille quelques formules et VBA en allant chercher des informations sur le club des Développeurs et IT pro.

Je me permets de vous demander de bien vouloir m'aider à résoudre mon problème. Pour cela, je vous mets en pièce jointe le tableau qui me pose problème, afin que vous puissiez visualiser ce que je veux réellement faire.

d'avance MERCI pour votre aide.

de mon coté je cherche toujours a faire le filtre élaboré.
TreborS

Bonjour,

Ma première réaction c'est de dire que cette demande n'est pas vraiment conforme aux règles du Forum et que je n'ai pris aucune décision pour la suite.

Bonjour,

Quand tu poste un fichier ce serait bien que tu donnes un fichier avec un jeu d'essai plus conséquent.

Ici dans ton onglet archivage il n'y a pas une seule donnée

tu peux reposter avec des données (même bidon) se sera plus aisé pour nous

merci

Bonsoir Igloobel,

Je vous remercie d'avoir répondu à mon message.

Comme vous me le demandez, je reposte le fichier avec un peu plus de données.

d'avance merci pour votre aide.

Bonjour,

Désolé de répondre si tard mais j'étais malade la semaine dernière et je ne pouvais pa te répondre

Il y a pas mal de problème concernant ton classeur (Mais rien de dramatique :D )

j'ai fait quelques corrections (simplifications de formules essentiellement)

1) dans l'onglet "Ventes" pour rechercher un prenom tu fais :
=SI(SOMMEPROD(1*(BASE!B8:C28=B4));SI(ESTNUM(B4);RECHERCHEV(B4;BASE!B8:C28;2;0);INDEX(BASE!C8:C28;EQUIV(B4;BASE!B8:B28;0)));"")moi j'ai fait
=SI(B4="";"";RECHERCHEV(B4;Nom_Pren;2;0)) avec un création d'une liste "Nom_Pren" dans ton onglet caché "Base"

si tu as des soucis de compréhention n'hesites pas à consulter mon billet à ce sujet.

2)tu as écrit
=SI(F7="non";CONCATENER(B7:B34);"")
en fait Concatener est inutile
=SI(F7="non";B7;"")

Avant d'aller plus avant je voudrais savoir si c'est toujours d'actualité

A+

Bonsoir Igloobel

J'espère que tu vas mieux et que ce n'était pas trop grave. Je viens juste de me connecter et je suis très content que tu m'es répondu.
Oui ma demande d'aide est toujours d'actualité.
Comme je l'ai expliqué dans un précédent message, je suis un peu voir même beaucoup novice en excel, mais cela me passionne et le tableau que j'ai fais, sert à simplifier les prises de commandes par les jeunes que j'ai en charge dans mon atelier.
Je tiens également à te remercier pour les simplifications des formules que je vais mettre tout de suite en application.
encore merci pour ton aide (si précieuse)
TreborS

Ps: Quand tu parles de billet à consulter en cas de doute, peux tu me dire où je peux le consulter et s'il s'agit bien de problèmes que tu as déjà résolus.
@ bientôt

Ok j'ai trouvé le billet en question. Les formules fonctionnent nickel :lol:

Merci et bonsoir

Bonjour,

Une fois les corrections faites,
Peux-tu renvoyer ton fichier

Merci

A+

Bonjour Igloobel

Voici le fichier corrigé.

:)

Pièce jointe 178917

Bon déjà un truc à ne pas faire c'est de nommer une SUB avec le même nom dans 2 modules différents (même si elle fait la même chose, D'ailleur où est l'interet :koi:)

Ici dans le module 1 et le Module 5 il y a une Sub qui s'apelle RAZ

Je suppose que c'est un oubli de suppression

La même chose avec Report (module 3 et 6)

J'ai vu aussi un effort avec Archivage et Archivage1 qui sont sensiblement identique mais pas tout a fait.

Je vais regarder ce soir plus attentivement

A+

Si je comprends bien les doublons (modules 5 et 1) et ( module 3 et 6 ) ne sont pas utiles, donc je peux donc en supprimer 1 sur les deux .
je pensais qu'en ayant plusieurs feuilles, il fallait à chaque fois recopier les formules!: roll: pour que ça fonctionne.
je rectifie cela. Je vous tiens au courant.
encore merci de ton aide
@ +

Pièce jointe 178978

Petit Rappel concernant les macros

1) Une macro peux servir a x endroits. exemple une macro de mise en forme peut être lancer plusieurs fois sur un même classeur voir même sur plusieurs classeurs.
2) dans un classeur il est fortement déconseillé de nommé plusieurs macros d'un même nom. c'est comme un mot réservé une fois déclarer on ne doit plus s'en servir pour déclarer quelque chose, y compris pour des variables ou nom de modules c'est trop dangereux.
3) les macros peuvent être partout (les feuilles, le classeur, les modules et les userforms)
dans les feuilles on a les macros de lancement des boutons, et des actions événement sur les feuilles. Celles-ci sont des Private Sub et peuvent (et c'est l'exception qui confirme la règle précédente) être en doublon sur une autre feuilles.
Dans le classeur deux macros sont très utiles "Workbook Open" et "Workbook Before close" pour faire des actions dès l'ouverture du classeur ou avant la fermeture
Les Userforms on va les laissé de côte pour l'instant
sinon toutes les autres doivent être dans les modules.

Personnellement je te conseille de faire un module Déclarations ou tu déclare toutes tes variables et tes conctantes en Public comme cela elles seront disponible pour toutes tes macros sans perte de données.

Bon je vais régarder un peu ton classeur et je reviendrais vers toi plus tard

bonne soirée

Bonjour Igloobel,

Je te remercies pour tous les conseils que tu me donnes.
Donc, si je comprends bien, dans le classeur que j'ai fais, je dois réunir toutes les formules dans un seul module?
Excuse moi mais là je patauge un peu!
bonne journée à +

Bonjour,

En gros, il y a 4 types de "modules" utilisables dans un classeur.

Le "module du classeur" : Il est là pour "gérer" les procédures que l'on veut utiliser spécifiquement au moment où surviennent des événements spécifiques au classeur, comme lancer automatiquement une macro en ouvrant le classeur, enregistrer des choses avant de le fermer etc. C'est, "en bon excellien", le Thisworkbook

Le "module de la feuille" : Il a le même rôle que le module du classeur, sauf qu'il s'applique à sa propre feuille et uniquement à sa propre feuille. Toujours en "bon excellien", c'est le "Worksheet"

Le "module de classe" : C'est un module spécialisé, utilisé pour ajouter des "caractéristiques spéciales" non déjà fournies par Excel.

Le "module ordinaire" : C'est le module qui sert généralement pour tout le reste.

Certains pourraient bien aussi considérer le "module de l'User_Form comme un cinquième type de module. C'est en fait un hybride des autres types de module. On s'en sert pour gérer les événements de l'User_Form, mais, il est aussi utilisable comme un module ordinaire. De plus, tu n'es pas obligé d'avoir autant de modules que de macros. Tu peux très bien avoir toutes tes "macros ordinaires" dans un seul "module ordinaire".

Donc, en prenant ton problème spécifique :

Dans tes modules de feuilles, tu devrais n'avoir que des macros que tu veux utiliser uniquement pour la feuille concernée.

Ceci dit pour faire, par exemple, le total d'une plage quelconque, et c'est aussi vrai pour tout le reste, ou presque, tu peux utiliser, dans la mesure du possible, évidemment, une seule macro, dans un module ordinaire. Tu as toutes les possibilités avec les objets Sheet (une feuille), sheets (la collection des feuilles), Worksheet (une feuille de calcul), Worksheets (la collection des feuilles de calcul) de choisir dans ta macro, quelle feuille tu veux utiliser. De la même façon, et sur le même principe, tu peux agir sur les cellules elles-mêmes avec les Objets Range, Cell et Cells.

Pour les noms de macros, tu ne peux pas avoir deux macros du même nom dans le même module.

En résumé, tu dois donc "trier" tes macros, les mettre à la bonne place et éliminer celles qui font double emploi.

P.S. Comme la rédaction de ma réponse m'a demandé un certain temps; je m'excuse d'avance pour tout "télescopage" avec d'autres réponses.

Bonjour clementmarcotte,

Alors j'ai nommé cette feuille "VENTES" parce que c'est le premier mot qui m'est venu à l'esprit, j'aurai pu la nommée "Commande" ou autrement, puisque le classeur me sert à enregistrer le nom des personnes qui prennent des "ventes à emporter".
Je tiens à te remercier d'avoir pris de ton temps, pour m'éclairer et mieux comprendre le principe des modules. Donc il me suffit maintenant de faire un tri dans les macros.
Bonne journée.

Bonsoir Igloobel,

Je te renvoie le fichier. J'ai trié les macros, le tous fonctionne.
Peux-tu me dire si c'est bien ce qu'il faillait faire.

@ +
Pièce jointe 179204

Bonjour Igloobel,

J'ai réactualisé le classeur en suivant vos conseils, tout à l'air correct.
J'ai dans l'onglet "Feuil1" refais un tableau avec une formule RECHERCHE V. Cette formule doit rechercher un nom dans le tableau "archives" et "archivage" ce qui fonctionne bien et afficher la somme dans le tableau de l'onglet "Feuil 1" à coté du nom voulu. Seulement s'il y a deux fois le même nom dans la tableau "archives" ou "archivage", il n'en reconnait qu'un et ne m'inscrit qu'une seule somme. pouvez-vous m' éclairer et m'apporter votre aide. D'avance merci.

cordialement TreborS Pièce jointe 179355

Bon c'est mieux,

Autres remarques :
- tu as une sub Clignote elle pourrait être dans un module Cependant quel est le rôle exact de cette sub ?

- Apparemment tu ne maitrises pas complètement les formules RechercheV. tu as créés 2 bases de données Une seule suffit comme je te l'ai misdans le document laissé dans un post précedent.
Avec 2 Bases tu multiplis les erreurs possible.

Fait une base avec en première colonne : Nom , en 2ème colonne : le prénom et en 3ème colonne : le lieu

Car tu peux lui demander de ramener la valeur de la 3ème colonne.

J'oublie pas ta demande initiale je reviendrais dessus un peu plus tard (là j'ai gros oulot qui viens de me tomber dessus)

A bientôt

PS: je viens de voir ton dernier post je regarde qd j'ai un moment

Ok, je revoie tout cela.
La SUB clignote sert en fait aux jeunes de ma classe qui prennent les commandes et qui pour la plupart ne savent pas lire correctement de savoir que des personnes n'ont pas payé.
d'où la SUB clignote.

J'attends de tes nouvelles encore merci.

Bonjour Igloobel

j'ai beau chercher la solution mais en vain.
RechercheV me pose toujours problème!!
Là je m'arrache les cheveux!! brrrr
:arf:

Bonjour Igloobel

Je sais qu'il n'est pas très bien vu de demander l'aide d'une personne en particulier, pour résoudre un problème sur le site, mais là je galère ++
J'ai beau chercher moult formules et solutions, je n'y arrive pas.
Alors, j'attends avec impatience de t'es nouvelles.Les formules RECHECHEV ???? impossible de trouver la solution,même en cherchant dans le forum.
D'avance merci
A bientôt je l'espère

T'inquiètes pas je ne t'ai pas oublié ni laissé tombé :mrgreen:

dès que j'ai un moment,ce qui devrait plus tardé (fin dela masse de travail qui m'est tombé dessus), je m'y remet Promis juré :pc:

A+

Bonjour Iglooble,

Je viens juste de rentrer du boulot et vu ton post. Je t'en remercie et je suis un peu plus serein.
A bientôt
:hola:

Bonjour Igloobel,

Ouf, je pense avoir trouvé la solution à mon problème. Peux-tu si tu en à le temps regarder avec ton œil d’expert si la formule que j'ai faite est correcte.
D'avance merci :D

Pièce jointe 181684

Bonjour
plutot

Code:

---

=SOMMEPROD(SOMME.SI(INDIRECT(NomsFeuilles&"!H5:H32");A3;INDIRECT(NomsFeuilles&"!J5:J32")))

---

pour remplacer

Code:

---

=SOMMEPROD(SOMME.SI(INDIRECT(NomsFeuilles&"!H5:H32");"HOCHMANN";INDIRECT(NomsFeuilles&"!J5:J32")))

---

Ce qui permet de tirer la formule vers le bas ou copier-coller et d'eviter de recopier sans arret un nom dans la formule

Bonjour keygen08

Merci de votre réponse, Ok je rectifie :zoubi:

Bonjour TreborS,

Chose promise, chose due :mrgreen:

Désolé d'avoir tardé mais je viens de terminer une serie de recettage (pas prévus). mais avant de prendre une semaine de congé que j'estime mérité je te fait pars de mes suggestions concerant ton classeur.

J'ai beauuuuuucoup réfflechit car il y a vait quelque chose qui me génait et je ne trouvait pas. :koi:

finalement j'ai fini par trouver :twisted:

Tes tableaux, pour être pratique doivent avoir leurs sommes en haut (voir onglet "Archives") avec des volets figés pour avoir toujours une récapitulatif de ce qui a été vendu, encaissé ou en attente de paiement pour tes clients.

Cela permet également de ne pas être limité en nombre de lignes de commandes.

Par rapport a ta demande initiale après mure réflexion je te propose un tableau croisé dynamique (voir onglet "recap(2)")ça a l'air de répondre à ton besoin. Je suis pas contre les macros VBA, loin de là, mais j'estime que quand on peut se débrouiller sans Ben ... on se débrouille sans !

J'ai également repris toutes les formules pour obtenir des résultats plus facile à comprendre et utilisé la formule "RECHERCHEV" à la place de tes "SOMMEPROD" (cela me semble plus adaté).

Enfin j'ai besoin de comprendre la différence entre "Archives" et "Archivage", pourquoi 2 onglets ?

voilà c'est tout pour le moment :salive:

Je te joint ce que j'ai fait et tu me dit ce que en en pense



Pièce jointe 182085



A bientôt

Bonjour Igloobel,

Dans un premier temps, je veux te remercier pour le temps et de l'énergie que tu passes pour trouver une solution à mon problème. :bravo:

Pour répondre à ta question concernant les onglets "ARCHIVES" et " ARCHIVAGES" c'est parce qu'il y a deux ventes différentes.

Voilà je rencontre un autre problème. Le tableau dans l'onglet "ARCHIVES" est très bien pensé, cependant, quand je réactualise la feuille vente pour saisir des nouvelles données et que je l'enregistre dans l'onglet "ARCHIVES" tout est décalé vers le haut dans le tableau récapitulatif qui indique le nombre de ventes, d'impayé etc... ne , je ne comprends pas??

De plus dans l'onglet récap2 toutes les personnes n'ayant pas réglés dans les onglet "ARCHIVES" et "ARCHIVAGE" ne sont pas répertoriés. Y a il des formules qui doivent être retravaillées , je ne sais pas???

Je vais essayé de chercher la cause à tête reposée.

Je te souhaite de bonnes vacances et dans profiter un max pour te reposer.
A bientôt
ci-joint le document

Pièce jointe 182151

Citation:

---

Envoyé par TreborS

... Pour répondre à ta question concernant les onglets "ARCHIVES" et " ARCHIVAGES" c'est parce qu'il y a deux ventes différentes ...

---

Comment ça 2 ventes différentes ? Peux-tu détailler ton processus "Archives" et "Archivage" ?

Citation:

---

Envoyé par TreborS

... Voilà je rencontre un autre problème. Le tableau dans l'onglet "ARCHIVES" est très bien pensé, cependant, quand je réactualise la feuille vente pour saisir des nouvelles données et que je l'enregistre dans l'onglet "ARCHIVES" tout est décalé vers le haut dans le tableau récapitulatif qui indique le nombre de ventes, d'impayé etc... ne , je ne comprends pas??

---

Je pense que cela vient du fait que j'ai ajouté en haut des lignes et donc il ne faut plus commencer en ligne 2. C'est vrai j'ai pas tester tes macros. J'ai rajouter également une colonne pour y insérer la date de l'archivage (qu'il faudra mettre en place par macro)

Citation:

---

Envoyé par TreborS

... De plus dans l'onglet récap2 toutes les personnes n'ayant pas réglés dans les onglet "ARCHIVES" et "ARCHIVAGE" ne sont pas répertoriés. Y a il des formules qui doivent être retravaillées , je ne sais pas??? ...

---

c'est exact je n'ai pris que "Archives" mais avant de modifier j'ai besoin de savoir comment tu archives.

Sinon comme tu as l'air d'aprécier ma suggestion de construction du tableau "Archives" peut-être que l'on l'étendre sur les autres tableau ?

En attendant de te lire

Bonne journée

Salut Igloobel,
Je rentre juste du boulot, pris une bonne douche pour me rafraîchir par cette chaleur.

Bon j'ai fais 2 onglets, "archives" pour l'onglet ventes et l'autre "archivage" pour l'onglet tableau. Mais je pense qu'il serait judicieux cumuler les données des onglets ventes et tableau dans un seul onglet archives.

Effectivement ton idée de placer les sommes en haut est excellente. Je garde :D

Là je vais regarder pour rectifier les macros pour l'onglet archives.

j'attends avec impatience de tes nouvelles en attendant je te souhaite une bonne soirée.

A bientôt

Bonjour,

je reviens de vacances 8-)

j'ouvre ce matin la discution et donc

Citation:

---

Envoyé par TreborS

... Bon j'ai fais 2 onglets, "archives" pour l'onglet ventes et l'autre "archivage" pour l'onglet tableau. Mais je pense qu'il serait judicieux cumuler les données des onglets ventes et tableau dans un seul onglet archives...

---

Donc Oui cent fois Oui cela simplifie nettement ton programme.

Citation:

---

Envoyé par TreborS

...Effectivement ton idée de placer les sommes en haut est excellente. Je garde :D

---

super bon je pense que l'on est sur la bonne voie.

As-tu vu le Userform que j'avais créer pour la saisie d'une vente ? Tu n'en as pas parlé donc c'est, je pense, que tu ne l'as pas vu.

De plus si l'on met "vente" au même format que "Archive" dans ce cas on a toujour de visible les ventes non réglés.

j'ai encore une question je suppose que tu archives en fin de journée, donc comment faire pour régler une facture ancienne ?

à bientôt

Bonjour Igloobel,

J'espère que tu as passé de bonnes vacances. De mon côté c'est pour la semaine prochaine enfin je pars avec mes "élèves" en transfert sur la côte d'opale.

Bon là j'ai eu un long week-end et j'en ai profité pour revoir tout le classeur. Oui j'ai vu le UserForm et je trouve que c'est sympa, j'ai adapté un formule pour qu'a l'ouverture du classeur il apparaît.

Par contre je galère avec le TCD. C'est vrai je ne peux pas conserver les anciennes factures, y-a-t-il une solution pour que je puisse les retrouver.

je te joins le nouveau classeur dis moi ce que tu en pense.
bonne après-midi
Pièce jointe 182962

Bonjour Igloobel,

Tout d'abord, je te souhaite une bonne et heureuse année 2016. Je ne suis pas allé sur le Forum depuis un moment, puisqu'à la dernière discussion un message indiqué que le problème était résolu???? pas vraiment.
Bref, j'ai repensé mon tableau ventes à emporter, pour pouvoir archiver mes données. J'ai comme tu me l'avais conseillé, réaliser un seul onglet archive qui reprend toutes les données des feuilles vente1 et vente2. Voici ce que j'ai fais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim i& Cancel = True If Target.Column = 8 And Cells(Target.Row, 8) > 0 Then i = Feuil4.[A65536].End(xlUp)(2).Row Rows(Target.Row).Copy Feuil4.Rows(i) Rows(Target.Row).EntireRow.Delete End If End Sub   Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim i& Cancel = True If Target.Column = 8 And Cells(Target.Row, 8) > 0 Then i = Feuil4.[A65536].End(xlUp)(2).Row Rows(Target.Row).Copy Feuil4.Rows(i) Rows(Target.Row).EntireRow.Delete End If End Sub   Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then If Cells(Target.Row, 6) = "NON" Then Cells(Target.Row, 8) = "P" ElseIf Cells(Target.Row, 6) = "OUI" Then Cells(Target.Row, 8) = "" End If End If End Sub

---

Seulement, lorsque j'archive, je souhaiterai que la date à laquelle l'enregistrement est fait reste fixe dans le feuille archive, et pouvoir aussi compter le nombre de jours qui sépare les 2 dates. Si je mets la formule: =Si(F9="non";AUJOURD'HUI();") en D6 lorsque j'ouvre le classeur le lendemain la date c'est réactualiser. Donc impossible de compter le nombre de jours qui sépare les 2 dates. Peux-tu si tu as le temps m'éclairer sur le sujet. d'avance merci à bientôt.

Bonne Année à toi également et à tous

Bon cette semaine ce sera un peu compliqué pour te répondre mais je vais voir dès que j'aurais un moment

A bientôt

et puis redonne la dernière version de ton classeur cela aiderai (en tout cas moi cela m'aiderai :mrgreen:)

Bonjour Igloobel,

Je te renvoie la dernière version de classeuhttp://www.developpez.net/forums/r.

Je veux en fait que lorsque j'ouvre le classeur la date de l'enregistrement soit la même.

Je te remercie d'avance

CI-joint le classeur
Pièce jointe 196984

Bonjour Igloobel

Je me permets de te solliciter de nouveau. J'ai trouver un petit truc qui permets de fixer une date dans une cellule: Ctrl "+" ";". ça fonctionne mais pour moi uniquement quand un non est inscrit dans la cellule D6 ? je ne comprends pas.

Par contre, j'ai une autre demande a formuler. Je souhaiterai que lorsque je suis dans la feuille archive et que la personne a payé, et que oui est inscrit en F9:F354, la sonne notée en E4 soit basculée dans la feuille Vente 1 ou 2 et que cette somme se cumule avec celle déjà inscrite en J7 dans une des feuilles Vente. Est-ce possible?
Merci d'avance pour ton aide.

TreborS

Ci-joint le dossier.
Pièce jointe 201444:roll: Je sens que je vais encore me faire gronder par Bill!!

Bonjour,

j'ai pris ton classeur et je regarderais qd j'aurais un moment ce qui n'est malheureusement pas le cas en ce moment :triste:

Mais bon je vais pas me plaindre d'avoir du boulot :lol:

A bientôt

Bonsoir Igloobel

Merci j'attends de tes nouvelles et je vais continué chercher de mon coté.

Bonne soirée et bon courage