Bonjour j'ai cr=E9=E9 un formulaire avec deux champs NOM, et=20
ADR. Je les renseigne par le biais d'une userform, une=20
zone textbox et une zone textbox avec multiline.
Le probl=E8me est sur le texte renvoy=E9 en multline, il=20
apparait un carr=E9 au d=E9but de chaque ligne.
Comment faire disparaitre cette erreur ?
Pour info, voici le code de mon bouton submit :
Private Sub btOK_Click()
ActiveDocument.FormFields("NOM").Result =3D s_nom
ActiveDocument.FormFields("ADR").Result =3D s_adr
Unload Me
End Sub
Note, j'utilise la valeur de ces champs de nouveau avec=20
les renvois de signet...
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
Pascal Engelmajer
Salut, essaie ceci dans ta procédure Dim t t = Split(s_adr, vbCrLf) r = t(0) For i = 1 To UBound(t) r = r & Chr$(13) & t(i) Next i ActiveDocument.FormFields("ADR").Result = r
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Coyote" a écrit dans le message de news: de4301c3efc4$61045c10$ Bonjour j'ai créé un formulaire avec deux champs NOM, et ADR. Je les renseigne par le biais d'une userform, une zone textbox et une zone textbox avec multiline.
Le problème est sur le texte renvoyé en multline, il apparait un carré au début de chaque ligne.
Comment faire disparaitre cette erreur ?
Pour info, voici le code de mon bouton submit : Private Sub btOK_Click() ActiveDocument.FormFields("NOM").Result = s_nom ActiveDocument.FormFields("ADR").Result = s_adr Unload Me End Sub
Note, j'utilise la valeur de ces champs de nouveau avec les renvois de signet...
Merci d'avance
Coyote
Salut,
essaie ceci dans ta procédure
Dim t
t = Split(s_adr, vbCrLf)
r = t(0)
For i = 1 To UBound(t)
r = r & Chr$(13) & t(i)
Next i
ActiveDocument.FormFields("ADR").Result = r
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Coyote" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: de4301c3efc4$61045c10$a601280a@phx.gbl...
Bonjour j'ai créé un formulaire avec deux champs NOM, et
ADR. Je les renseigne par le biais d'une userform, une
zone textbox et une zone textbox avec multiline.
Le problème est sur le texte renvoyé en multline, il
apparait un carré au début de chaque ligne.
Comment faire disparaitre cette erreur ?
Pour info, voici le code de mon bouton submit :
Private Sub btOK_Click()
ActiveDocument.FormFields("NOM").Result = s_nom
ActiveDocument.FormFields("ADR").Result = s_adr
Unload Me
End Sub
Note, j'utilise la valeur de ces champs de nouveau avec
les renvois de signet...
Salut, essaie ceci dans ta procédure Dim t t = Split(s_adr, vbCrLf) r = t(0) For i = 1 To UBound(t) r = r & Chr$(13) & t(i) Next i ActiveDocument.FormFields("ADR").Result = r
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Coyote" a écrit dans le message de news: de4301c3efc4$61045c10$ Bonjour j'ai créé un formulaire avec deux champs NOM, et ADR. Je les renseigne par le biais d'une userform, une zone textbox et une zone textbox avec multiline.
Le problème est sur le texte renvoyé en multline, il apparait un carré au début de chaque ligne.
Comment faire disparaitre cette erreur ?
Pour info, voici le code de mon bouton submit : Private Sub btOK_Click() ActiveDocument.FormFields("NOM").Result = s_nom ActiveDocument.FormFields("ADR").Result = s_adr Unload Me End Sub
Note, j'utilise la valeur de ces champs de nouveau avec les renvois de signet...
