XL 2010 Label clignotant si renseigné.

[MAN]

Bonjour le forum Bonjour a Tous.
j'ai recupéré sur le forum le fichier ci contre.
il fonctionne bien.
je voudrai effectuer une modification simple. QUE LE LABEL NE CLIGNOTE QUE SI LES CARACTERES Y SONT INSCRITS.
es ce possible?
merci d'avance

 

[JM27]

bonjour
a tout hasard ( comme j'ai pas tout compris)
avec un end

Private Sub UserForm_Terminate()
  clignote = False
  End
End Sub

 

[MAN]

Merci JM27. meme en modifiant mon code, le label clignote toujours meme sans texte.
voir fichier joint.

 

[patricktoulon]

bonjour
ben simplement dans le activate mettre le tout dans une condition if label18.caption<>"" then
après faut voir comment est alimenté la caption ,car il n'y a pas d’événement caption_change pour les labels

pour l'exemple voici la démo bien que j’adhère moyennement au boucles perpétuelles sToppable
rien de mieux qu'un vrai timer (api set timer executant la sub en adressof ce qui libère vba de cette boucle
au pire avec application.ontime
mais bon faut bien commencer un jour
donc ici j'ai ajouté un bouton dans le userform qui vide ou rempli la caption

Dim clignote As Boolean
Private Sub CommandButton1_Click()
    Label18.Caption = Array("Bonjour", "")(Abs(Label18.Caption = "Bonjour"))
    clignote = True
    UserForm_Activate
End Sub



Private Sub UserForm_Activate()
    Dim a
    'Label Clignotant
    If Label18.Caption <> "" Then clignote = True Else clignote = False
    If Not clignote Then Label18.Visible = True: Exit Sub
    Do While clignote
        a = Timer
        DoEvents
        Do Until a + 0.7 <= Timer: DoEvents: Loop
        Label18.Visible = Not Label18.Visible
        If Not clignote Then Label18.Visible = True: Exit Do
    Loop
End Sub
Private Sub UserForm_Terminate()
    clignote = False
End Sub

 

[MAN]

Merci baucoup. au forum.le code ci dessus fonctionne bien.
cependant, l'userform étant dans les feuilles protégées, lorsque le label clignote, la protection de la feuille est automatiquement désactivée. comment faire afin que le code ne désactive pas la protection de la feuille.
merci.