Dans une macro, je fais une concatenation entre le contenu d'une cellule
définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2 lignes)
et le contenu d'une autre cellule dont le contenu est cours ( numero de
stand).
Mon problème est que le numero de stand vient se positionner sous le texte
de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens:
We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at booth
:
3E6
Alors que je souhaiterais obtenir:
We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
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
Michel Gaboly
Bonsoir,
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test() Dim Pos As Integer Pos = Application.WorksheetFunction.Search(":", Range("Body")) MsgBox Left(Range("Body"), Pos) & " " & Range("Toto") End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2 lignes) et le contenu d'une autre cellule dont le contenu est cours ( numero de stand).
Mon problème est que le numero de stand vient se positionner sous le texte de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens: We are pleased to confirm below your Schedule of Appointments. Each appointment is about 20 minutes long and is conveniently scheduled at booth : 3E6
Alors que je souhaiterais obtenir: We are pleased to confirm below your Schedule of Appointments. Each appointment is about 20 minutes long and is conveniently scheduled at booth : 3E6
Merci d'avance pour vos bons conseils.
Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonsoir,
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test()
Dim Pos As Integer
Pos = Application.WorksheetFunction.Search(":", Range("Body"))
MsgBox Left(Range("Body"), Pos) & " " & Range("Toto")
End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule
définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2 lignes)
et le contenu d'une autre cellule dont le contenu est cours ( numero de
stand).
Mon problème est que le numero de stand vient se positionner sous le texte
de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens:
We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at booth
:
3E6
Alors que je souhaiterais obtenir:
We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test() Dim Pos As Integer Pos = Application.WorksheetFunction.Search(":", Range("Body")) MsgBox Left(Range("Body"), Pos) & " " & Range("Toto") End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2 lignes) et le contenu d'une autre cellule dont le contenu est cours ( numero de stand).
Mon problème est que le numero de stand vient se positionner sous le texte de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens: We are pleased to confirm below your Schedule of Appointments. Each appointment is about 20 minutes long and is conveniently scheduled at booth : 3E6
Alors que je souhaiterais obtenir: We are pleased to confirm below your Schedule of Appointments. Each appointment is about 20 minutes long and is conveniently scheduled at booth : 3E6
Merci d'avance pour vos bons conseils.
Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Christophe Joly
Michel:
Et en plus..........c'était ca. Je veux dire le saut de ligne à la fin de BODY. Presque la honte mais je survivrais. Preuve en est si besoin en était encore que l'union fait la force et ceci d'autant plus que le demandeur est pas très fort.
Merci.
Christophe
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test() Dim Pos As Integer Pos = Application.WorksheetFunction.Search(":", Range("Body")) MsgBox Left(Range("Body"), Pos) & " " & Range("Toto") End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2 lignes)
et le contenu d'une autre cellule dont le contenu est cours ( numero de stand).
Mon problème est que le numero de stand vient se positionner sous le texte
de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens: We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
Alors que je souhaiterais obtenir: We are pleased to confirm below your Schedule of Appointments. Each appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
Merci d'avance pour vos bons conseils.
Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Michel:
Et en plus..........c'était ca. Je veux dire le saut de ligne à la fin de
BODY. Presque la honte mais je survivrais. Preuve en est si besoin en était
encore que l'union fait la force et ceci d'autant plus que le demandeur est
pas très fort.
Merci.
Christophe
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:3FD0F7F8.6DC91909@Suppgaboly.com...
Bonsoir,
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test()
Dim Pos As Integer
Pos = Application.WorksheetFunction.Search(":", Range("Body"))
MsgBox Left(Range("Body"), Pos) & " " & Range("Toto")
End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule
définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2
lignes)
et le contenu d'une autre cellule dont le contenu est cours ( numero de
stand).
Mon problème est que le numero de stand vient se positionner sous le
texte
de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens:
We are pleased to confirm below your Schedule of Appointments.
Each
appointment is about 20 minutes long and is conveniently scheduled at
booth
:
3E6
Alors que je souhaiterais obtenir:
We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at
booth
Et en plus..........c'était ca. Je veux dire le saut de ligne à la fin de BODY. Presque la honte mais je survivrais. Preuve en est si besoin en était encore que l'union fait la force et ceci d'autant plus que le demandeur est pas très fort.
Merci.
Christophe
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test() Dim Pos As Integer Pos = Application.WorksheetFunction.Search(":", Range("Body")) MsgBox Left(Range("Body"), Pos) & " " & Range("Toto") End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2 lignes)
et le contenu d'une autre cellule dont le contenu est cours ( numero de stand).
Mon problème est que le numero de stand vient se positionner sous le texte
de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens: We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
Alors que je souhaiterais obtenir: We are pleased to confirm below your Schedule of Appointments. Each appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
Merci d'avance pour vos bons conseils.
Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Michel Gaboly
Le principal est que le problème soit résolu, Christophe ;-)))
Michel:
Et en plus..........c'était ca. Je veux dire le saut de ligne à la fin de BODY. Presque la honte mais je survivrais. Preuve en est si besoin en était encore que l'union fait la force et ceci d'autant plus que le demandeur est pas très fort.
Merci.
Christophe
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test() Dim Pos As Integer Pos = Application.WorksheetFunction.Search(":", Range("Body")) MsgBox Left(Range("Body"), Pos) & " " & Range("Toto") End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2 lignes)
et le contenu d'une autre cellule dont le contenu est cours ( numero de stand).
Mon problème est que le numero de stand vient se positionner sous le texte
de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens: We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
Alors que je souhaiterais obtenir: We are pleased to confirm below your Schedule of Appointments. Each appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
Merci d'avance pour vos bons conseils.
Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Le principal est que le problème soit résolu, Christophe ;-)))
Michel:
Et en plus..........c'était ca. Je veux dire le saut de ligne à la fin de
BODY. Presque la honte mais je survivrais. Preuve en est si besoin en était
encore que l'union fait la force et ceci d'autant plus que le demandeur est
pas très fort.
Merci.
Christophe
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:3FD0F7F8.6DC91909@Suppgaboly.com...
Bonsoir,
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test()
Dim Pos As Integer
Pos = Application.WorksheetFunction.Search(":", Range("Body"))
MsgBox Left(Range("Body"), Pos) & " " & Range("Toto")
End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule
définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2
lignes)
et le contenu d'une autre cellule dont le contenu est cours ( numero de
stand).
Mon problème est que le numero de stand vient se positionner sous le
texte
de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens:
We are pleased to confirm below your Schedule of Appointments.
Each
appointment is about 20 minutes long and is conveniently scheduled at
booth
:
3E6
Alors que je souhaiterais obtenir:
We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at
booth
Le principal est que le problème soit résolu, Christophe ;-)))
Michel:
Et en plus..........c'était ca. Je veux dire le saut de ligne à la fin de BODY. Presque la honte mais je survivrais. Preuve en est si besoin en était encore que l'union fait la force et ceci d'autant plus que le demandeur est pas très fort.
Merci.
Christophe
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Quel est le dernier caratère de BODY ? Ce ne serait pas un saut de ligne ?
Si oui, il suffit de l'enlever.
Autre piste (à adapter) :
Sub Test() Dim Pos As Integer Pos = Application.WorksheetFunction.Search(":", Range("Body")) MsgBox Left(Range("Body"), Pos) & " " & Range("Toto") End Sub
On se base sur la position du ":"
Bonsoir:
Dans une macro, je fais une concatenation entre le contenu d'une cellule définie par un nom (BODY) (le texte qui est formaté pour tenir sur 2 lignes)
et le contenu d'une autre cellule dont le contenu est cours ( numero de stand).
Mon problème est que le numero de stand vient se positionner sous le texte
de "Body" et non à la suite du dernier mot du texte de "Body".
J'obtiens: We are pleased to confirm below your Schedule of Appointments. Each
appointment is about 20 minutes long and is conveniently scheduled at booth
: 3E6
Alors que je souhaiterais obtenir: We are pleased to confirm below your Schedule of Appointments. Each appointment is about 20 minutes long and is conveniently scheduled at booth
