Petite question rapide sur Textbox

[Nicko]

Bonjour à tous,

Comment faire pour selectionner le contenu d'une Textbox ? (Surligné en bleu !)

Je suis dans un Userform et j'ai une action en Afterupstae sur ma textbox

Private Sub TextBox1_AfterUpdate()
'Controle du numero
'si ok Goto suite
'Si NOK msgbox d'erreur puis setfocus sur la textbox et Selection

meme le setfocus ne prend pas !!

ca a pourtant pas l'air compliqué :-(

 

[_Thierry]

Re : Petite question rapide sur Textbox

Bonjour Nicko, le Forum

Je ne comprends pas vraiment le moment où tu veux sélectionner (Surligner Bleu) le contenu de la TextBox....

Enfin sinon pour l'action elle-même :

Private Sub CommandButton1_Click()
    With Me.TextBox1
        .Value = "Hello Nicko"
        .SelStart = 0
        .SelLength = Len(.Value)
        .SetFocus
    End With
End Sub

Bonne Journée

@+Thierry
​

 

[Nicko]

Re : Petite question rapide sur Textbox

Bonjour Thierry, et les autres !

Je vais essayer d'etre plus clair !!

dans le code de ma textbox >>

Private Sub TextBox1_AfterUpdate()

Je fais une recherche du n° entré afin de savoir si il correspond à une reference existante.
Si ca n'est pas le cas, je previens l'utilisateur que le N° ne correspond à rien
et j'aimerais que ce même n° soit selectionner avec le focus pour que l'utilisateur entre un nouveau n° !

en fait, c'est pour eviter d'avoir à reprendre la souris et de revenir cliquer dans la textbox.

J'espere etre assez clair !

 

[Dull]

Re : Petite question rapide sur Textbox

Salut Nicko, _Thierry, le Forum,

Une réponse de notre ami Charly2 qui devrais pouvoir te satisfaire

Bonne Journée

 

[_Thierry]

Re : Petite question rapide sur Textbox

Bonjour Dull, Nicko, le Forum

Ok, capito !

Je pense que l'évèment Change sera plus approprié, voici un test considérant ta base de données de "Références" est en feuille "Feuil1", plage "A1:A500" :

Private Sub TextBox1_Change()
Dim C As Range
    
With Worksheets("Feuil1").Range("A1:A500")
    Set C = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
End With
    
    
    If C Is Nothing Then
       
        With Me.TextBox1
            .SelStart = 0
            .SelLength = Len(.Value)
            .SetFocus
        End With
    End If
End Sub

Bon Appétit

@+Thierry
​