Supprimer bouton dans code

guy72 · 24 Octobre 2010

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 · 25 Octobre 2010

Re : Supprimer bouton dans code

Re 🙂,

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

C'est donc là qu'il faut mettre

Code:

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

Tout bêtement 😉.
Bonne journée 😎

guy72 · 25 Octobre 2010

Re : Supprimer bouton dans code

JNP à dit:
Re 🙂,C'est donc là qu'il faut mettre

Code:

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 · 25 Octobre 2010

Re : Supprimer bouton dans code

JNP à dit:
Re 🙂,C'est donc là qu'il faut mettre

Code:

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 · 26 Octobre 2010

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

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 · 26 Octobre 2010

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... · 26 Octobre 2010

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 · 29 Octobre 2010

Re : Supprimer bouton dans code

PMO2 à dit:
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 · 31 Octobre 2010

Re : Supprimer bouton dans code

Bonjour,

Essayez l'exemple en pièce jointe.

Cordialement.

PMO
Patrick Morange

guy72 · 31 Octobre 2010

Re : Supprimer bouton dans code

PMO2 à dit:
Bonjour,

Essayez l'exemple en pièce jointe.

Cordialement.

PMO
Patrick Morange

Bonsoir,
Ok, marci de ton aide
Cordialement
Guy

guy72 · 5 Novembre 2010

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

Supprimer bouton dans code

guy72

XLDnaute Impliqué

JNP

XLDnaute Barbatruc

guy72

XLDnaute Impliqué

guy72

XLDnaute Impliqué

JNP

XLDnaute Barbatruc

guy72

XLDnaute Impliqué

Si...

XLDnaute Barbatruc

Pièces jointes

guy72

XLDnaute Impliqué

PMO2

XLDnaute Accro

guy72

XLDnaute Impliqué

guy72

XLDnaute Impliqué

Discussions similaires

Supprimer bouton dans code

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Impliqué

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency