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: