Bonjour à tous,
Aujourd'hui j'ai un petit soucis, pas forcément très important, mais j'aimerais savoir s'il est possible de changer en direct le nom d'un label sur un userform.
Le code que j'ai mis en place
La problématique
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Private Sub Label3_Click() With Worksheets("mafeuil").Columns("A:A") Set c = .Find(TextBox1, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Label3.Caption = "Le Numéro " & c & " est déjà repertorié" Loop While Not c Is Nothing And c.Address <> firstAddress End If End With End Sub Private Sub TextBox1_Change() 'l'endoit ou se situt le numéro d'identification à remplir End Sub
Le code ci-dessus fonctionne mais pas en totalité. Pour voir si le numéro d'identification est déjà répertorié, je suis obligé de cliquer sur le label3 dans le formulaire. Hors je souhaiterais que la vérification se fasse à l'instant où j'ai terminé d'écrire dans le cadre de la TextBox1. Est ce possible ?
Merci
Edit: Je complète juste la phrase (en gras) et pars chercher l'événement de contrôle associé (merci riaolle pour ta réponse)
Partager