Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro plus lente

Macro plus lente

3 réponses
Avatar
Érico
Bonjour,

Comment je pourrais rendre la macro suivante plus lente pour que les gens
puisse le voir?

Merci
Érico
_________________________________
'
' Touche de raccourci du clavier: Ctrl+n
'
Range("M119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("N119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("O119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("N159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("P159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O191").Select
ActiveCell.FormulaR1C1 = "33000"
Range("L118").Select
End Sub
_______________________________
Signaler un problème avec ce contenu

3 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
anonymousA
re,

utiliser wait ou faire des boucles For longues entre chacune de tes
formules, pourquoi pas ?

A+

Bonjour,

Comment je pourrais rendre la macro suivante plus lente pour que les gens
puisse le voir?

Merci
Érico
_________________________________
'
' Touche de raccourci du clavier: Ctrl+n
'
Range("M119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("N119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("O119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("N159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("P159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O191").Select
ActiveCell.FormulaR1C1 = "33000"
Range("L118").Select
End Sub
_______________________________




Avatar
Érico
Je ne peux pas mettre de ce genre-là?


_______________________________________
Sub lent()
txt = "bonjour les amis, je m'appelle 2 de tension, et
j'ai le cerveau lent !!"
For i = 1 To Len(txt)
Range("A1") = Range("A1") & Mid(txt, i, 1)
For j = 1 To 10000000: Next
Next
_______________________________________
Merci


"anonymousA" a écrit dans le message de
news:421a2eca$0$3146$
re,

utiliser wait ou faire des boucles For longues entre chacune de tes
formules, pourquoi pas ?

A+

Bonjour,

Comment je pourrais rendre la macro suivante plus lente pour que les
gens


puisse le voir?

Merci
Érico
_________________________________
'
' Touche de raccourci du clavier: Ctrl+n
'
Range("M119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("N119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("O119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("N159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("P159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O191").Select
ActiveCell.FormulaR1C1 = "33000"
Range("L118").Select
End Sub
_______________________________






Avatar
anonymousA
pourquoi pas, c'est pas mal !!!


A+

Je ne peux pas mettre de ce genre-là?


_______________________________________
Sub lent()
txt = "bonjour les amis, je m'appelle 2 de tension, et
j'ai le cerveau lent !!"
For i = 1 To Len(txt)
Range("A1") = Range("A1") & Mid(txt, i, 1)
For j = 1 To 10000000: Next
Next
_______________________________________
Merci


"anonymousA" a écrit dans le message de
news:421a2eca$0$3146$

re,

utiliser wait ou faire des boucles For longues entre chacune de tes
formules, pourquoi pas ?

A+


Bonjour,

Comment je pourrais rendre la macro suivante plus lente pour que les



gens

puisse le voir?

Merci
Érico
_________________________________
'
' Touche de raccourci du clavier: Ctrl+n
'
Range("M119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("N119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("O119").Select
ActiveCell.FormulaR1C1 = "150000"
Range("N159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("P159").Select
ActiveCell.FormulaR1C1 = "100000"
Range("O191").Select
ActiveCell.FormulaR1C1 = "33000"
Range("L118").Select
End Sub
_______________________________