Macro excel : optimisation de code et création Fermé

Question

Bonjour,

J'ai commencé un projet sous VBA que j'ai bientôt terminé. Pour autant, j'ai besoin d'optimiser certains bouts de codes. 

J'aurais besoin de qqn qui pourrait m'aider et que je pourrais contacter par téléphone pour lui expliquer et répondre aux questions en direct. Je pense qu'il y en a pour une ou deux heures. Je ne peux pas mettre le fichier en ligne car c'est un peu confidentiel. 

Donc voila si quelqu'un s'y connait bien en macro et à un peu de temps à me consacrer je suis preneur. (bien sur une contrepartie pourra être fournie.

skk201 · Answer

Apparement personne ne veut te faire des coups de fil.

Un suivi par message privé serait pas suffisent à ton avis ?

Chris 94 · Answer

Bonjour,

CCM est un forum où on expose publiquement ses problèmes pour obtenir
 une assistance publique, visible de tous et gratuite .

skk201 · Answer

HS // Actuellement dans la charte :

"Les propositions d'aide par messagerie privée ou en prise de contrôle à distance ne sont pas permises sur le forum et les intervenants verront leurs messages supprimés. Exception faite des intervenants certifiés ccm dans le cadre d'un suivi de dossier et de besoin de numéro confidentiel ; le reste de la discussion devant se poursuivre sur le forum."

On parle ni du fait que l'assistance est gratuite, ni qu'elle est visible de tous :)

Chris 94 · Answer

Comme tu dis :
Les propositions d'aide par messagerie privée ou en prise de contrôle à distance ne sont pas permises sur le forum...
D"ailleurs tu notes aussi, plus exactement tu copies à la suite :
...les intervenants verront leurs messages supprimés.

Ce n'est donc pas HS, ni ta proposition (mail) avant ta correction de 11 h 24, ni celle d'après ne sont conformes à la charte.

Merci de ne pas insister sur cette vois glissante.

skk201 · Answer

Oui par mail je pensait message privé :)

Mais per message privé c'est pas interdit ? Je pense que par messagerie privé ça sous-entend plutôt  MSN, facebook, etc. ?

Chris 94 · Answer

Dernière explication :
Toute proposition d'aide privée que ce soit par MP sur CCM, par mail, par téléphone, par WLM, FB, Twitter ou avec des tam-tams est prohibée. Le but de CCM est de mettre l'aide à la disposition du plus grand nombre.

skk201 · Answer

Alors James405 est-ce que tu peux nous donner plus d'information par rapport é ton code ?

A ton avis qu'est-ce qui n'est pas optimal ?

james405 · Answer

Ok dsl ... Je vais mettre de demain un fichier bien modifier pour ne pas avoir d'info confidentielle dedans ... 

J'ai 5 soucis de code et je vais commencer par le premier qui est d'optimiser le bout de code du commande bouton 2 qui fait une quadruple boucle sur des tableaux de données pré enregistrée ... La macro met 30 secondes a s'exécuter et c'est vraiment trop ... Je met le fichier en ligne tard ce soir ou demain ... Désole je ne pensais pas enfreindre les règles ...

james405 · Answer

Bon je le fais maintenant du coup !! :) 

Pour expliquer le principe de l'outil assez rapidement : 

    C'est un outil qui permet de faire des budget et planning de travaux. quand on arrive sur l'outil, on saisit les informations du chantier. Ensuite on saisit des taches comme terrassement remblais... Quand je saisis une tache j'y affecte des ressources !! Ensuite je fais la même chose pour chaque tâche.. Ce n'est pas très clair mais vous comprendrez en regardant l'exemple mis dans l'outil. Pour tester la lenteur de la macro il suffit de charger l'exemple (pour cela clic sur recherche, puis chantier test puis charger puis edition :) ) c'est cette macro qui prend bcp trop de temps a mon gout ! 

https://www.cjoint.com/?DECvJJSkd47

Bon n'hesitez pas si vous avez des questions je serai très réactif, (et vous en aurez je pense). le code est assez basique mais si je peux faciliter la compréhension ...

Voila le fautif !!!



 For lig = 6 To 216 'On boucle sur toutes les lignes de la feuille BudgetPlan
     
            'On boucle sur toutes les colonnes de la feuille BudgetPlan
            For Col = 8 To drcol
                'on remet la quantité à 0
                qtte = 0
                'On boucle sur toutes les lignes de la feuille "plan" (même nbre de colonne que BudgetPlan)
                For j = 6 To 216
                    'Si la cellule est colorée alors
                    If .Cells(j, Col).Interior.ColorIndex = 15 Then
                        'on boucle sur notre tableau de données
                        For i = LBound(TblDonnees, 2) To UBound(TblDonnees, 2)
                            'si on trouve la tache et la désignation dans la même ligne du tableau, on ajoute la quantité
                             If TblDonnees(1, i) = Feuil10.Cells(j, 2) And TblDonnees(4, i) = Feuil10.Cells(lig, 2) Then qtte = qtte + CInt(TblDonnees(5, i))
                                 
                        Next i
                    End If
                Next j
       
                   .Cells(lig, Col) = qtte
                   
                If fourn = True Then Exit For
            Next Col
        
    Next





Merci pour votre aide :)

Maurice · Answer

Bonjour
Ses jolie mes on peut rien voir car il manque le mot de passe
Et on ne peut rien voir


A+
Maurice

james405 · Answer

admin le mot de passe.

Maurice · Answer

re
la feuille "BudgetPlan" est vide
la feuille "plan" est vide
il manque par mal de chose dans la macro HI

A+
Maurice

james405 · Answer

Oui les deux feuilles sont vides j'ai peur de les supprimer elles me servaient au départ mais plus maintenant .. Pour la macro tout y es ... Pk dis tu qu'il en manque ?

Maurice · Answer

re

Sub TestOnglet()
'Plein de correction a faire
'With Sheets(3) 'Feuille "plan" pas bon
'car si on deplace Onglet ca ne marche plus ou si on change le nom de l'onglet
'Mettre With Sheets(Feuil3.Name) ou With Feuil3
' en gros il faut tous revoir
   With Feuil3
      .Select
      .Unprotect "admin"
      .Range("A2:BZ" & Rows.Count).Clear
      .Cells.Interior.ColorIndex = xlNone
      .Protect "admin", True, True, True, True, True, True
   End With
End Sub

A+
Maurice

james405 · Answer

Merci pour ton aide maurice mais ces feuilles ne me servent plus ... L'optimisation de code dont j'ai besoin concerne la macro du commande Bouton 22 de l'user form 1...

Maurice · Answer

Re
je ne trouve pas le bouton CommandButton22 dans UserForm1

A+
Maurice

james405 · Answer

command bouton 2...

gbinforme · Answer

Bonjour,

Ton code est foisonnant et donc ce n'est pas étonnant qu'il prenne du temps. 
Dans la portion que tu vises, tu peux mettre ta feuille10 en tableau ainsi que les cellules en couleur, cela devrait améliorer.
Il faudrait des heures pour rentrer dans ta logique car même si les fonctions sont basiques, leur combinaison ne l'ai pas tellement même si pour toi c'est évident.
Pour améliorer la vitesse, il faudrait à mon avis constituer les fonctions de base par une procédure spécifique, puis les appeler à bon escient : cela s'appelle fonctionner en objet.
Voilà ma réflexion et il est très difficile d'aller modifier 2000 lignes de code écrites par un autre.

james405 · Answer

Quand je le test par segment cet seulement la quadruple boucle qui prend tout le temps le reste prends deux secondes ... Les données sont stocké dans des tableaux et je boucle ces tableaux et mes cellules ... Il y a bien un petit moyen de faire mieux sur ces dix lignes de code. Le reste je gère a peu près

james405 · Answer

Lol le code prend cb de temp pour toi ? J'ai moi il prend 32 secondes dont 27 uniquement dans ma quadruple boucle

james405 · Answer

Pour info j'ai juste besoin qu'il prenne moins de 30 secondes ...

james405 · Answer

Autant pour moi 7 secondes si j'enlève la boucle.. Le problème vient que je test sur une plage trop grande a savoir 90 jours systématiquement il faut que je réduis la plage de test en fonction de la durée totale du chantier je pense mais je ne trouve pas le bout de cod qui correspondrait a tester sur x colonnes x étant la durée totale de mon chantier !

gbinforme · Answer

Bonjour, 

Avec quelques modifications ciblées sur 'CommandButton2', voici ton classeur :

https://www.cjoint.com/?DFbkn6qhnrw 

Comme c'est impossible de modifier un code dont l'on ne connait pas la finalité, je me suis contenté de cibler ce qui me paraissait 'chronivore' et de rectifier tes with assez fantaisistes. Dans ta 'boucle piquée' j'ai aussi évité l'accès inutile à la feuille.

james405 · Answer

Ok je regarde merci !!

james405 · Answer

Un énorme merci gbinforme !!!!! Il faut que ca ne modifie rien sur mes autres macro mais le résultat est impressionnant !!!! il s'éxécute en 4s :!!!

james405 · Answer

Un énorme merci gbinforme !!!!! Il faut que je vérifie que ca ne modifie rien sur mes autres macro mais le résultat est impressionnant !!!! il s'éxécute en 4s :!!!

Erreur de frappe dans le mess précédent. 

J'ai regardé et je ne vois pas de modifications sur le reste ! donc c'est parfait, Voila pour l'optimisation ! Tu aurais un peu de temps pour regarder les bouts de code que je dois créer ?

james405 · Answer

Bon j'explique ce qu'il me faudrait :

            1) Alors quand je suis sur la feuille planning remplie (celle qui sort avec edition),  il faudrait que je puisse avancer et reculer des tâches en faisant un clic droit (j'ai qqch de créer dans les modules appelé sub avance et recul que pijaku m'avait crée), il faudrait l'adapter a ma nouvelle feuille. Le but est de pouvoir superposer les tâches et que ça additionne les personnel/matériel/fournitures. Je mexplique. Je veux pouvoir décaler les tâche et les superposer. Je met un exemple de ce que j'aimerais.  

https://www.cjoint.com/?DFboJWpF7tO

l'idée est de pouvoir faire comme sur l'exemple dans tous les sens.

gbinforme · Answer

Bonjour,

J'ai regardé et je ne vois pas de modifications sur le reste ! 

Tu demandes une optimisation sur 'CommandButton2' : je n'ai touché que cela bien sûr comme j'avais dit.

j'explique ce qu'il me faudrait 

Strictement rien compris : tu veux décaler les valeurs H:M ? Sur une seule ligne ?

james405 · Answer

Voici mon ancien fichier ou la macro fonctionnait  :

https://www.cjoint.com/c/DFbtvsENxyG

Sur ce modèle charge le chantier strasbourg, puis clic sur édition. Tu arrives alors sur un planning. Dans ce planning fait un clic droit a gauche d'une des cellules coloré en gris et clic sur avancer. Tu vas voir que le début de la tache se décale vers la gauche. Cela permet de réduire la durée du chantier. 
Exemple, jai deux tache de deux jours. 

La premiere commence donc jour 1 et la deuxieme jour 3. Si je veux que la deuxième commence le jour 2, je voudrais pouvoir le faire par un clic droit et avancer (comme sur l'ancien fichier que je viens de te donner).

tu veux décaler les valeurs H:M ? Sur une seule ligne ?

Non je veux pouvoir le faire sur une même colonne ! je te remet un exemple plus compréhensible ici : 

Schéma de ce que je souhaite 

https://www.cjoint.com/?DFbtSsCRtAK

james405 · Answer

J'espere que tu comprendras mieux sur mon schéma, ce n'est pas évident à expliquer alors que c'est juste l'addition de deux colonnes avec un decalage du coloriage gris.

james405 · Answer

Je suis totalement d'accord avec toi mais je n'ai pas le choix du logiciel ... Oui l'idée est de pouvoir additionner les colonnes et de pouvoir le faire dans tous les sens ... 

Pour les x, si un x est présent sur une des colónes que l'on additionne , on garde un seul x ... 

Si ce n'est pas possible ou trop long on passe au point suivant ..

james405 · Answer

Ok pour l'hypothèse deux ! Pas grave si je reste bloque a 1 colonne ça sera suffisant pour ma présentation .. Non on ne réduit pas a droite la plage des 90 jours Max de budget devra reste valable !

gbinforme · Answer

Bonjour, 

Est-ce ce que tu attends ?

https://www.cjoint.com/?DFgtgES8g7J

james405 · Answer

Bonjour Gbinforme,

J'aime l'idée de la macro en clic droit, mais pour la macro, je ne cherche pas a réduire la durée d'une tâche comme le fait la macro actuellement. Je cherche a faire de la superposition de tâche. ( en aucun cas je ne modieferai de durée de tâche sur le planning, e le ferai dans le usf1.

Donc pour repartir de ce que tu as fais (chantier test 2) :
Quand je fais clic droit "avancer" sur la cellule J7, ce sont les colonnes J et K qui doivent s'additionner et non pas J et I. De plus comme j'avance le début de la tâche momo dans ce cas la, cela signifie que je veux la démarrer alors que la tache fbngbn n'est pas fini, donc les cellules J7 et J6 seront toutes les deux colorés en gris. 

Merci,

James 405

gbinforme · Answer

Bonjour, 

C'est bien ce que je pensais :
- tes explications ne correspondaient pas à ce que tu voulais.
- ton schéma est complètement faux car ce n'est pas la colonne M qui a disparu mais celle qui est entre le jour 2 et 4.
- si tu veux avancer une tache, ce n'est pas la colonne qu'il faut bouger mais la ligne choisie sauf que les données de la ligne choisie sont éparpillées sur un tas de lignes.

Comment veux-tu que l'on encode quelque chose de correct avec un cahier des charges totalement incohérent ?

D'autre part tu n'as rien précisé pour reculer mais si c'est aussi ésotérique l'on est pas au bout des surprises !
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry

james405 · Answer

désolé, je vois ce que je veux mais en codage, je ne sais pas comment le faire et quel terme utilisé pour être précis... Mais maintenant je comprends ce que tu veux dire quand tu parlais de raisonner par ligne. Donc j'avance ma tache sur la ligne et toutes les lignes qui suivent sur la feuille doivent faire de même et s'additionner. 

C'est possible ou pas ?

james405 · Answer

Pour reculer c'est le même principe que pour avancer mais dans l'autre sens ... Je dois pouvoir retrouver mes quantité de départ si j'avais avancé ( c'est ton bouton revenir en fait:) 

--

gbinforme · Answer

Bonjour, 

Pour reculer c'est le même principe que pour avancer mais dans l'autre sens 

Soit tu es de Lapalisse, soit tu veux me chambrer mais en tout cas cela ne fait pas avancer d'un poil la compréhension. Si tu vends ton classeur avec de tels sophismes tu vas indisposer les examinateurs...

Enfin tant pis, il faut faire avec puisque toi "tu vois ce que tu veux", voici ton classeur :

https://www.cjoint.com/?DFjj6kiiKuY

james405 · Answer

Ok je regarde et je te prépare un cahier des charges pour les derniers points 

--

james405 · Answer

Bonjour et merci, 

Voila mes deux derniers points. J'ai écouté tes conseils, et j'espere être plus clair. 

https://www.cjoint.com/?DFjmV6Swcbu

Voila les explications. J'espère avoir pensé à tout.

Merci,

jérémy

gbinforme · Answer

Bonjour, 

. J'aimerais pouvoir y saisir des chiffres a virgule, et notamment le 0.5
 
Au lieu d'utiliser la fonction CInt, tu aurais pu rechercher dans l'aide une fonction qui prend en compte les décimales comme CDbl : la touche F1 est beaucoup plus rapide qu'une recherche ou une demande sur un forum !
En fonction des paramètres régionaux, il se peut que l'on ne puisse pas saisir 0.5 mais éventuellement 0,5. Cependant rien ne t'empêche de remplacer le point par la virgule avant de récupérer.

En ce qui concerne ton deuxième point, le forum est fait pour dépanner et ne peut servir à fournir un travail de S2I bénévolement. Je te conseille donc de réaliser ton formulaire et si tu as des soucis particuliers, le forum t'aidera à les résoudre.

james405 · Answer

J'ai déjà essayé avec e déclarant avec Cint, mais j'ai une erreur de dépassement de capacité qui apparait.

S'il n'y a que ca, je peux rénumérer pour le 2eme point

Macro excel : optimisation de code et création

42 réponses

Discussions similaires