Supprimer bouton dans code

[guy72]

Bonjour,
J'ai récupéré ce code :

Il sert à faire clignoter "Label1" dans mon USF avec un bouton.
Je souhaiterais supprimer le bouton, savoir comment faire pour m'en servir dans une procédure : "Quand B22=5".


A moins que vous ayez un autre code qui fasse la même chose, cela ne me dérange pas.


Private Sub CommandButton1_Click()
Clignote 6, Me.Label1.Name
End Sub
Sub Clignote(nb, label)
n = 0
Do While n < nb
Me(label).Visible = Not Me(label).Visible
fin = Timer + 0.4
Do While Timer < fin: DoEvents: Loop
n = n + 1
Loop
End Sub

Merci de votre aide

Cordialement
Guy

 

[JNP]

Re : Supprimer bouton dans code

Re ,

Label1.Caption = "!! Gagné !!" ' Là ou est "coucou" dans l'exemple.
Label3.Caption = "%"

C'est donc là qu'il faut mettre

If Range("B22") = 5 Then Clignote 6, Me.Label1.Name

Tout bêtement .
Bonne journée

 

[guy72]

Re : Supprimer bouton dans code

Re ,C'est donc là qu'il faut mettre

If Range("B22") = 5 Then Clignote 6, Me.Label1.Name

Tout bêtement .
Bonne journée

Ok merci de ton aide.
Et excuse pour les explications pas trop précises.
Cordialement
Guy

 

[guy72]

Re : Supprimer bouton dans code

Re ,C'est donc là qu'il faut mettre

If Range("B22") = 5 Then Clignote 6, Me.Label1.Name

Tout bêtement .
Bonne journée

Bonsoir,c'est encore moi.
Comment modifier :
If Range("B22") = 5 Then Cligno 6, Me.Label1.Name.
qui se trouve dans le code du USF.

Je souhaite aussi le mettre dans le code la feuille avec un autre nom).
Que faut-il que je modifi dans cette ligne pour que sa fonctionne . Je suppose que c'est seulement "Me", j'ai mis "UserForm1", mais cela ne fonctionne pas.

Merci de ton aide.
Cordialement
Guy

 

[JNP]

Re : Supprimer bouton dans code

Re ,
A priori, le seul passage du nom du label à la fonction ne fonctionne pas, donc j'ai intégré Clignote au code

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B22") <> 5 Then Exit Sub
n = 0: nb = 4
Do While n < nb
Me.Label1.Visible = Not Me.Label1.Visible
fin = Timer + 0.4
Do While Timer < fin: DoEvents: Loop
n = n + 1
Loop
End Sub

fonctionne .
Bonne journée

 

[guy72]

Re : Supprimer bouton dans code

Bonjour,
Non ça ne fonctionne pas.
Mais je suis complètement perdu.
Je vais laisser tomber un peu et je vais revoir ça demain.
Cordialement
Guy

 

[Si...]

Re : Supprimer bouton dans code

Bonjour

un essai, avec ou sans bouton USF. Dans ce dernier cas la fermeture se fait par déplacement du curseur.

 

[guy72]

Re : Supprimer bouton dans code

Bonsoir,

Essayez la démarche suivante

1) créez un UserForm1 et un contrôle Label1
dans la fenêtre de code du UserForm copiez le code suivant

Que faut-il ajouter pour pouvoir l'ârrêter avant la fermeture du USF
Merci
Guy

 

[PMO2]

Re : Supprimer bouton dans code

Bonjour,

Essayez l'exemple en pièce jointe.

Cordialement.

PMO
Patrick Morange

 

[guy72]

Re : Supprimer bouton dans code

Bonjour,

Essayez l'exemple en pièce jointe.

Cordialement.

PMO
Patrick Morange

Bonsoir,
Ok, marci de ton aide
Cordialement
Guy

 

[guy72]

Re : Supprimer bouton dans code

un essai, avec ou sans bouton USF. Dans ce dernier cas la fermeture se fait par déplacement du curseur


Bonjour, Si
Excuse si je ne t'ai pas répondu.
La solution est bonne aussi, sauf, qu'au début, je ne comprenais pas le fonctionnement.
Car moi j'ai d'abord le USF et après le 5 en B22, pusi je t'ai oublié.
Cordialement