peper_eliot
XLDnaute Junior
Bonjour à tous
petit problème du jour (et d'avance merci pour vos pistes et réponses )
Soit un usf avec seulement 1 TextBox1...
Comment boucler sur cette TextBox1 ?
Je n'ai pas trouvé le moyen de le faire, sauf en passant par un autre contrôle qui reçoit le focus et qui renvoi immédiatement sur la TextBox1
En PJ mon USF minimaliste
Fichier supprimé... Voir le fichier a jour dans le commentaire https://www.excel-downloads.com/threads/resolu-usf-minimaliste-boucler-sur-1-seule-textbox.203752/
petit problème du jour (et d'avance merci pour vos pistes et réponses )
Soit un usf avec seulement 1 TextBox1...
Comment boucler sur cette TextBox1 ?
Je n'ai pas trouvé le moyen de le faire, sauf en passant par un autre contrôle qui reçoit le focus et qui renvoi immédiatement sur la TextBox1
Code:
Option Explicit
Dim CHERCHE
Private Sub UserForm_Initialize()
With TextBox1
.SetFocus
End With
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Sheets("Feuil1").ListObjects("Tableau1")
Set CHERCHE = Range("Tableau1[Numéro]").Find(What:=TextBox1.Value, LookAt:=1)
If Not CHERCHE Is Nothing Then
TextBox1.Value = TextBox1.Value & " - N° trouvé"
'actions
Else
TextBox1.Value = TextBox1.Value & " - N° inconnu"
'actions
End If
End With
End Sub
Private Sub OptionButton1_Enter()
'astuce pour boucler sur la TextBox1
'mais c'est pas terrible... Je ne peux plus utiliser ce control
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(TextBox1.Text)
End With
End Sub
En PJ mon USF minimaliste
Fichier supprimé... Voir le fichier a jour dans le commentaire https://www.excel-downloads.com/threads/resolu-usf-minimaliste-boucler-sur-1-seule-textbox.203752/
Dernière édition: