XL 2019 clignoter label tant que texbox ne contient pas le bon nombre de caractères

[PETIT YANNICK]

Bonjour,

Je souhaite faire clignoter label26 tant que texbox10 ne contient 3 caractères
Comment dois je procéder?
Merci de vos réponses

yannick

 

[Eric C]

Oui, il est simplifié mais il est répété (copié/ Collé Ok) à chaque TextBox concerné. Ne peut on pas, à l'instar de mon fichier, simplifier ces longues lignes en plaçant une Sub ?? Là est ma question.
Bonne après-midi

 

[job75]

On peut en effet utiliser une Sub et l'appeler mais c'est vraiment de peu d'intérêt car les longues lignes ne pèsent pas bien lourd :

Sub Test()
CommandButton5.Enabled = TextBox1 <> "" And TextBox2 <> "" And TextBox4 <> "" And TextBox5 <> "" And Len(TextBox6) = 9 And TextBox7 <> "" And TextBox8 <> "" And Len(TextBox10) = 3
End Sub

La macro doit être placée dans le code de l'UserForm.

 

[job75]

On peut en effet utiliser une Sub et l'appeler mais c'est vraiment de peu d'intérêt car les longues lignes ne pèsent pas bien lourd

Et avec la Sub ce fichier (3 bis) pèse 50,9 Ko alors que le fichier (3) pèse 48,6 Ko...

 

[PETIT YANNICK]

Merci pour le retour job 75
bonne journée

 

[Eric C]

Merci job75

 

[Hervé]

salut à tous

Eric, tu peux imaginer une boucle sur des controls portant des noms à la con en utilisant la propriété tag des controls.

En placant un boolean par exemple soit lors de l'init du usf soit à la main lors de la création

a plus

 

[Eric C]

Bonjour le forum
Bonjour le fil
Hé, bonjour Hervé et heureux et content de te croiser. Tu n'interviens plus aussi souvent que par le passé.

Comme par le passé, je suis toujours aussi lourd en Vba. Je m'y étais mis puis avait arrêté car l'administration avait opté pour Open Office (à l' époque). Je reviens tout doucement car je suis à la retraite (Eh oui ça y est). Pour les tags, oui je me souviens de la conversation entre @+Thierry et notre regretté Ti. J'ai bidouillé le code de forumeurs avisés et avertis pour le transformer en quelque chose qui correspond à mon besoin. Je le mets en ligne si cela peut intéresser :

Sub Verif_Remplissage()
    Dim i As Byte
   ListeControles = Array(1, 2, 5) ' à adapter et ne pas oublier la correspondance avec le test des TextBoxs
   For i = LBound(ListeControles) To UBound(ListeControles)
  If Controls("TextBox" & ListeControles(i)).Value = "" Then
                 CommandButton1.Enabled = False
            Exit Sub
        End If
    Next i
    CommandButton1.Enabled = True
End Sub


Private Sub TextBox1_change()
Verif_Remplissage
End Sub

Private Sub TextBox2_change()
Verif_Remplissage
End Sub

Private Sub TextBox3_change()
'Verif_Remplissage
End Sub

Private Sub TextBox4_change()
'Verif_Remplissage
End Sub

Private Sub TextBox5_change()
Verif_Remplissage
End Sub

Encore merci d'être passé et bonne journée