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

Bonjour Guy72 ,
Pas très clair la question ... Un petit fichier ne serait pas un luxe ...
Si totalement par hasard j'ai compris

Private Sub UserForm_Initialize()
If Range("B22") = 5 Then CommandButton1.Visible = False
End Sub

Bon dimanche

 

[guy72]

Re : Supprimer bouton dans code

Bonjour Guy72 ,
Pas très clair la question ... Un petit fichier ne serait pas un luxe ...
Si totalement par hasard j'ai compris

Private Sub UserForm_Initialize()
If Range("B22") = 5 Then CommandButton1.Visible = False
End Sub

Bon dimanche

Bonjour,
Merci deme répondre.
Je souhaite faire clignoter "Label1" que si B22=5.

Fichier joint

 

[JNP]

Re : Supprimer bouton dans code

Re ,
Pas vu de label ...
Ça, ça fera clignoter ta cellule .

Sub Clignote(nb, cellule As Range)
 n = 0
 flag = True
 Do While n < nb
 If flag = True Then
   cellule.Interior.ColorIndex = 4
   flag = False
   Else
   cellule.Interior.ColorIndex = 2
   flag = True
   End If
   fin = Timer + 0.4
   Do While Timer < fin:  DoEvents:  Loop
   n = n + 1
 Loop
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B22") = 5 Then Clignote 6, Range("B22")
End Sub

Bon dimanche

 

[guy72]

Re : Supprimer bouton dans code

Je ne comprends pas.
Dans le fichier, tu ne vois pas de "Label1", il y a "coucou" dedans
C'est lui qui clignote quand le UserForm est sur la page et que tu appui sur le bouton.
Je souhaite la même chose mais à la place du bouton, c'est la présence de 5 dans B22 qui provoque le clignotement.

Cordialement
Guy

 

[PMO2]

Re : Supprimer bouton dans code

Bonjour,

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

Private Sub UserForm_Activate()
Bool = True
Call Clignote
End Sub

Private Sub UserForm_Initialize()
With Me.Label1
  .Caption = "Coucou"
  .Font.Size = 20
End With
End Sub

Private Sub UserForm_Terminate()
Bool = False
End Sub

2) dans un module standard copiez le code suivant

Public Bool As Boolean
Dim cpt&

Sub afficheform()
UserForm1.Show vbModeless
End Sub

Sub Clignote(Optional dummy As Byte)
Dim Couleurs
Couleurs = Array(vbBlack, vbBlue, vbCyan, vbGreen, vbMagenta, vbRed, vbWhite, vbYellow)
If cpt& > UBound(Couleurs) Then cpt& = 0
With UserForm1.Label1
  If Sheets("Feuil1").[b22] = 5 Then    ' nom de la feuille à adapter
    .Visible = Not .Visible
    
    '--- Pour colorier la police (si on n'en veut pas, sauter cette partie du code ---
    If .Visible Then
      .ForeColor = Couleurs(cpt&)
      cpt& = cpt& + 1
    End If
    '---------------------------------------------------------------------------------
    
  Else
    .Visible = False
  End If
End With
If Bool Then Application.OnTime Now + TimeValue("00:00:01"), "Clignote"
End Sub

Le texte du Label clignote si la cellule B22 de la feuille concernée contient la valeur 5.

Cordialement.

PMO
Patrick Morange

 

[JNP]

Re : Supprimer bouton dans code

Re ,

Je ne comprends pas.
Dans le fichier, tu ne vois pas de "Label1", il y a "coucou" dedans
C'est lui qui clignote quand le UserForm est sur la page et que tu appui sur le bouton.
Je souhaite la même chose mais à la place du bouton, c'est la présence de 5 dans B22 qui provoque le clignotement.

Désolé, j'avais cru qu'il s'agissait du bouton de commande sur la feuille ...
Donc tout simplement

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

dans le code de l'USF .
A +

 

[guy72]

Re : Supprimer bouton dans code

Bonsoir,
Oui, c'est presque ça.
Quand j'ai 5 dans B22 j'ouvre mon USF et "coucou" clignote.
Mais, dans l'ordre prévu, le USF est ouvert avant l'arrivé du 5 dans B22, et là ça ne fonctionne pas.
Cordialement
Guy

 

[JNP]

Re : Supprimer bouton dans code

Re ,

Mais, dans l'ordre prévu, le USF est ouvert avant l'arrivé du 5 dans B22, et là ça ne fonctionne pas.

Ben, qu'est-ce qui envoie 5 dans B22 dans l'USF ? Le test est à mettre juste après l'endroit qui modifie B22 ...
A +

 

[guy72]

Re : Supprimer bouton dans code

Re ,Ben, qu'est-ce qui envoie 5 dans B22 dans l'USF ? Le test est à mettre juste après l'endroit qui modifie B22 ...
A +

Fonctionnement.

Je travaille sur mon USF et suivant les réponses, un compteur fonctionne dans B22.
Quand ce compteur est égal à 5, (la USF est toujours ouvert) ça déclenche un texte dans "Label1" et c'est ce texte que je veux faire clignoter.

Cordialement
Guy

 

[JNP]

Re : Supprimer bouton dans code

Re ,

Je travaille sur mon USF et suivant les réponses, un compteur fonctionne dans B22.
Quand ce compteur est égal à 5, (la USF est toujours ouvert) ça déclenche un texte dans "Label1" et c'est ce texte que je veux faire clignoter.

Certes, mais qu'est ce qui modifie la valeur de B22 ?

 

[guy72]

Re : Supprimer bouton dans code

Peut importe, ça change rien, il suffit d'avoir 5 en B22 pendant que l'USF est ouvert..

 

[guy72]

Re : Supprimer bouton dans code

Bonjour,

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

Le texte du Label clignote si la cellule B22 de la feuille concernée contient la valeur 5.

Cordialement.

PMO
Patrick Morange

Bonjour,
Je n'ai pas regardé tout de suite le code, car je le trouvais "très imposant" par à port à celui que j'ai montré au départ.

C'est vrai qu'il est très intéressant, il fonctionne à n'importe quand du moment que la cellule B22 de la feuille concernée contient la valeur 5.

Je vais voir si je peux l'intégrer dans mon code.

Cordialement
Guy

 

[JNP]

Re : Supprimer bouton dans code

Re ,

Peut importe, ça change rien, il suffit d'avoir 5 en B22 pendant que l'USF est ouvert..

Drôle de manière de voir les choses... Si on ne sait pas quel est l'événement qui déclenche le changement de la cellule B22, où associer le test pour savoir si du coup B22 vaut 5 ???
Enfin, c'est toi qui vois. Sans ce renseignement, je suis à sec et je me retire .
Bon courage

 

[guy72]

Re : Supprimer bouton dans code

Re ,Drôle de manière de voir les choses... Si on ne sait pas quel est l'événement qui déclenche le changement de la cellule B22, où associer le test pour savoir si du coup B22 vaut 5 ???
Enfin, c'est toi qui vois. Sans ce renseignement, je suis à sec et je me retire .
Bon courage

Bonjour JNP
Je suis bien embêté, je ne sais pas quoi te dire, je ne peux pas envoyer de fichier, il est trop gros.

Voici toujours le morceau de code du USF qui permet de mettre 5 en B22:

Private Sub Bouton_Validez_Click()
'=================================
[B5] = UserForm1.TextBox1
Me.TextBox1.Enabled = True
Me.TextBox1.SetFocus
If [B7] = "Oui" Then

Call Point
Bouton_Nouveau.Locked = False
Bouton_Nouveau.BackColor = RGB(0, 255, 0)

Application.EnableEvents = False
[B26] = ""
Application.EnableEvents = True

Bouton_Validez.Locked = True
Bouton_Validez.BackColor = RGB(255, 0, 0)

Bouton_Passe.Locked = True
Bouton_Passe.BackColor = RGB(255, 0, 0)

End If

Label4.Caption = Range("B7").Value
Label15.Caption = Range("B26").Value

If [B22] = 1 Then
Label5.ForeColor = RGB(0, 255, 0)
End If

If [B22] = 2 Then
Label6.ForeColor = RGB(0, 255, 0)
End If

If [B22] = 3 Then
Label7.ForeColor = RGB(0, 255, 0)
End If

If [B22] = 4 Then
Label8.ForeColor = RGB(0, 255, 0)
End If

If [B22] = 5 Then
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = "n"
Label7.ForeColor = RGB(0, 255, 0)
Label8.Caption = "n"
Label8.ForeColor = RGB(0, 255, 0)
Label9.Caption = "n"
Label9.ForeColor = RGB(0, 255, 0)
Label10.Caption = "n"
Label10.ForeColor = RGB(0, 255, 0)
Label11.Caption = "n"
Label11.ForeColor = RGB(0, 255, 0)
Label12.Caption = ""
Label13.Caption = ""
Label14.Caption = ""


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

End If
End Sub

Cordialement
Guy