Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

Macro plus lente

Le
É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
_______________________________
Lire les 3 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
anonymousA
Le #1970241
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
_______________________________




Répondre en citant
Érico
Le #1970181
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" 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
_______________________________






Répondre en citant
anonymousA
Le #1970071
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" 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
_______________________________











Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme