multiligne sélectionner une ligne

J'ai oublié de préciser :
de maniere simple...
En fait si le developpement d'une telle solution est trop longue ou trop
fastidieuse, je laisserai tomber.
Mais par contre j'aimerai bien tout de même savoir comment j'aurais du faire
en quelques mot.
(quel commande ou quel méthode)

Bonjour Titi28,

Ce qui suit requiert Excel 2000 ou une version plus récente à cause de la fonction split.

Ceci devrait faire le travail, si chaque ligne de ton textbox se termine par l'appel de la touche Enter par exemple.

Ceci ne s'applique pas si c'est une phrase continue ...

'------------------------------------
Private Sub CommandButton1_Click()

Dim T As Variant, Nb As Integer
T = Split(Me.TextBox1, vbCrLf)
Nb = UBound(T) + 1

For a = 1 To Nb
If InStr(1, T(a), "Nom", vbTextCompare) <> 0 Then
MsgBox "Le texte de la ligne est : " & T(a)
Exit Sub
End If
Next

End Sub
'------------------------------------


Salutations!



"Titi28" <nospam@neuf.fr> a écrit dans le message de news: dj6ev5$get$1@aphrodite.grec.isp.9tel.net...
Bonjour.
Je me demande s'il est possible de sélectionner automatiquement la ligne
d'un textbox multiligne en fonction d'un mot sélectionné ?

lig1 : "titre" "nom" "prenom" OU "societe"
lig2: "titre" "nom" "prenom" OU "Adresse"
lig3: "adresse"
etc

Vous l'aurez compris selon s'il s'agit d'une personne morale ou physiq le
"Mr. machin truc" s'affiche en 2eme ou 1ere ligne.
Je récupere le nom par un SelText. ensuite dans un combo je sélectionne Mr
ou Mme, ou Sté
afin de séparer les champs dans le cadre d'un publipostage.

Comme je fais un seltext j'aimerai que sur la ligne dans laquelle je suis,
je recupere automatiquement le début de ma ligne.
a savoir le "Mr" ou le "Mme". (sachant que des fois Monsieur est écrit en
tte lettre ou M. ou Mr ou mr. etc ... )
la séparation étant donc uniquement l'espace.

Car le soucis est que souvent ce champ est oublié, et donc à blanc dans les
publipostages.

Voilà je ne sais pas si je me suis bien fait comprendre.

Cette présentation est plus adéquate :


Private Sub CommandButton1_Click()

Dim T As Variant, Nb As Integer, Mot As String
T = Split(Me.TextBox1, vbCrLf)
Nb = UBound(T) + 1

'Le mot recherché dans le textbox
Mot = "Nom"
For a = 1 To Nb
If InStr(1, T(a), "Nom", vbTextCompare) <> 0 Then
MsgBox "Le texte de la ligne est : " & T(a)
Exit Sub
End If
Next

End Sub


Salutations!




"Titi28" <nospam@neuf.fr> a écrit dans le message de news: dj6ev5$get$1@aphrodite.grec.isp.9tel.net...
Bonjour.
Je me demande s'il est possible de sélectionner automatiquement la ligne
d'un textbox multiligne en fonction d'un mot sélectionné ?

lig1 : "titre" "nom" "prenom" OU "societe"
lig2: "titre" "nom" "prenom" OU "Adresse"
lig3: "adresse"
etc

Vous l'aurez compris selon s'il s'agit d'une personne morale ou physiq le
"Mr. machin truc" s'affiche en 2eme ou 1ere ligne.
Je récupere le nom par un SelText. ensuite dans un combo je sélectionne Mr
ou Mme, ou Sté
afin de séparer les champs dans le cadre d'un publipostage.

Comme je fais un seltext j'aimerai que sur la ligne dans laquelle je suis,
je recupere automatiquement le début de ma ligne.
a savoir le "Mr" ou le "Mme". (sachant que des fois Monsieur est écrit en
tte lettre ou M. ou Mr ou mr. etc ... )
la séparation étant donc uniquement l'espace.

Car le soucis est que souvent ce champ est oublié, et donc à blanc dans les
publipostages.

Voilà je ne sais pas si je me suis bien fait comprendre.

Merci je vais étudier ça de plus pret.
Je ne connais pas la focntion "split"
Bonne prog"