Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro au comportement qui me semble énigmatique

Macro au comportement qui me semble énigmatique

5 réponses
Avatar
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
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" a écrit dans le message de groupe de discussion :

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
Avatar
isabelle
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





Avatar
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 ?

Serge


"michdenis" a écrit dans le message de news:
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" a écrit dans le message de groupe de discussion :

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



Avatar
Modeste
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)))
Avatar
garnote
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