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
François Picalausa
Bonjour/soir,
Tu peux trouver la position de l'espacement à l'aide de Instr: Dim SepPos As Long Const MyText = "gatage alfred sa"
SepPos = Instr(1, MyText, " ")
Pour découper ta chaine, tu peux utiliser Mid$ et Left$: If SepPos Then 'On vérifie qu'il y avait bien un séparateur Text1.Text = Left$(MyText, SepPos - 1) Text2.Text = Mid$(MyText, SepPos + 1) End If
"lou" a écrit dans le message de news:406f26df$0$2015$
bonsoir
un peux d'aide svp j'ai un champ texte qui peux contenir ce genre de truc ex dupond jaques gatage alfred sa abc leasig nv
ce que je voudrais faire c'est d'inserer le mot avant le premier espace dans le champ A et tout les mots apres le premier espace dans le champ B
MERCI pour votre aide
Bonjour/soir,
Tu peux trouver la position de l'espacement à l'aide de Instr:
Dim SepPos As Long
Const MyText = "gatage alfred sa"
SepPos = Instr(1, MyText, " ")
Pour découper ta chaine, tu peux utiliser Mid$ et Left$:
If SepPos Then 'On vérifie qu'il y avait bien un séparateur
Text1.Text = Left$(MyText, SepPos - 1)
Text2.Text = Mid$(MyText, SepPos + 1)
End If
Tu peux trouver la position de l'espacement à l'aide de Instr: Dim SepPos As Long Const MyText = "gatage alfred sa"
SepPos = Instr(1, MyText, " ")
Pour découper ta chaine, tu peux utiliser Mid$ et Left$: If SepPos Then 'On vérifie qu'il y avait bien un séparateur Text1.Text = Left$(MyText, SepPos - 1) Text2.Text = Mid$(MyText, SepPos + 1) End If
"lou" a écrit dans le message de news:406f26df$0$2015$
bonsoir
un peux d'aide svp j'ai un champ texte qui peux contenir ce genre de truc ex dupond jaques gatage alfred sa abc leasig nv
ce que je voudrais faire c'est d'inserer le mot avant le premier espace dans le champ A et tout les mots apres le premier espace dans le champ B
MERCI pour votre aide
lou
parfait comme toujours merci
"François Picalausa" a écrit dans le message de news: #
Bonjour/soir,
Tu peux trouver la position de l'espacement à l'aide de Instr: Dim SepPos As Long Const MyText = "gatage alfred sa"
SepPos = Instr(1, MyText, " ")
Pour découper ta chaine, tu peux utiliser Mid$ et Left$: If SepPos Then 'On vérifie qu'il y avait bien un séparateur Text1.Text = Left$(MyText, SepPos - 1) Text2.Text = Mid$(MyText, SepPos + 1) End If
"lou" a écrit dans le message de news:406f26df$0$2015$ > bonsoir > > un peux d'aide svp > j'ai un champ texte qui peux contenir ce genre de truc > ex dupond jaques > gatage alfred sa > abc leasig nv > > ce que je voudrais faire c'est d'inserer le mot > avant le premier espace dans le champ A > et tout les mots apres le premier espace dans le champ B > > MERCI pour votre aide
parfait comme toujours
merci
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de news:
#8iCzAcGEHA.1180@TK2MSFTNGP09.phx.gbl...
Bonjour/soir,
Tu peux trouver la position de l'espacement à l'aide de Instr:
Dim SepPos As Long
Const MyText = "gatage alfred sa"
SepPos = Instr(1, MyText, " ")
Pour découper ta chaine, tu peux utiliser Mid$ et Left$:
If SepPos Then 'On vérifie qu'il y avait bien un séparateur
Text1.Text = Left$(MyText, SepPos - 1)
Text2.Text = Mid$(MyText, SepPos + 1)
End If
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:406f26df$0$2015$ba620e4c@news.skynet.be
> bonsoir
>
> un peux d'aide svp
> j'ai un champ texte qui peux contenir ce genre de truc
> ex dupond jaques
> gatage alfred sa
> abc leasig nv
>
> ce que je voudrais faire c'est d'inserer le mot
> avant le premier espace dans le champ A
> et tout les mots apres le premier espace dans le champ B
>
> MERCI pour votre aide
"François Picalausa" a écrit dans le message de news: #
Bonjour/soir,
Tu peux trouver la position de l'espacement à l'aide de Instr: Dim SepPos As Long Const MyText = "gatage alfred sa"
SepPos = Instr(1, MyText, " ")
Pour découper ta chaine, tu peux utiliser Mid$ et Left$: If SepPos Then 'On vérifie qu'il y avait bien un séparateur Text1.Text = Left$(MyText, SepPos - 1) Text2.Text = Mid$(MyText, SepPos + 1) End If
"lou" a écrit dans le message de news:406f26df$0$2015$ > bonsoir > > un peux d'aide svp > j'ai un champ texte qui peux contenir ce genre de truc > ex dupond jaques > gatage alfred sa > abc leasig nv > > ce que je voudrais faire c'est d'inserer le mot > avant le premier espace dans le champ A > et tout les mots apres le premier espace dans le champ B > > MERCI pour votre aide