Revenir au tous début du texte dans un textbox
Bonjour,
J'ai une feuille excel où j'ai inséré un textbox (via Contrôle ActiveX et non pas dans un userForm classique)
Je l'ai ajouté à une petite macro qui récupère un texte dans une cellule et dans l'ensemble tous fonctionne.
Le problème, c'est qu'à chaque fois que je clique dans le textbox, il me renvois directement tous en bas à la dernière ligne du pavé de texte qu'il possède. J'aimerais qu'en cliquant dans le textbox, celui-ci me laisse tous en haut à la première ligne.
Voici la configuration actuel du Textbox :
Merci à vous.
Bonjour
Voir le code associé serait plus facile
Puis juste une question, pourquoi dans la rubrique Text vous avec une info "Il me semble que c'est sur ....."
Cordialement
Pour la partie "Text" il s'agit de la valeur qui est écrite dans mon TextBox (cette valeur est récupéré via une cellule d'un autre tableau, voir le code ci-dessous.
Voici le code utilisé :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E18:E173")) Is Nothing Then
For i = 14 To 100
If ActiveCell.Value = Sheets("Accueil").Cells(i, 201).Value Then
Cells(18, 79).Value = Sheets("Accueil").Cells(i, 47).Value
Cells(23, 79).Value = Sheets("Accueil").Cells(i, 5).Value
TextBox1.Value = Sheets("Accueil").Cells(i, 131).Value
Cells(18, 137).Value = Sheets("Accueil").Cells(i, 89).Value
Range("CA100:EF104").ClearContents
Range("CA105:GL109").ClearContents
Exit For
Else
i = i + 4
End If
Next i
End IfSans le fichier rien de sûr mais essayez ceci
For i = 100 To 14 step - 4Enlevez aussi le i = i + 4
Edit : je pense avoir compris autre chose en vous relisant. Votre textbox contient plusieurs lignes et vous voudriez que lors du click, ce soit les premières lettres qui soient sélectionnées ?
là où se trouve la macro que vous avez postée, mettez ce code
Private Sub TextBox1_GotFocus()
TextBox1.SelStart = 0
End subC'est exactement ce que je cherchais à faire ! Merci :D