Discussion :

[Majaaaax]

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

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

La problématique

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)

[riaolle]

Bonjour,

souhaiterais que la vérification se fasse à l'instant où j'ai terminé d'écrire.

Tu as terminé d'écrire où?
Je pense qu'il ne faut pas faire l'évènement sur le Label, mais sur le controle où tu écris.
La question à se poser c'est : quand est-ce que je veux que mon Label se mette à jour ? Quand tu as répondu à cette question : tu cherches l'évènement de controle associé.

[Al__22]

/!\ a ne pas oublier le cas où tu n'auras rien dans TextBox1 et autres petites subtilités

[Majaaaax]

Bon je coince toujours, mais je sent que le mur n'est pas si épais que ça.

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
21
22
23
24
25
26
27
 
Private Sub Label3_Click()
 
End Sub
 
Private Sub TextBox1_Change()
'l'endoit ou se situt le numéro d'identification à remplir
End Sub
 
Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Shift = 0 Then
 
TextBox1 = Chr(KeyCode)
 
 
With Worksheets("turbinedescr_data").Columns("A:A")
 
    Set c = .Find(TextBox1, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
        If c > 60000 Then 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

[riaolle]

Je pense qu'il est plus judicieux de placer ton code dan TextBox1_Change, non? N'est-ce pas quand tu changes le texte de la Textbox que tu veux faire la recherche?
Quel est ton problème avec le code que tu nous montres dans ton message precedent?
Il te manque un End If :

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
 
Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Shift = 0 Then
        TextBox1 = Chr(KeyCode)
    End If     '<==================================
 
With Worksheets("turbinedescr_data").Columns("A:A")
    Set c = .Find(TextBox1, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
        If c > 60000 Then 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

[Majaaaax]

Bon finalement c'est résolu. Un grand merci à vous pour votre aide

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
21
22
23
24
 
Private Sub Label3_Click()
 
End Sub
 
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
 
With Worksheets("turbinedescr_data").Columns("A:A")
 
    Set c = .Find(TextBox1, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
        If c > 60000 Then 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 UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
 
End Sub