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 label defilement de texte

label defilement de texte

9 réponses
Avatar
PTIFRED
Bonjours tout le monde

comment faire defiller un texte dans un label
d'un userform
et joindre un son wav a l'ouverture d'un userform

par avance merci
Signaler un problème avec ce contenu

9 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
RaMA
Bonjour

Pour le son

Sub MonSon()
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
WAVFile = ThisWorkbook.Path & "ParamEnvir" 'à adapter
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
ErrHandler:
End Sub
RaMa

--
.
"PTIFRED" a écrit dans le message de
news:195101c47c43$35c82a20$
Bonjours tout le monde

comment faire defiller un texte dans un label
d'un userform
et joindre un son wav a l'ouverture d'un userform

par avance merci


Avatar
PTI FRED
MERCI RAMA
mais je met cela ou ??
j'ai plusieurs userform et il n'y a pas d'userform
referencer dans ta formule désoler j'ai du mal a piger si
tu peux m'expliquer
merci c'est tres sympa
ptifred

-----Message d'origine-----
Bonjour

Pour le son

Sub MonSon()
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
WAVFile = ThisWorkbook.Path & "ParamEnvir" 'à
adapter

Call PlaySound(WAVFile, 0&, SND_ASYNC Or
SND_FILENAME)

ErrHandler:
End Sub
RaMa

--
.
"PTIFRED" a écrit dans le
message de

news:195101c47c43$35c82a20$
Bonjours tout le monde

comment faire defiller un texte dans un label
d'un userform
et joindre un son wav a l'ouverture d'un userform

par avance merci



.




Avatar
RaMA
tu peux le placer dans un module standard
tu le mettras en :
Public Sub MonSon ()

pour le lancer:

MonSon
'puis tu envoies ton
userform1.show

RaMa

Ps :ParamEnvir est le son Wave qui peut remplacer par Taratata.Wav
--
.
"RaMA" a écrit dans le message de
news:
Bonjour

Pour le son

Sub MonSon()
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
WAVFile = ThisWorkbook.Path & "ParamEnvir" 'à adapter
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
ErrHandler:
End Sub
RaMa

--
.
"PTIFRED" a écrit dans le message de
news:195101c47c43$35c82a20$
Bonjours tout le monde

comment faire defiller un texte dans un label
d'un userform
et joindre un son wav a l'ouverture d'un userform

par avance merci






Avatar
ptifred
merci rama j'essai la procedure et je te tien au courrant

merci
ptifred
-----Message d'origine-----
tu peux le placer dans un module standard
tu le mettras en :
Public Sub MonSon ()

pour le lancer:

MonSon
'puis tu envoies ton
userform1.show

RaMa

Ps :ParamEnvir est le son Wave qui peut remplacer par
Taratata.Wav

--
.
"RaMA" a écrit dans le message
de

news:
Bonjour

Pour le son

Sub MonSon()
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
WAVFile = ThisWorkbook.Path & "ParamEnvir" 'à
adapter


Call PlaySound(WAVFile, 0&, SND_ASYNC Or
SND_FILENAME)


ErrHandler:
End Sub
RaMa

--
.
"PTIFRED" a écrit dans le
message de


news:195101c47c43$35c82a20$
Bonjours tout le monde

comment faire defiller un texte dans un label
d'un userform
et joindre un son wav a l'ouverture d'un userform

par avance merci






.





Avatar
Hervé
Salut,
Voici pour le texte défilant. A mettre dans le module de ta Form. Ajoute un
bouton afin de pouvoir arrêter le défilement et teste puis adapte :

Private Declare Function GetTickCount Lib "Kernel32" () As Long
Dim Texte As String
Dim ArretDefil As Boolean

Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
DoEvents
Loop
End Sub

Private Sub Defilement()
Dim Chaine1 As String
Dim Chaine2 As String
With Me.Label1
Chaine2 = Left(.Caption, Len(Texte) - Len(.Caption) + 1)
Chaine1 = Right(.Caption, Len(.Caption) - 1) & Chaine2
.Caption = Chaine1
End With
End Sub

Private Sub CommandButton1_Click()
ArretDefil = False
End Sub

Private Sub UserForm_Activate()
Dim I As Integer
Texte = Label1.Caption
Do
Minuterie 100 'adapter ici la vitesse
Defilement
I = I + 1
Loop Until ArretDefil = False
End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = "Voici mon texte pour le défilement !!! "
ArretDefil = True
End Sub

Hervé.

"PTIFRED" a écrit dans le message news:
195101c47c43$35c82a20$
Bonjours tout le monde

comment faire defiller un texte dans un label
d'un userform
et joindre un son wav a l'ouverture d'un userform

par avance merci


Avatar
AV
comment faire defiller un texte dans un label
d'un userform


http://www.excelabo.net/xl/userforms.php#defile

AV

Avatar
Daniel.j
Bonjour,
Une façon de faire:
Tu intègres un webBroser dans ton userform
pointant vers une page HTML qui contient ton texte defilant.
WebBrowser1.Navigate "C:montxtdefilent.htm"

Code html:
<HTML>
<HEAD>
</HEAD>
<BODY">
<MARQUEE BEHAVIOR="SCROLL" DIRECTION="LEFT" LOOP=4><B>Mon texte qui defile.........</B></MARQUEE>
</BODY>
</HTML>


--
Daniel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"PTIFRED" a écrit dans le message de news:
195101c47c43$35c82a20$
| Bonjours tout le monde
|
| comment faire defiller un texte dans un label
| d'un userform
| et joindre un son wav a l'ouverture d'un userform
|
| par avance merci
Avatar
Daniel.j
Bonsoir Hervé ,
Une suggestion pour eviter le plantage en cas de clique sur la croix pour fermer:
Empêcher la fermeture par la croix de fermeture.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Et un bouton pour fermer:

Private Sub CommandButton2_Click()
ArretDefil = False
Unload UserForm1
End Sub

Daniel


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

| Salut,
| Voici pour le texte défilant. A mettre dans le module de ta Form. Ajoute un
| bouton afin de pouvoir arrêter le défilement et teste puis adapte :
|
| Private Declare Function GetTickCount Lib "Kernel32" () As Long
| Dim Texte As String
| Dim ArretDefil As Boolean
|
| Sub Minuterie(Milliseconde As Long)
| Dim Arret As Long
| Arret = GetTickCount() + Milliseconde
| Do While GetTickCount() < Arret
| DoEvents
| Loop
| End Sub
|
| Private Sub Defilement()
| Dim Chaine1 As String
| Dim Chaine2 As String
| With Me.Label1
| Chaine2 = Left(.Caption, Len(Texte) - Len(.Caption) + 1)
| Chaine1 = Right(.Caption, Len(.Caption) - 1) & Chaine2
| .Caption = Chaine1
| End With
| End Sub
|
| Private Sub CommandButton1_Click()
| ArretDefil = False
| End Sub
|
| Private Sub UserForm_Activate()
| Dim I As Integer
| Texte = Label1.Caption
| Do
| Minuterie 100 'adapter ici la vitesse
| Defilement
| I = I + 1
| Loop Until ArretDefil = False
| End Sub
|
| Private Sub UserForm_Initialize()
| Me.Label1.Caption = "Voici mon texte pour le défilement !!! "
| ArretDefil = True
| End Sub
|
| Hervé.
|
| "PTIFRED" a écrit dans le message news:
| 195101c47c43$35c82a20$
| > Bonjours tout le monde
| >
| > comment faire defiller un texte dans un label
| > d'un userform
| > et joindre un son wav a l'ouverture d'un userform
| >
| > par avance merci
|
|
Avatar
Daniel.j
Ou encore plus simplement:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
|ArretDefil = False
| End Sub

Daniel
"Daniel.j" a écrit dans le message de news:

| Bonsoir Hervé ,
| Une suggestion pour eviter le plantage en cas de clique sur la croix pour fermer:
| Empêcher la fermeture par la croix de fermeture.
|
| Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
| If CloseMode = 0 Then Cancel = True
| End Sub
|
| Et un bouton pour fermer:
|
| Private Sub CommandButton2_Click()
| ArretDefil = False
| Unload UserForm1
| End Sub
|
| Daniel
|
|
| "Hervé" a écrit dans le message de news:
|
| | Salut,
| | Voici pour le texte défilant. A mettre dans le module de ta Form. Ajoute un
| | bouton afin de pouvoir arrêter le défilement et teste puis adapte :
| |
| | Private Declare Function GetTickCount Lib "Kernel32" () As Long
| | Dim Texte As String
| | Dim ArretDefil As Boolean
| |
| | Sub Minuterie(Milliseconde As Long)
| | Dim Arret As Long
| | Arret = GetTickCount() + Milliseconde
| | Do While GetTickCount() < Arret
| | DoEvents
| | Loop
| | End Sub
| |
| | Private Sub Defilement()
| | Dim Chaine1 As String
| | Dim Chaine2 As String
| | With Me.Label1
| | Chaine2 = Left(.Caption, Len(Texte) - Len(.Caption) + 1)
| | Chaine1 = Right(.Caption, Len(.Caption) - 1) & Chaine2
| | .Caption = Chaine1
| | End With
| | End Sub
| |
| | Private Sub CommandButton1_Click()
| | ArretDefil = False
| | End Sub
| |
| | Private Sub UserForm_Activate()
| | Dim I As Integer
| | Texte = Label1.Caption
| | Do
| | Minuterie 100 'adapter ici la vitesse
| | Defilement
| | I = I + 1
| | Loop Until ArretDefil = False
| | End Sub
| |
| | Private Sub UserForm_Initialize()
| | Me.Label1.Caption = "Voici mon texte pour le défilement !!! "
| | ArretDefil = True
| | End Sub
| |
| | Hervé.
| |
| | "PTIFRED" a écrit dans le message news:
| | 195101c47c43$35c82a20$
| | > Bonjours tout le monde
| | >
| | > comment faire defiller un texte dans un label
| | > d'un userform
| | > et joindre un son wav a l'ouverture d'un userform
| | >
| | > par avance merci
| |
| |
|
|