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 Lancer une macro après 3 secondes

Lancer une macro après 3 secondes

7 réponses
Avatar
Michel
Bonsoir
Je désire lancer une macro 3 secondes après une autre.
Merci beaucoup
Michel
Signaler un problème avec ce contenu

7 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
Starwing
Bonjour,

En B1:
=STXT($A$1;COLONNE()-1;1)
Tirer la formule

Starwing
Avatar
Claude Trouet
Bonsoir,
Quelque chose comme ci par exemple :

Sub x()
MsgBox "Procédure 1"
Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro"
End Sub

Sub DeuxièmeMacro()
MsgBox "2ème macro"
End Sub

Est-ce OK ?
CT

"Michel" a écrit dans le message de news:

Bonsoir
Je désire lancer une macro 3 secondes après une autre.
Merci beaucoup
Michel



Avatar
Michel
????

"Starwing" a écrit dans le message de news:

Bonjour,

En B1:
=STXT($A$1;COLONNE()-1;1)
Tirer la formule

Starwing




Avatar
Michel
Merci beaucoup
Parfait

"Claude Trouet" a écrit dans le message de
news: %
Bonsoir,
Quelque chose comme ci par exemple :

Sub x()
MsgBox "Procédure 1"
Application.OnTime Now + TimeValue("00:00:03"), "DeuxièmeMacro"
End Sub

Sub DeuxièmeMacro()
MsgBox "2ème macro"
End Sub

Est-ce OK ?
CT

"Michel" a écrit dans le message de news:

Bonsoir
Je désire lancer une macro 3 secondes après une autre.
Merci beaucoup
Michel







Avatar
Clément Marcotte
bonjour,

Imaginé cela et pas tetesté sommairement;:


Sub test()
Range("a1").Value = FormatDateTime(Time)
'3 = 3 secondes
BreakTime 3
Range("a2").Value = FormatDateTime(Time)
Range("a3").Value = FormatDateTime(Range("a2").Value -
Range("a1").Value)
End Sub


sub BreakTime(delai as single)
'le délai est en secondes
debut = timer
do
loop until timer = debut + delai
end sub




"Michel" a écrit dans le message de
news:
Bonsoir
Je désire lancer une macro 3 secondes après une autre.
Merci beaucoup
Michel




Avatar
Michel
merci beaucoup Clément
Michel

"Clément Marcotte" a écrit dans le message
de news:
bonjour,

Imaginé cela et pas tetesté sommairement;:


Sub test()
Range("a1").Value = FormatDateTime(Time)
'3 = 3 secondes
BreakTime 3
Range("a2").Value = FormatDateTime(Time)
Range("a3").Value = FormatDateTime(Range("a2").Value -
Range("a1").Value)
End Sub


sub BreakTime(delai as single)
'le délai est en secondes
debut = timer
do
loop until timer = debut + delai
end sub




"Michel" a écrit dans le message de
news:
Bonsoir
Je désire lancer une macro 3 secondes après une autre.
Merci beaucoup
Michel







Avatar
sabatier
du grand starwing, en effet....
t'as plus qu'à faire comme la formule, michel : te tirer...
jps

"Michel" a écrit dans le message de
news:
????

"Starwing" a écrit dans le message de news:

Bonjour,

En B1:
=STXT($A$1;COLONNE()-1;1)
Tirer la formule

Starwing