IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

freiner l'exécution d'un projet contenant des shapes


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2019
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 83
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Juillet 2019
    Messages : 46
    Par défaut freiner l'exécution d'un projet contenant des shapes
    bonjour à tous,
    grâce aux bons conseils d'intervenants, j'ai réalisé un code pour automatiser le jeu des tours de Hanoï.
    tout va bien, si je fais le défilement au pas à pas. aucun bog.
    si je lance en direct, je n'ai pas le temps de voir ce qui se passe et j'arrive sur l'écran final avec les tours
    à la bonne place, et le message "voulez-vous rejouer?"
    au chrono moins d'1mn pour 12 disques, 4095 mouvements.
    j'aimerai bien voir les disques évoluer d'une tour à l'autre,.. m'enfin !.
    la boucle for...next de 1 à 1.000.000 ne change rien. problème de localisation de cette boucle?
    je recherche à nouveau des conseils
    cordialement
    Lam83

    PS : je ma plante pour passer du code. Où est la méthode sur le forum? merci.

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Bonjour,

    PS : je ma plante pour passer du code. Où est la méthode sur le forum? merci.
    Dans votre prochaine réponse, collez votre code, sélectionnez-le entièrement puis, cliquez sur l'icône la plus à droite "#" balise de code

    D'après vos dires, avant la temporisation, écrivez cette ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.ScreenUpdating = True
    puis celle-ci après la remporisation
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.ScreenUpdating = False

    Cdlt

  3. #3
    Membre averti
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2019
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 83
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Juillet 2019
    Messages : 46
    Par défaut
    Bonjour Arturo83,
    merci pour l'utilisation de la balise de code.
    mais pour la tempo j'ai fait plusieurs essais, sans succès
    j'ai placé avant et après la sub Tempo vos lignes de code proposées
    cette Tempo intervient à chaque appel de deplacement, ça devrait ralentir, mais rien!
    ai-je mal compris?
    puis-je passer un bout de code des essais?
    merci d'avance
    Lam83

  4. #4
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 247
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 247
    Par défaut
    hello,
    Citation Envoyé par Lam83 Voir le message
    Bonjour Arturo83,
    j'ai placé avant et après la sub Tempo vos lignes de code proposées
    cette Tempo intervient à chaque appel de deplacement, ça devrait ralentir, mais rien!
    ta tempo m'inquiète ! montres-nous le code où elle est utilisée.

    Ami calmant, J.P

  5. #5
    Membre averti
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2019
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 83
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Juillet 2019
    Messages : 46
    Par défaut
    bonjour à tous,
    je vous passe le bout de code de mon projet.
    j'évite ttes les procédures de debut, fin, comptage, qui sont basiques et n'interviennent très peu.
    le coeur du projet tient sur les déplacements des tours de Hanoï.
    merci.
    Lam83
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub tempo()
    Dim j As Double
    For j = 1 To 1000000
    Next
    End Sub
    '**************************************************
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    Sub deplace(X, Z, n)
    Dim Gr As String
     
    Application.ScreenUpdating = True
       tempo
    Application.ScreenUpdating = False
     
    Gr = X & Z
    Select Case Gr
       Case "AB"
          lever_A n
          deplmt 305, n
          poser_B n
       Case "AC"
          lever_A n
          deplmt 610, n
          poser_C n
       Case "BC"
          lever_B n
          deplmt 305, n
          poser_C n
       Case "BA"
          lever_B n
          deplmt -305, n
          poser_A n
       Case "CA"
          lever_C n
          deplmt -610, n
          poser_A n
       Case "CB"
          lever_C n
          deplmt -305, n
          poser_B n
    End Select
    nbcoups cpt
    End Sub
     
    Function nbcoups(k)
       Range("H3").Value = k
       k = k + 1
    End Function
    Sub jouer(n)
       HanoiJ n, "A", "B", "C"
    End Sub
     
    Function HanoiJ(n, X, Y, Z)
       If n = 1 Then
          deplace X, Z, n
       Else
          HanoiJ n - 1, X, Z, Y
          deplace X, Z, n
          HanoiJ n - 1, Y, X, Z
       End If
    End Function

  6. #6
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    A la place de votre tempo, essayez ceci


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Application.ScreenUpdating = True
    Application.Wait Now + TimeValue("00:00:10") 'tempo de 10 secondes
    Application.ScreenUpdating = False

Discussions similaires

  1. Réponses: 2
    Dernier message: 28/03/2011, 10h42
  2. [MySQL] Enregistrer en BDD une requête Mysql contenant des variables PHP puis l'exécuter
    Par ChriGoLioNaDor dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 19/11/2009, 02h13
  3. Jar exécutable d'un projet contenant d'autres jars
    Par a tunar with no tune dans le forum Langage
    Réponses: 4
    Dernier message: 14/12/2007, 12h12
  4. [Debutant] Exécution d'un batch contenant des chemins relatifs
    Par Goupsy dans le forum VB 6 et antérieur
    Réponses: 11
    Dernier message: 14/12/2007, 10h31
  5. Créer jar exécutable d'un projet contenant d'autres jar
    Par a tunar with no tune dans le forum Eclipse Java
    Réponses: 1
    Dernier message: 14/12/2007, 00h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo