Excel Macro traitement de numéros (suite) :) Résolu

Question

Re-bonjour à tous,

Bon ce matin je me suis un peu égaré et posté mes problèmes dans un mauvais ordre mais on a quand même réussi merci à pijaku,moiced59 et Michel_m et tous les autres pour leur patience. . .bon j'ai pris le temps de bien développer le but de mon fichier et tout et tout j'espere avoir mieux orienté le sujet cette fois:

Alors voilà dans la finalité comment je vois marcher  mon fichier : je l’ouvre, je lance l’USF (il compte les trous) je vois où il y a de la place (dans les serie 8000,9000 . . . ), je demande la première place libre dans la série choisie, je l’utilise il s’ajoute donc dans la liste et à la place correspondante.

Et voilà comment est fait mon fichier :

 J’ai 25 onglets, un qui contient tous les numéros existants (plus trop utile mais bon) et la liste des séries, que j’utilise dans l'USF. Dans chaque autres onglet il y a les numéros triés de chaque série 8000,9000 . . .chacun peut contenir 1000 numéros maxi de 8000 à 8999,de 9000 à 9999 qui seront donc toujours inscrit dans la plage A1 :A1000, le problème c’est que les liste comporte des trous on peut par exemple avoir 8523-8525 (1 saut) ou pire 8523-8533 (10 sauts plus à certain endroits) dans certain onglet j’ai la cellule A1 vide car la liste peut commencé à 8001 ou pire 9400 auquel cas je place le numéro en question à la ligne correspondante A401 pour 9400 par exemple. Le but est d’insérer autant de cellules vides que de numéros manquant entre 2, ensuite c’est là qu’il me faut faire le comptage pour savoir combien de place dispo dans tel ou tel série (via un affichage en TxtBox sur mon USF) et au final j’ouvre mon USF vois qu’il y a de la place en 9000 je demande quel est le premier numéro libre et bam ma macro me le donne (ça j’ai réussi j’ai fai un test) et si je l’utilise et bien crac ça inscrit le numéro à son emplacement le comptage se met à jour une place de moins dans la série des 9000 . 

Voilà n'hésitez pas si besoin plus d'infos. . . .c'est vraiment pas facil d'ecrire ce qu'on a dans la tete :s

Meric d'avance

michel_m · Answer

Ce que tu viens de décrire n'est pas du tout le ou les m^mes problèmes...
Aurait on bosser pour rien ?

informatifien · Answer

non du tous les autres problèmes été le début de mon projet et concerné le meme fichier, mais je m'y été mal pris là je résume le projet le reste est bel est bien réglé grace à vous tous, en faite j'ai tendance à attaquer un truc je me dis comment je fais.... hop j'ai une idée en tete, j'attaque je tombe sur un "os" et je me trouve bloqué j'essaye de le resoudre sur ccm et en attendant je part sur autre chose et je me retrouve bloqué encore une fois j'essaye de ne pas trop vous embéter alors je pose des problèmes au compte goutte alors que je devrais exposer mon projet et demander conseil avant d'attquer comme me la soufflé pijaku. c'est que j'apprend vraiment à l'arrache le VBA, je n'ai suivi aucun cours, je n'ai comme base les seules macro que j'ai dejà faite en partie sur CCM, donc meme si parfois je comprends certain cheminement d'autres me parraisse incomprehenssible. . . .

michel_m · Answer

Donc, on a bien bossé pour rien...malgré les conseils de Pijaku.
Prend pas ca mal, mais tu me fais penser à une abeille contre la vitre....
Si tu veux apprendre commence par des problèmes simples et progresse petit pas par petits pas

si j'ai compris(...) ta demande
TU écris un nombre (peu importe comment)
la partie entière du nombre/1000 te donne le préfixe de ton onglet
les noms d'onglet étant du texte il faut transformer le nombre en "strIng"
sheets(cstr(int(tonnombre/1000))*1000)

la partie décimal du nombre cad le modulo 1 du nombre te donne la ligne du nombre -1 (ligne1 on a 12000 par ex)
donc la ligne est déterminée par
(tonnombre/1000 MOdulo 1)+1

lig=((tonnombre/1000) MOD 1)+1

et tu as donc 
sheets(cstr(int(tonnombre/1000))*1000).cells(lig,1)=tonnombre

non testé

informatifien · Answer

euuuuuh non vous avez pas bossé pour rien j'ai résolu certain des problème et par contre oui le dernier code que tu as posté est arrivé trop tard j'avai "retourné ma veste " à la manière de jacques dutronc lol et pris la décision de faire les choses à la main mais j'ai gardé ton code car je risque de devoir traité une autre extreaction.

pour ce que tu viens de me dire euuuh je t'avourai que j'ai pas compris grand chose, exépté le fait que mon post n'est pas plus clair que les autres :s, car tu n'as (et ne le prned pa smal non plus) apparement pas saisi le truc, et donc histoire de ne pas vous faire bosser pour des pruneaux et de ne pas me retrouver ecrasé sur un carreaux tel une abeille :) je pense que je vais poster le fichier en question ce soir, vous aurez ainsi tout le plaisir de mieux saisir mon objectif. . .

Le menu se lance avec un ptit Ctrl+m je vais mettre un onglet "mode d'emploi" pour refaire un exposé de ce que je recherche . . .

Pour ce qui est de l'apprentissage, ben j'essaye de faire ce qu'on me demande ma situation est "complexe" j'était dans la mécanique, je suis réformé donc dans les bureaux, et ayant fais une formation de technicien d'assistance informatique mes employeur pense que je suis !!""INFORMATICIEN""!! donc je sais faire un jeux video,un logiciel,construire un CPU aussi tant qu'on y est enfin bref . . .plein de bonne volonté j'essaye comme je peux d'arriver à faire les outils qu'on me demande mais je reste conscient que sans CCM (vous) . . . .peux de ces outils marcherai c'est pourquoi je remerci souvent et encore toute la communauté CCM

informatifien · Answer

re bonsoir voilà mon fichier j'espere qu'il vous aidera plus que mes explication. . . .


https://www.cjoint.com/?mEustuddZj

moiced59 · Answer

BON ALLEZ C PARTI JE REGARDE CA§§

moiced59 · Answer

ca avance g presque fini!!!!

informatifien · Answer

nan deja ???? pfiou j'en attendais pas temps ;)

moiced59 · Answer

j suis dessus ya d petit bugg!!

Le Pingou · Answer

Bonjour,
J'ai juste donné un oeil en diagonal et il ressort que les nombres disponibles dans une série semblent correctes.
Par contre la recherche du premier numéro disponible est incorrecte : exemple avec la série 8000, je peux sans autre obtenir des nouveaux numéros de 9000, 9001, 9002, et se qui est faux.
Je ne peux pas en faire plus pour l'instant.

moiced59 · Answer

ca y est g fini!!!!

moiced59 · Answer

voila :
 
http://www.cijoint.fr/cjlink.php?file=cj200912/cijEjXoVr2.xls

je t mis un bouton sur chaque feuille pour executer la macro1 je me suis arreter au 18 

voila bonne nuit dis moi si tu est content?

Le Pingou · Answer

Bonsoir,
Je me suis amusé un peu, je vous laisse la découverte : https://www.cjoint.com/?mExAAHO1nC

informatifien · Answer

Re bonjour le pingou (j'ai répondu à l'autre post), et bonjour moiced59,

 Euh Le Pingou pour votre post N°10 je ne comprend pas j'ai testé chez moi avant d'envoyer et celà marchait et me donnai 8001 en premier numéro dispo. . . donc moi pas comprendre :s après je sais que j'avais le problème quand la cellule A1 été vide ma macro buguée bien entendu. . . .

  Donc pour ce qui est de vos essais étant donné que je suis au travail et que je ne peux pas cjointer et que ce soir j'ai une ptite fete prevu ;) ( vodka malabard,ricard,champagne,bière et je crois qu'il y a mangé. . . lol) je regarderai ça en 2010 maintenant mais je vous remerci déjà à l'avance car je ne doute pas de trouver 2 fichiers fonctionnels et n'aurait plus qu'à choisir lequel me convient le mieux ou prendre un peu des 2 qui sait. . ..

Je vous remerci pour toute l'aide apportée en 2009, vous souhaite un bon réveillon et n'oubliez pas: boire ou conduire il faut choisir moi conduire je trouve ça fatiguant  :)) de plus l'alcool est un ennemi fuire l'ennemi c'est lâche . . . lool

Le Pingou · Answer

Bonjour :
En réponse à ceci : Euh Le Pingou pour votre post N°10 je ne comprends pas j'ai testé chez moi avant d'envoyer et cela marchait et me donnai 8001 en premier numéro dispo . . . donc moi pas comprendre : s
Moi non plus je ne comprends pas pourquoi vous ne poursuivez pas le test plus loin. Ainsi vous constateriez par vous-même et comprendriez l’avertissement de mon  message.

Pour poursuivre dans se sens, sauf erreur de ma part, la proposition de moiced59 ne tiens pas compte des numéros qui peuvent manquer dans une série.

moiced59 · Answer

bonjour 
j'ai regarde ton fichier le pingou tu as fais koi?

informatifien · Answer

pour les fichiers je ne pourrait regarder que demain ou après demain, pour les test je n'ai pas voulu aller trop vite, comme je l'ai dis je part un peu trop vite sur les projets et veux tout faire en meme temps. . . 

et ce par ce que je n'ai aucune bonne base, j'ai demandé une formation à mon taf car je trouve le VBA intéréssant mais dur. . . .que faite vous tous dans la vie? si ce n'est pas indiscret du VBA toute la journée dans une SSII ou dans une société?

moiced59 · Answer

re

moi je travail ds une usine automobile service info mais je ne fé pas du vba tte la journée!!!!!
et toi tu fé koi?

informatifien · Answer

Moi je viens de faire une formation AFPA TAI (Technicien d'Assistance Informatique) niveau BAC mais j'ai repris le taf dans mon ancienne boite (j'etais en CIF) et j'ai pas de poste à l'info il faut le BTS mais comme j'ai des soucis de santé j'ai un poste dans les bureaux techniques maintenant (j'etais dans la mecanique), et on me fais faire des tableaux excel,traiter des bases, un peu de PAO (ca c'est plutot cool j'ai appris le dessin technique sur autocad c'est utile j'ai fais les plan d'un lit mezanine pour moi) et donc amelioré les fichiers de congés, de ceci et de celà mais j'y connaissai absolument rien en VBA il y a quelque mois j'apprend avec vous lol mais c'est chaud quand tu as pas de "methode"

moiced59 · Answer

bah c cool tt ca!!!!

informatifien · Answer

arf ouai ce serai plus cool si une des 17 société auquel j'ai envoyé mon CV d'informaticien voulai bien de moi pour faire un peu de VNC,Windows serveur et tout et tout j'ai quand meme une tite preference pour tous ca . . . .

moiced59 · Answer

bah ouais tu m'etonne !!!!!

moiced59 · Answer

bah g telecharger ton fichier et je ne vois pas t modif ton code ou autre

Le Pingou · Answer

Bonjour moiced59,
Concernant : j'ai regarde ton fichier le pingou tu as fais koi?
Si vous pensez à la recherche du prochain numéro disponible, j’ai procédé comme suit :
Etude de la procédure mise en place par l’auteur afin de comprendre le fonctionnement.
Adaptation de la procédure [CherchePremier()] en une procédure avec argument pour tenir compte de la série en cours ; [CherchePremier(numserie)]. Réaliser une boucle sur la colonne des numéros de série avec un contrôle de la présence/absence du numéro par rapport au compteur de boucle ; ainsi on trouve le numéro disponible dans la série. Note : pour éviter les vides on commence par trier la colonne.

informatifien · Answer

j'ai une question Le pingou vu que je n'ai pas accés au fichier. . . .vous avez procédé de quel façon pour trouver les numéros manquant en insérant des vies? ou plus directement en analysant chaque cellule? je sais pas si ma question est claire . . . .:s

moiced59 · Answer

re

je pensais que tu avais modifier le fichier pour inserer les ligne manquante!!!
tu as modifier les recherche des ligne vide via le formulaire c ca?

Le Pingou · Answer

Bonjour,
Comme expliqué au poste 25 dont voici la procédure:
Sub CherchePremier(numserie)
Dim y As Long
'trier la liste
Columns("A:A").Sort Key1:=Columns(1), Order1:=xlAscending, Header:=xlGuess
For y = 1 To WorksheetFunction.Count(Columns(1))
    If Cells(y, 1) <> numserie + (y - 1) Then
        z = numserie + (y - 1)
        Exit Sub
    End If
Next y
End Sub--

Salutations.
Jean-Pierre

informatifien · Answer

excusez moi Le pingou mais si j'ai demandai c'est par ce que le post 25 ne me parlai pas trop et cuilà pas plus lol car je ne sais déchiffrer le fonctionnement ces enchainement complexe de commande,fonctions,objet et tout et tout je comprend une macro quand il y a plein de commentaire au bout des ligne qui disent des trucs genre:

 'selectionne la cellule A1
'insere la valeur de la variable
'colore l interieur de la cellule

quand il y a ça j'analyse mieux le fonctionnement que là, j'avou avec mon très bas niveau VBAstique dur dur et je m'en excuse . . .et il m'ai plus difficle de reprendre une macro si je ne la comprend pas bien . . . 

Mais celle pour mon fichier de congés été à peu pres comprehenssible et surtout pas trop dur à adapter j'ai fini mon fichier ça marche du tonner et j'ai tout tester merci)

Le Pingou · Answer

Bonjour,
Petite explication pas par pas de la procédure (P = procédure et E = explication) :
P.- Sub CherchePremier(numserie)
E.- nom de la procédure avec argument (numserie) qui récupère le numéro de série de la valeur de la UserForm

P.- Columns("A:A").Sort Key1:=Columns(1), Order1:=xlAscending, Header:=xlGuess
E.- Trier la colonne pour l’ordonner et éliminer les vides éventuels

P.- For y = 1 To WorksheetFunction.Count(Columns(1))
E.- Boucle sur la colonne pour la plage de valeur présente la dernière ligne est trouvé avec ; [WorksheetFunction.Count(Columns(1))]

P.- If Cells(y, 1) <> numserie + (y - 1) Then
        z = numserie + (y - 1)
        Exit Sub
    End If
E.- Contrôle si le numéro de la colonne est différent du compteur 
	Si oui alors on attribue le numéro à la variable [Z] qui sera reprise dans la procédure pour la UserForm.et le [Exit Sub] sort de la procédure puisque le numéro est trouvé
	Si non le [Next y] renvoie au début de la boucle.
Pour finir End Sub.

informatifien · Answer

ah genial merci,ça, ça me plait je comprend mieux sauf la fin mais je regarderai ça avec le fichier en fonctionnement qui finira de m'eclairais et je vous dis si tous ça me vas lundi ou mardi à la rentré car là ça va etre la debauche . . . .et ce soir youhou c'est la fete.

en tout cas merci pour les commentaire ça aide vraiment à comprendre.

Je vous souhaite à tous un bon Réveillon et une bonne année et merci encore pour tous vos efforts.

informatifien · Answer

Salut le pingou, 

Tout d'abord bonne année meilleur voeux à vous tous . . . .

   Bon j'ai regardé ton fichier ce WE ça a l'air d'être ce que j'attendais me reste à le tester au boulot lol mais des reste de nouvel an surement m'ont fait oublier de le prendre au taf . . . .donc je re-vérifi ça demain mais ça avait déjà l'air bien  . . . je vous tiens au courant


Merci

informatifien · Answer

Bon impeccable Le Pingou merci beaucoup ça marche au poil tout est ok merci merci

Excel Macro traitement de numéros (suite) :) - Page 2

Discussions similaires

Newsletters