mise en surbrillance dans une textbox

Question

Salut

Tout d'abord je tiens à préciser que j'ai effectué des recherches dans ce forum et que les soutions proposées ne m'ont pas permis de résoudre le problème.

Voilà, j'ai créé une userform dans lequel à son ouverture, il est proposé par défaut une date (j+1 en l'occurence). Je cherche à mettre cette date en surbrillance afin que si elle ne convient pas elle puisse être remplacée directement par une saisie direct sans passer par la souris.
Je joins mon code VBA

Private Sub CommandButton1_Click()
Sheets("Report Hinano").Range("k1").Value = TextBox1.Value
UserForm1.Hide
End Sub
__________________________
Private Sub UserForm_Initialize()
TextBox1 = Date + 1
End Sub

En vous remerciant d'avance

econs · Answer

Salut,







Private Sub UserForm_Initialize()
    TextBox1 = Date + 1
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(Text1.Text)

End Sub




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_pdj · Answer

Salut manu
en fait j'avais déjà essayé cette solution suite à mes recherces sur le forum.
Cela ne fonctionne pas, une fenetre s'ouvre et m'indique "erreur 424, objet requis" le débogueur me renvoi sur UserForm1.Show qui lance mon userform.
Lorsque j'ai juste la ligne avec date +1, mon userform fonctionne (mais sans la surbrillance)

Merci

PDJ

cs_pdj · Answer

En fait j'ai mis la valeur 2 à la place de len(text1.text) et cela fonction. J'ai juste le jour en surbrillance.

Merci

Mise en surbrillance dans une textbox

3 réponses

Discussions similaires