msgbox temporisé

Bonjour,

http://cjoint.com/?jEkAdWPKqr

solution 1:
Auto-close Form

Public prochain
Sub essai()
UserForm1.Show
End Sub

Sub CloseForm()
On Error Resume Next
Application.OnTime prochain, "CloseForm", schedule:=False
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
prochain = Now + TimeValue("00:00:5")
Application.OnTime prochain, "CloseForm"
End Sub

Solution2: Shape

Sub essaiShape()
ActiveSheet.Shapes("monshape").Visible = True
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now())
+ 5)
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

Bonjour,

Est-il possible de temporiser l'affichage d'un msgbox pendant 3 secondes
(par ex.) pour éviter à l'utilisateur de cliquer sur "Ok" ?

Merci d'avance pour vos (éventuelles) réponses ;-)

JP

Merci !

J'aime bien la solution 2, mais je pense qu'il n'est pas possible d'avoir
dans ce "shape" un msg équivalent à : MsgBox "Bonjour Toto !" & Chr(10) &
Chr(10) & "Nous sommes le " & LaDate & Chr(10) & Chr(10) & "Il est " &
Format(LHeure, "hh:mm"), vbOKOnly + vbInformation, "hello"

?

PS : Ton shape = zone de texte de wordArt ? Une fois crée sur la feuille, je
ne me souviens plus comment on lui attribue le nom !

A+ ?

JP

http://cjoint.com/?jEkAdWPKqr

solution 1:
Auto-close Form

Public prochain
Sub essai()
UserForm1.Show
End Sub

Sub CloseForm()
On Error Resume Next
Application.OnTime prochain, "CloseForm", schedule:úlse
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
prochain = Now + TimeValue("00:00:5")
Application.OnTime prochain, "CloseForm"
End Sub

Solution2: Shape

Sub essaiShape()
ActiveSheet.Shapes("monshape").Visible = True
Application.Wait TimeSerial(Hour(Now()), Minute(Now()),
Second(Now()) + 5)
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

Bonjour,

Est-il possible de temporiser l'affichage d'un msgbox pendant 3
secondes (par ex.) pour éviter à l'utilisateur de cliquer sur "Ok" ?

Merci d'avance pour vos (éventuelles) réponses ;-)

JP

Sub essaiShape()
ActiveSheet.Shapes("monshape").Visible = True
ActiveSheet.Shapes("monshape").Select
Selection.Characters.Text = "ceci est un essai"
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now())
+ 5)
ActiveSheet.Shapes("monshape").Visible = False
End Sub

http://cjoint.com/?jEq4Yrvu7m

Exemple de gestion de Shape: http://cjoint.com/?jEq5Lcrz3n

JB

Merci !

J'aime bien la solution 2, mais je pense qu'il n'est pas possible d'avoir
dans ce "shape" un msg équivalent à : MsgBox "Bonjour Toto !" & Chr(1 0) &
Chr(10) & "Nous sommes le " & LaDate & Chr(10) & Chr(10) & "Il est " &
Format(LHeure, "hh:mm"), vbOKOnly + vbInformation, "hello"

?

PS : Ton shape = zone de texte de wordArt ? Une fois crée sur la feui lle, je
ne me souviens plus comment on lui attribue le nom !

A+ ?

JP

http://cjoint.com/?jEkAdWPKqr

solution 1:
Auto-close Form

Public prochain
Sub essai()
UserForm1.Show
End Sub

Sub CloseForm()
On Error Resume Next
Application.OnTime prochain, "CloseForm", schedule:=False
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
prochain = Now + TimeValue("00:00:5")
Application.OnTime prochain, "CloseForm"
End Sub

Solution2: Shape

Sub essaiShape()
ActiveSheet.Shapes("monshape").Visible = True
Application.Wait TimeSerial(Hour(Now()), Minute(Now()),
Second(Now()) + 5)
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

Bonjour,

Est-il possible de temporiser l'affichage d'un msgbox pendant 3
secondes (par ex.) pour éviter à l'utilisateur de cliquer sur "Ok" ?

Merci d'avance pour vos (éventuelles) réponses ;-)

JP

Pour nommer le shape:

-Le sélectionner
-En haut à gauche, saisir le nom et valider avec la touche Entrée

http://cjoint.com/?jEruYp1HSW

Message avec tempo non bloquante:

Sub essaiShape2()
ActiveSheet.Shapes("monshape").Visible = True
ActiveSheet.Shapes("monshape").Select
Selection.Characters.Text = "ceci est un essai"
fin = Timer + 5
Do While Timer < fin
DoEvents
Loop
ActiveSheet.Shapes("monshape").Visible = False
End Sub


JB

Merci !

J'aime bien la solution 2, mais je pense qu'il n'est pas possible d'avoir
dans ce "shape" un msg équivalent à : MsgBox "Bonjour Toto !" & Chr(1 0) &
Chr(10) & "Nous sommes le " & LaDate & Chr(10) & Chr(10) & "Il est " &
Format(LHeure, "hh:mm"), vbOKOnly + vbInformation, "hello"

?

PS : Ton shape = zone de texte de wordArt ? Une fois crée sur la feui lle, je
ne me souviens plus comment on lui attribue le nom !

A+ ?

JP

http://cjoint.com/?jEkAdWPKqr

solution 1:
Auto-close Form

Public prochain
Sub essai()
UserForm1.Show
End Sub

Sub CloseForm()
On Error Resume Next
Application.OnTime prochain, "CloseForm", schedule:=False
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
prochain = Now + TimeValue("00:00:5")
Application.OnTime prochain, "CloseForm"
End Sub

Solution2: Shape

Sub essaiShape()
ActiveSheet.Shapes("monshape").Visible = True
Application.Wait TimeSerial(Hour(Now()), Minute(Now()),
Second(Now()) + 5)
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

Bonjour,

Est-il possible de temporiser l'affichage d'un msgbox pendant 3
secondes (par ex.) pour éviter à l'utilisateur de cliquer sur "Ok" ?

Merci d'avance pour vos (éventuelles) réponses ;-)

JP

Date et heure avec tempo non bloquante:

http://cjoint.com/?jEvXZfJSyw

Sub essaiShape2()
ActiveSheet.Shapes("monshape").Visible = True
ActiveSheet.Shapes("monshape").Select
Selection.Characters.Text = "Il est " & Time
fin = Timer + 10
Do While Timer < fin
Selection.Characters.Text = "Nous sommes le:" & _
Format(Date, "dd/mm/yy") & Chr(10) & "Il est: " & Format(Now,
"hh:mm:ss")
DoEvents
Loop
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

Merci !

J'aime bien la solution 2, mais je pense qu'il n'est pas possible d'avoir
dans ce "shape" un msg équivalent à : MsgBox "Bonjour Toto !" & Chr(1 0) &
Chr(10) & "Nous sommes le " & LaDate & Chr(10) & Chr(10) & "Il est " &
Format(LHeure, "hh:mm"), vbOKOnly + vbInformation, "hello"

?

PS : Ton shape = zone de texte de wordArt ? Une fois crée sur la feui lle, je
ne me souviens plus comment on lui attribue le nom !

A+ ?

JP

http://cjoint.com/?jEkAdWPKqr

solution 1:
Auto-close Form

Public prochain
Sub essai()
UserForm1.Show
End Sub

Sub CloseForm()
On Error Resume Next
Application.OnTime prochain, "CloseForm", schedule:=False
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
prochain = Now + TimeValue("00:00:5")
Application.OnTime prochain, "CloseForm"
End Sub

Solution2: Shape

Sub essaiShape()
ActiveSheet.Shapes("monshape").Visible = True
Application.Wait TimeSerial(Hour(Now()), Minute(Now()),
Second(Now()) + 5)
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

Bonjour,

Est-il possible de temporiser l'affichage d'un msgbox pendant 3
secondes (par ex.) pour éviter à l'utilisateur de cliquer sur "Ok" ?

Merci d'avance pour vos (éventuelles) réponses ;-)

JP

Vraiment extra !

Merci JB - ça dépasse mes espérances !

J'ajuste tout cela à mes besoins et je conserve tout ça précieusement.

Bon dimanche.

JP

wrote:

Date et heure avec tempo non bloquante:

http://cjoint.com/?jEvXZfJSyw

Sub essaiShape2()
ActiveSheet.Shapes("monshape").Visible = True
ActiveSheet.Shapes("monshape").Select
Selection.Characters.Text = "Il est " & Time
fin = Timer + 10
Do While Timer < fin
Selection.Characters.Text = "Nous sommes le:" & _
Format(Date, "dd/mm/yy") & Chr(10) & "Il est: " & Format(Now,
"hh:mm:ss")
DoEvents
Loop
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

Merci !

J'aime bien la solution 2, mais je pense qu'il n'est pas possible
d'avoir dans ce "shape" un msg équivalent à : MsgBox "Bonjour Toto
!" & Chr(10) & Chr(10) & "Nous sommes le " & LaDate & Chr(10) &
Chr(10) & "Il est " & Format(LHeure, "hh:mm"), vbOKOnly +
vbInformation, "hello"

?

PS : Ton shape = zone de texte de wordArt ? Une fois crée sur la
feuille, je ne me souviens plus comment on lui attribue le nom !

A+ ?

JP

http://cjoint.com/?jEkAdWPKqr

solution 1:
Auto-close Form

Public prochain
Sub essai()
UserForm1.Show
End Sub

Sub CloseForm()
On Error Resume Next
Application.OnTime prochain, "CloseForm", schedule:úlse
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
prochain = Now + TimeValue("00:00:5")
Application.OnTime prochain, "CloseForm"
End Sub

Solution2: Shape

Sub essaiShape()
ActiveSheet.Shapes("monshape").Visible = True
Application.Wait TimeSerial(Hour(Now()), Minute(Now()),
Second(Now()) + 5)
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

Bonjour,

Est-il possible de temporiser l'affichage d'un msgbox pendant 3
secondes (par ex.) pour éviter à l'utilisateur de cliquer sur "Ok"
?

Merci d'avance pour vos (éventuelles) réponses ;-)

JP