Macro au comportement qui me semble énigmatique

Le
garnote
Bonjour,

Sur ma machine, cette macro prend 25 secondes
à s'exécuter, une page blanche plein écran apparaît
durant l'exécution et suite au message indiquant le
temps requis, je clique sur OK et une boîte de
dialogue apparaît : Exécution interrompue.
Si je clique sur Fin, elles s'arrête enfin et si je
clique sur Débogage, elle me renvoie sur End Sub.
Classeur 2007 enregistré en Mode de compatibilité.

Sub motif()
t1 = Time
With Sheets.Add
.Cells.ColumnWidth = 0.83
.Cells.RowHeight = 7.5
End With
Application.ScreenUpdating = False
For i = 1 To 63
For j = 1 To 63
Cells(i, j).Interior.Color = i Or j
Next j
Next i
Application.ScreenUpdating = True
MsgBox Format(Time - t1, "hh:mm:ss")
End Sub

Comment expliquez-vous ce comportement
et puis-je accélérer cette macro ?

Serge
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #18683511
As-tu toujours le même problème avec ça ?

Sub motif()
t1 = Time
Application.ScreenUpdating = False
With Sheets.Add
.Cells.ColumnWidth = 0.83
.Cells.RowHeight = 7.5
For i = 1 To 63
For j = 1 To 63
.Cells(i, j).Interior.Color = i & j
Next j
Next i
End With
Application.ScreenUpdating = True
MsgBox Format(Time - t1, "hh:mm:ss")
End Sub




"garnote"
Bonjour,

Sur ma machine, cette macro prend 25 secondes
à s'exécuter, une page blanche plein écran apparaît
durant l'exécution et suite au message indiquant le
temps requis, je clique sur OK et une boîte de
dialogue apparaît : Exécution interrompue.
Si je clique sur Fin, elles s'arrête enfin et si je
clique sur Débogage, elle me renvoie sur End Sub.
Classeur 2007 enregistré en Mode de compatibilité.

Sub motif()
t1 = Time
With Sheets.Add
.Cells.ColumnWidth = 0.83
.Cells.RowHeight = 7.5
End With
Application.ScreenUpdating = False
For i = 1 To 63
For j = 1 To 63
Cells(i, j).Interior.Color = i Or j
Next j
Next i
Application.ScreenUpdating = True
MsgBox Format(Time - t1, "hh:mm:ss")
End Sub

Comment expliquez-vous ce comportement
et puis-je accélérer cette macro ?

Serge
isabelle
Le #18683481
salut Serge,

elle ne prend que le temps 0 pour s'exécuter sur mon poste,
peut être que ton pc a besoin d'un reboot,

isabelle

garnote a écrit :
Bonjour,

Sur ma machine, cette macro prend 25 secondes
à s'exécuter, une page blanche plein écran apparaît
durant l'exécution et suite au message indiquant le
temps requis, je clique sur OK et une boîte de
dialogue apparaît : Exécution interrompue.
Si je clique sur Fin, elles s'arrête enfin et si je
clique sur Débogage, elle me renvoie sur End Sub.
Classeur 2007 enregistré en Mode de compatibilité.

Sub motif()
t1 = Time
With Sheets.Add
.Cells.ColumnWidth = 0.83
.Cells.RowHeight = 7.5
End With
Application.ScreenUpdating = False
For i = 1 To 63
For j = 1 To 63
Cells(i, j).Interior.Color = i Or j
Next j
Next i
Application.ScreenUpdating = True
MsgBox Format(Time - t1, "hh:mm:ss")
End Sub

Comment expliquez-vous ce comportement
et puis-je accélérer cette macro ?

Serge





garnote
Le #18683801
Aucun probème, absolument aucun problème et 2 secondes pour obtenir ton motif.
Mais en essayant à nouveau ma macro, elle fonctionne parfaitement et en 2 secondes aussi.
Allez savoir pourquoi ?

Serge


"michdenis"
As-tu toujours le même problème avec ça ?

Sub motif()
t1 = Time
Application.ScreenUpdating = False
With Sheets.Add
.Cells.ColumnWidth = 0.83
.Cells.RowHeight = 7.5
For i = 1 To 63
For j = 1 To 63
.Cells(i, j).Interior.Color = i & j
Next j
Next i
End With
Application.ScreenUpdating = True
MsgBox Format(Time - t1, "hh:mm:ss")
End Sub




"garnote"
Bonjour,

Sur ma machine, cette macro prend 25 secondes
à s'exécuter, une page blanche plein écran apparaît
durant l'exécution et suite au message indiquant le
temps requis, je clique sur OK et une boîte de
dialogue apparaît : Exécution interrompue.
Si je clique sur Fin, elles s'arrête enfin et si je
clique sur Débogage, elle me renvoie sur End Sub.
Classeur 2007 enregistré en Mode de compatibilité.

Sub motif()
t1 = Time
With Sheets.Add
.Cells.ColumnWidth = 0.83
.Cells.RowHeight = 7.5
End With
Application.ScreenUpdating = False
For i = 1 To 63
For j = 1 To 63
Cells(i, j).Interior.Color = i Or j
Next j
Next i
Application.ScreenUpdating = True
MsgBox Format(Time - t1, "hh:mm:ss")
End Sub

Comment expliquez-vous ce comportement
et puis-je accélérer cette macro ?

Serge



Modeste
Le #18686781
Bonsour® garnote

Aucun probème, absolument aucun problème et 2 secondes pour obtenir
ton motif.
Mais en essayant à nouveau ma macro, elle fonctionne parfaitement et
en 2 secondes aussi.
Allez savoir pourquoi ?



enigmatique ????
le motif est sensé représenter quoi ???
;o)))
garnote
Le #18687091
le motif est sensé représenter quoi ???

Aucune idée ;-)
Après avoir vraiment compris le fonctionnement du n1 Or n2,
je me suis rappelé qu'on pouvait générer des fractales
avec des fonctions logiques.
J'ai donc essayé cette patente-là pour voir ce qui arriverait.

Serge
Publicité
Poster une réponse
Anonyme