Récupérer ligne d'une textbox multiline
Signaler
manud31
copperncius
- Messages postés
- 81
- Date d'inscription
- vendredi 28 octobre 2005
- Statut
- Membre
- Dernière intervention
- 16 mai 2006
copperncius
- Messages postés
- 16
- Date d'inscription
- vendredi 13 décembre 2013
- Statut
- Membre
- Dernière intervention
- 30 août 2014
A voir également:
- Vba textbox multiline
- Textbox multiline - Meilleures réponses
- Textbox multiline vba - Meilleures réponses
- Comment afficher les dernières lignes d'un TextBox multiligne ✓ - Forum - Visual Basic
- Textbox multiline vba ✓ - Forum - Visual Basic 6
- ASP / ASP.NET : Maxlength sur les textbox multiline - CodeS SourceS - Guide
- VBA : textbox ou autre permettant de gérer des attributs de caractères ✓ - Forum - Visual Basic 6
- [VBA]Textbox - N'autoriser une chaîne de caractère définie - VBA Excel ✓ - Forum - Visual Basic 6
6 réponses
Gobillot
- Messages postés
- 3140
- Date d'inscription
- vendredi 14 mai 2004
- Statut
- Membre
- Dernière intervention
- 11 mars 2019
méthode originale
Private Sub Command1_Click()
Dim Ligne As Integer
Dim i As Integer
Dim x As Integer
Dim str As String
Ligne = 2 'numéro de ligne à récupérer
Text1.SetFocus
Text1.SelStart = 0
For i = 1 To Ligne - 1
SendKeys ("{DOWN}")
DoEvents
Next
x = Text1.SelStart
SendKeys ("+{DOWN}")
DoEvents
str = Text1.SelText
MsgBox str 'résultat dans la chaîne str
End Sub
Daniel
Private Sub Command1_Click()
Dim Ligne As Integer
Dim i As Integer
Dim x As Integer
Dim str As String
Ligne = 2 'numéro de ligne à récupérer
Text1.SetFocus
Text1.SelStart = 0
For i = 1 To Ligne - 1
SendKeys ("{DOWN}")
DoEvents
Next
x = Text1.SelStart
SendKeys ("+{DOWN}")
DoEvents
str = Text1.SelText
MsgBox str 'résultat dans la chaîne str
End Sub
Daniel
PCPT
- Messages postés
- 13280
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Modérateur
- Dernière intervention
- 3 février 2018
salut,
autre méthode, supposant obligatoirement qu'une "ligne" se termine par un retour chariot, et qu'elle n'en contient aucun autre (dans la ligne)...
donc une ligne = une phrase ~courte~....
Private Sub Command1_Click()
Const Ligne As Integer = 2 'numéro de ligne à récupérer
Dim aLines() As String
aLines = Split(Text1.Text, vbCrLf)
MsgBox aLines(Ligne - 1)
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
++
PCPT [AFCK]
autre méthode, supposant obligatoirement qu'une "ligne" se termine par un retour chariot, et qu'elle n'en contient aucun autre (dans la ligne)...
donc une ligne = une phrase ~courte~....
Private Sub Command1_Click()
Const Ligne As Integer = 2 'numéro de ligne à récupérer
Dim aLines() As String
aLines = Split(Text1.Text, vbCrLf)
MsgBox aLines(Ligne - 1)
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
++
PCPT [AFCK]
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
que cherches-tu a récupérer, exectement ?
la méthode de pcpt fonctionne, mais uniquement si aucune ligne de
dépasse la largeur du textbox. Dans ce cas, son texte passerai sur deux
lignes, et fausserait le calcul...
Renfield
Admin CodeS-SourceS - MVP Visual Basic
la méthode de pcpt fonctionne, mais uniquement si aucune ligne de
dépasse la largeur du textbox. Dans ce cas, son texte passerai sur deux
lignes, et fausserait le calcul...
Renfield
Admin CodeS-SourceS - MVP Visual Basic
manud31
- Messages postés
- 81
- Date d'inscription
- vendredi 28 octobre 2005
- Statut
- Membre
- Dernière intervention
- 16 mai 2006
Bonjour et merci pour vos réponses.
Ma textbox multiline sert à récupérer des références choisies par l'utilisateur.
Ex :
MIPTR 31
MIPTR 64
MIPTR 42
...
Ensuite, je dois utiliser chaque dans une boucle.
Ex:
For i = 1 to textbox.linecount
fonction = ...... .(valeur de la ligne i)
....
Next i
Voilà
Ma textbox multiline sert à récupérer des références choisies par l'utilisateur.
Ex :
MIPTR 31
MIPTR 64
MIPTR 42
...
Ensuite, je dois utiliser chaque dans une boucle.
Ex:
For i = 1 to textbox.linecount
fonction = ...... .(valeur de la ligne i)
....
Next i
Voilà