Bonjour, et merci du temps que vous prendrais pour m'aider..
J'ai un champs memo ( le contenu viens d'un document word "copie/colé")
je voudrais savoir comment faire pour copier une ligne spécifique,
ex: Monsieur Pierre Dupuis
2020 du bateau
Québec ( Québec) G1E4G6
Comment faire pour dire a mon formulaire de copier la 2ieme ligne "2020 du
bateau" dans mon autre champs et non pas tout le contenu ou la 1ere ligne?
évidement les autres lignes vont aller dans d'autre champs, mais le meme
principe va s'appliquer... merci!!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
gregory.ruiz
Salut, je pense que tu peut trouver ton bonheur en utilisant la fonction 'Split'.
ex. : soit un formuilaire contenant un controle texte 'ctrTexte' contenant ton texte multiligne, un cntrole texte 'ctrLigne2' devant recevoir la 2° ligne de 'ctrTexte'. Pour extraire la 2° ligne, tu pourrais utiliser un bout de code du genre :
Dim strLines As Variant strLines = Split(CStr(ctrTexte.Value), vbCrLf, 3, vbTextCompare) ctrLigne2.Value = strLines(1)
NB : 1) on part de l'hypothèse que les lignes sont séparées par les deux codes caractères 'CR' et 'LF'. Test avec 'VbCr' ou 'VbLf' si tu n'obtient pas de résultat satisfaisant. 2) Split renvoie un tableau de chaînes basé sur 0 --> la 1° cellule est accessible par strLines(0), etc.
Salut,
je pense que tu peut trouver ton bonheur en utilisant la fonction
'Split'.
ex. : soit un formuilaire contenant un controle texte 'ctrTexte'
contenant ton texte multiligne, un cntrole texte 'ctrLigne2' devant
recevoir la 2° ligne de 'ctrTexte'.
Pour extraire la 2° ligne, tu pourrais utiliser un bout de code du
genre :
Dim strLines As Variant
strLines = Split(CStr(ctrTexte.Value), vbCrLf, 3, vbTextCompare)
ctrLigne2.Value = strLines(1)
NB :
1) on part de l'hypothèse que les lignes sont séparées par les deux
codes caractères 'CR' et 'LF'. Test avec 'VbCr' ou 'VbLf' si tu
n'obtient pas de résultat satisfaisant.
2) Split renvoie un tableau de chaînes basé sur 0 --> la 1° cellule
est accessible par strLines(0), etc.
Salut, je pense que tu peut trouver ton bonheur en utilisant la fonction 'Split'.
ex. : soit un formuilaire contenant un controle texte 'ctrTexte' contenant ton texte multiligne, un cntrole texte 'ctrLigne2' devant recevoir la 2° ligne de 'ctrTexte'. Pour extraire la 2° ligne, tu pourrais utiliser un bout de code du genre :
Dim strLines As Variant strLines = Split(CStr(ctrTexte.Value), vbCrLf, 3, vbTextCompare) ctrLigne2.Value = strLines(1)
NB : 1) on part de l'hypothèse que les lignes sont séparées par les deux codes caractères 'CR' et 'LF'. Test avec 'VbCr' ou 'VbLf' si tu n'obtient pas de résultat satisfaisant. 2) Split renvoie un tableau de chaînes basé sur 0 --> la 1° cellule est accessible par strLines(0), etc.
BibiMtl2x
merci c'est exactement ce que j'avais besoin.. :)
"" wrote:
Salut, je pense que tu peut trouver ton bonheur en utilisant la fonction 'Split'.
ex. : soit un formuilaire contenant un controle texte 'ctrTexte' contenant ton texte multiligne, un cntrole texte 'ctrLigne2' devant recevoir la 2° ligne de 'ctrTexte'. Pour extraire la 2° ligne, tu pourrais utiliser un bout de code du genre :
Dim strLines As Variant strLines = Split(CStr(ctrTexte.Value), vbCrLf, 3, vbTextCompare) ctrLigne2.Value = strLines(1)
NB : 1) on part de l'hypothèse que les lignes sont séparées par les deux codes caractères 'CR' et 'LF'. Test avec 'VbCr' ou 'VbLf' si tu n'obtient pas de résultat satisfaisant. 2) Split renvoie un tableau de chaînes basé sur 0 --> la 1° cellule est accessible par strLines(0), etc.
merci c'est exactement ce que j'avais besoin.. :)
"gregory.ruiz@gmail.com" wrote:
Salut,
je pense que tu peut trouver ton bonheur en utilisant la fonction
'Split'.
ex. : soit un formuilaire contenant un controle texte 'ctrTexte'
contenant ton texte multiligne, un cntrole texte 'ctrLigne2' devant
recevoir la 2° ligne de 'ctrTexte'.
Pour extraire la 2° ligne, tu pourrais utiliser un bout de code du
genre :
Dim strLines As Variant
strLines = Split(CStr(ctrTexte.Value), vbCrLf, 3, vbTextCompare)
ctrLigne2.Value = strLines(1)
NB :
1) on part de l'hypothèse que les lignes sont séparées par les deux
codes caractères 'CR' et 'LF'. Test avec 'VbCr' ou 'VbLf' si tu
n'obtient pas de résultat satisfaisant.
2) Split renvoie un tableau de chaînes basé sur 0 --> la 1° cellule
est accessible par strLines(0), etc.
Salut, je pense que tu peut trouver ton bonheur en utilisant la fonction 'Split'.
ex. : soit un formuilaire contenant un controle texte 'ctrTexte' contenant ton texte multiligne, un cntrole texte 'ctrLigne2' devant recevoir la 2° ligne de 'ctrTexte'. Pour extraire la 2° ligne, tu pourrais utiliser un bout de code du genre :
Dim strLines As Variant strLines = Split(CStr(ctrTexte.Value), vbCrLf, 3, vbTextCompare) ctrLigne2.Value = strLines(1)
NB : 1) on part de l'hypothèse que les lignes sont séparées par les deux codes caractères 'CR' et 'LF'. Test avec 'VbCr' ou 'VbLf' si tu n'obtient pas de résultat satisfaisant. 2) Split renvoie un tableau de chaînes basé sur 0 --> la 1° cellule est accessible par strLines(0), etc.
