XL 2019 excel ne répond pas

[biboune]

bonjour,

dans mon dossier joint, chaque fois que je clique sur le bouton "réinitialiser" de la feuille "grilles", çà tourne sans s'arrêter..... et au bout d'un moment (ne répond pas)
ceci depuis que j'ai inséré des images liées : y aurait-il un lien ? et peut-on le corriger?

merci beaucoup

 

[sylvanu]

Bonjour Biboune,
Votre boucle est extrêmement lente, vous modifiez 36000 cellules dans BefFrm.
J'ai rajouté l'info de progression dans le statusbar, chez moi ça ne se plante pas ... mais ça rame à mort.

For I = 1 To 9000
    For J = 1 To 4
        k = Int((9 * Rnd) + 1)
        If .cells(I, k).Interior.ColorIndex = 4 Then J = J - 1
        .cells(I, k).Interior.ColorIndex = 4
        Application.StatusBar = "I = " & I & "- J = " & J   ' AFFICHAGE DE I et J'
    Next J
Next I

Pour moi c'est cette macro qui fait que ça rame ce n'est pas lié aux images.

 

[biboune]

pourtant quand j'enlève les images liées "reinitialiser" se fait en quelques secondes.
voir ci dessous le fichier sans les images liées.
peut-être une incompatibilité...

 

[sylvanu]

Effectivement, mais ça prends quand même 23s, c'est ce qui m'a échappé. pour moi c'est déjà très très long.
C'est l'évaluation des formules pour les images qui prends beaucoup de temps.
En PJ j'ai contourné le problème en supprimant les formules des images au début et en les rétablissant à la fin, avec :

Sub SupprimeFormuleImage()
    Sheets("tirage").Select
    With Sheets("tirage")
        .Shapes("Image 8").Select
        Selection.Formula = ""
        .Shapes("Image 10").Select
        Selection.Formula = ""
        .Shapes("Image 12").Select
        Selection.Formula = ""
    End With
    Sheets("Grilles").Select
End Sub
Sub FormuleImage()
    Sheets("tirage").Select
    With Sheets("tirage")
        .Shapes("Image 8").Select
        Selection.Formula = "Grilles!$P$3:$P$32"
        .Shapes("Image 10").Select
        Selection.Formula = "Grilles!$P$3:$P$32"
        .Shapes("Image 12").Select
        Selection.Formula = "Grilles!$P$3:$P$32"
    End With
    Sheets("Grilles").Select
End Sub

( ça doit être optimisable, je l'ai fait au plus rapide )
Sur mon PC sans image j'obtiens 22.582s, avec les images "modifiées" 23.089s, donc grosso modo la même chose.

 

[mapomme]

Bonjour à tous,

Sans le cas des images, une méthode de coloriage un peu plus rapide. 6,8 secondes sur ma bécane du boulot.

Sub BefFrm()
   Dim i%, j%, k%, m&, n&, p&, coul(1 To 9), t, aux, deb
   deb = Timer
   Application.ScreenUpdating = False
   For i = 1 To 9: coul(i) = i: Next
   Randomize
   With Worksheets("Grilles").Range("A1:I9002")
      .ClearContents
      .Interior.ColorIndex = xlNone
      t = Range("A1:i9002")
      For i = 1 To 9002
         For p = 1 To 2: For m = 1 To 9: n = 1 + Int(9 * Rnd): aux = coul(m): coul(m) = coul(n): coul(n) = aux: Next m, p
         For p = 1 To 4: t(i, coul(p)) = 1: Next p
      Next i
      .Range("a1").Resize(UBound(t), UBound(t, 2)) = t
      .Range("A1:i9002").SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 4
      .Range("A1:i9002").ClearContents
   End With
   MsgBox Format(Timer - deb, "\ 0.0 sec.")
End Sub

 

[sylvanu]

Bonjour Mapomme,
Sur le fichier du post #4 avec toutes les macros et la votre, sur même PC j'ai 11.542s au lieu de 23.089s.
Pour le moins très appréciable.
Charge à Biboune de concaténer tout ça.

 

[mapomme]

Bonsoir @biboune,

Pour @sylvanu , à tous,

J'ai fait une macro pour construire 3000 grilles de 3 lignes et colorier les cellules vides en vert.
L'exécution est rapide (env 0,4 sec quand tout se passe bien)

Hélas, trois fois hélas!
Quand j’exécute la macro, la fenêtre suivante apparait:

• si on clique sur Continuer, la macro se termine normalement
• si on clique sur Débogage, le point d'arrêt est variable, un appui sur <F5> termine la macro normalement
• si on clique sur Fin, la macro est interrompue mais le résultat est correct ou non
• si on clique sur Aide, ça ne nous aide pas!

1. pouvez-vous tester la macro et me dire si le phénomène d’interruption se produit aussi chez vous ?
2. avez-vous une idée du pourquoi de la chose ?

nota: avant de me lancer dans les paquets de 3 grilles sans doublons (normalement facile à faire avec mon code), je voudrais résoudre ce petit problème.

 

[Jacky67]

Bonsoir @biboune,

Pour @sylvanu :

J'ai fait une macro pour construire 3000 grilles de 3 lignes et colorier les cellules vides en vert (MFC).
L'exécution est rapide (env 0,4 sec quand tout se passe bien)

Hélas, trois fois hélas!
Quand j’exécute la macro, la fenêtre suivante apparait:
Regarde la pièce jointe 1111318

1. Peux-tu tester la macro et me dire si le phénomène d’interruption se produit aussi chez toi ?
2. As-tu une idée du pourquoi de la chose ?

nota: avant de me lancer dans les paquets de 3 grilles sans doublons (facile à faire avec mon code), je voudrais résoudre ce petit problème.

Bonjour à tous
Le classeur de mapomme (#7)testé sur mon vieux Excel 2007 avec windows10
Exécution sans interruption en 0.4 seconde

 

[mapomme]

Bonsoir @Jacky67 ,

Merci d'avoir testé. En plus tu m’annonces une bonne nouvelle

J'ai trouvé un palliatif sur Google qui fonctionne. Ajouter au début du code l'instruction :

Application.EnableCancelKey = xlDisabled

Je ne vois pas ce que cela à voir (du moins logiquement) mais ça fonctionne...
je vais essayer de creuser et de m'attaque au problème des paquets de 3 grilles sans doublons.

 

[mapomme]

Le classeur de mapomme (#7)testé sur mon vieux Excel 2007 avec windows10
Exécution sans interruption en 0.4 seconde

Hé bien le vieux se comporte encore comme un p'titi jeune.

 

[Jacky67]

Bonsoir @Jacky67 ,

Merci d'avoir testé. En plus tu m’annonces une bonne nouvelle

J'ai trouvé un palliatif sur Google qui fonctionne. Ajouter au début du code l'instruction :

Application.EnableCancelKey = xlDisabled

Je ne vois pas ce que cela à voir (du moins logiquement) mais ça fonctionne...
je vais essayer de creuser et de m'attaque au problème des paquets de 3 grilles sans doublons.

Re..
A tout hasard.....
As-tu essayé avec

Application.EnableEvents = False

au lieu de

Application.EnableCancelKey = xlDisabled

Juste pour voir

Hé bien le vieux se comporte encore comme un p'titi jeune.

Re..
Il est comme moi, mon vieux xl

 

[mapomme]

Re @Jacky67,

J'ai redémarré le micro et le phénomène ne se produit plus! C'est aussi bizarre qu'étrange mais c'est tant mieux.

 

[mapomme]

@biboune,

Une version avec aucun doublon par paquet de trois grilles (grilles 1-2-3, grille 4-5-6, etc.)

 

[biboune]

j'ai chargé le fichier de sylvanu cartons2(9). çà ne me gène pas que çà mette une vingtaine de secondes si çà ne bugge pas.
mais maintenant j'ai ma feuille "édition" qui ne fonctionne plus : quand j'appuie sur le numéro de cartons, toutes les cases deviennent bleues.....je ne peux donc plus éditer des cartons!!!???
je ne sais pas ce que vous avez fait car je ne comprends rien à vos macros, n'étant pas assez calée dans VBA.

je vous joints le fichier d'origine avec ce que je voudrais, mais je ne sais pas si c'est possible!

(tant pis si les numéros tirés ne s'affiche pas sur la feuille "tirage")

 

[sylvanu]

Bonjour tout le monde,
@biboune, j'ai retesté le fichier cartons2(9) et chez moi ça marche :

La mise en couleur bleue est faite par MFC, avec :

Normalement elle n'est pas impactée par les macros.