Mettre le textbox "adresse" et "ville" sur 2 lignes

Fermé
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021 - 11 oct. 2020 à 01:39
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 5 nov. 2020 à 07:13
Bonjour,
De nouveau dans la panade en VBA, et après plusieurs tentatives vaines, je viens ici chercher l'aide d'une âme charitable.

je recherche comment avoir mon textbox "adresse" et "ville" sur 2 lignes après le "-"
(au cas où 1 client soit étranger et qu'il ait une adresse rue sur 2 lignes). Est-ce possible ?


donc au lieu d'avoir :

Mr de la Tronche en Biais
Z.I de la Fabrique - 75 rue Tartempion
PARIS - FRANCE

avoir

Mr de la Tronche en Biais
Z.I. de la Fabrique
75 rue Tartempion
75001 PARIS
FRANCE

With WordDoc.Sections(1).Headers(1).Range.Tables(1)

.cell(1, 2).Range.Text = Usf.TextBox4.Value & " " & Usf.TextBox5.Value & _
" " & Usf.TextBox6.Value & " '****Nom + Prénom

.cell(2, 2).Range.Text = Usf.TextBox7.Value & vbLf & "," & vbLf '******adresse rue

.cell(3, 2).Range.Text = Usf.TextBox8.Value & " " & Usf.TextBox9.Value '*******CP + ville

End With

(pour info j'ai bien essayé de créer des nouveaux textbox mais je n'arrive pas à sauvegarder les nouvelles données).

Merci d'avance de ce que vous pourrez faire.

cdt
glaieuls29

Configuration: Windows / Firefox 81.0
A voir également:

14 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
Modifié le 11 oct. 2020 à 07:46
Bonjour,

Pouvez mettre votre fichier a dispo et apparemment le fichier Word( sauf erreur de ma part)

Le 75001 sort d'ou vu qu'il n'est pas dans l'adresse d'origine

.cell(x,x) ???
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
11 oct. 2020 à 08:42
bonjour fa894009 content de te revoir. (tu m'avais déjà aidé sur ce fichier il y a plusieurs mois )

c'etait un exemple.

ces données sont saisies au moment de la réservation des chambres.
la saisie de l'adresse ne se fait dans textbox d'une ligne.
ex saisie de l'adresse : Z.I. de la Fabrique - 75 rue tartempioo
je voudrais qu'après un éventuel "-" il y ait un saut de ligne pour faire apparaitre les informations sur une 2e ligne adresse du document word.

Idem pour le pays
si nécessaire, le pays est saisi dans textbox "ville" à la suite du nom de la ville et est séparé par un "-"

en fait, avec le vba que j'ai mis je voudrais si possible une adresse complète sur 3 ou 5 lignes si nécessaire

Nom, Prénom
adresse
adresse (si nécessaire
code postal + ville
Pays


j'espère avoir été plus précis.
je m'absente et ne reviens que dans la soirée.

merci d'avance

cdt

glaieuls
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
Modifié le 11 oct. 2020 à 11:30
Re,

CA roule?

Je regarde la chose



Suite:

        '------------------- Client ------------------
        With WordDoc.Sections(1).Headers(1).Range.Tables(1)
            .cell(1, 1).Range.Text = Usf.TextBox4.Value & " " & Usf.TextBox5.Value & " " & Usf.TextBox6.Value & " "
            b7 = Usf.TextBox7.Value
            If InStr(b7, "-") Then
                Adrr = Split(b7, "-")
                b7 = Adrr(0) & vbNewLine & Trim(Adrr(1))
            End If
            .cell(2, 1).Range.Text = b7
            b9 = Usf.TextBox9.Value
            If InStr(b9, "-") Then
                b9 = Replace(b9, "-", vbNewLine)
            End If
            .cell(3, 1).Range.Text = Usf.TextBox8.Value & " " & b9
        End With
        '------------------- Client ------------------
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
11 oct. 2020 à 19:22
re, f894009
oui ca va merci et comme l'hiver arrive j'avais envie de me replonger dans ce fichier. et merci de replonger tes mains dans le camboui.


ligne 4 : à la ligne b7 = usf.textbox7.value ca me marque erreur compilation variable non définie ====> j'ai donc fait dim b7 as string, dim b9 as integer.

ligne 6 : puis re erreur à la ligne adrr---------> dim adrr as string

ligne 7 : puis re erreur à la ligne b7 = adrr(0) --------message " erreur de compilation - tableau attendu".
je bloque car je ne comprends pas ce que ca veut dire a la ligne 7

en espérant avoir été aussi clair que possible.

cdt

glaieul
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
12 oct. 2020 à 07:08
Bonjour,

Dim b9 as integer.

Non, String

dim adrr as string

Non, Variant
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
12 oct. 2020 à 07:35
bonjour,

je travaillais sur le fichier avant de voir que tu m'avais repondu.

je viens a l'instant de faire un test en supprimant les lignes 6 et 7 et en mettant dim b9 as string et ca semble fonctionner.

j'applique tes modifs et je te tiens au courant

cdt

glaieuls
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
12 oct. 2020 à 07:44
heuu je les mets ou ?

non, string
non, variant
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
12 oct. 2020 à 11:43
Re,

Ben, c'est la declaration des variables
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
12 oct. 2020 à 19:02
bonsoir,
je viens de rentrer ....et je viens de comprendre ce que tu as voulu me dire ce matin lol :-).

en fait fallait que j'écrive : dim adrr as variant ...
moi j'essayais : non, variant mdr
je comprenais rien ça me marquait des messages d'erreur dans la déclaration.
comme quoi un peu de recul peut faire du bien mdr.

et ça marche maintenant.

je voudrais pas abuser mais pourrais tu m'expliquer :

1) quelle différence il y a entre cette solution et la solution qui consiste à supprimer la ligne 6 et la ligne 7 ?

2) j'avais opté en première idée pour la création des" textbox" spécifiques pour la 2e ligne de l'adresse et pour le pays. mais ces 2 nouvelles saisies étaient perdues à chaque fois. j'ai jamais réussi a les récupérer. (en test ça fonctionnait à l'affichage immédiat mais pas en "back-up". )
c'est la raison pour laquelle j'ai essayé la solution du "-".

la manip à faire serait-elle complexe ?

vraiment merci de ce que tu as fait.

cdt

glaieuls
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
12 oct. 2020 à 19:13
Re,

Qui a ecrit ceci:
je voudrais qu'après un éventuel "-" il y ait un saut de ligne pour faire
Donc le code que je vous ai remis tient compte du fait que le "-" est present ou pas.
Idem pour Ville avec ou sans CP
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
12 oct. 2020 à 19:26
A ok !! je comprends la différence .

je comprends vite mais à condition qu'on m'explique longtemps lol

merci !!

et pour le 2eme point (j'espère que j'avais été assez clair) ?
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
13 oct. 2020 à 07:05
Bonjour,

Pour votre 2eme cas, quel code aviez vous écrit.
Pouvez vous me remettre a dispo le fichier docx, chez moi j'ai une erreur a l'écriture.
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
13 oct. 2020 à 09:21
bonjour,
on est en messagerie privée ? comment fait on pour envoyer un fichier ?

tout marche impeccable maintenant grâce a toi.!!!!

ce que je te demandais c'était juste pour comprendre pourquoi ça n'enregistrait pas les données des 2 nouvelles textbox. (je n'avais pas codé je pensais que ça se ferait automatiquement comme pour les autres textbox).

autrement si juste un petit truc si c'est pas trop abusé de ma part :

pour chaque réservation il y a des prestations récurrentes, obligatoires telles que :
taxe de frais de séjour, l'eau, électricité, le ménage, la caution.

pour chaque réservation comment peut-on faire, si c'est faisable, pour faire systématiquement apparaitre ces prestations sans avoir à les sélectionner.

et la cerise sur le gâteau serait avec leur total correspondant.

est-ce faisable ?

cdt

glaieuls
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
13 oct. 2020 à 11:53
Re,
on est en messagerie privée ? comment fait on pour envoyer un fichier ?
Nous ne sommes pas en messagerie privee.
Cherchez et vous trouverez pour y acceder.

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/




est-ce faisable ?
Tout est faisable et comme je le dis souvent: ce que je sais pas faire je le laisse aux autres....
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
13 oct. 2020 à 13:37
re,
voili voilou je ne me souvenais plus du site (j'ai bien vu qu'il en existait plein mais celui dont j'étais certain qu'il fonctionnait bien n'arrivait pas dans les réponses)

https://www.cjoint.com/c/JJnlDpuDXHe

cdt glaieuls

ps : si ca gene que je tutoie....pas de pb je ne le referai plus mais par contre moi ca ne me genera pas du tout
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
Modifié le 13 oct. 2020 à 16:59
Re,

ps : si ca gene que je tutoie
L'essentiel est de rester en vie.....

Je recupere le baigneur et regarde la chose



Suite:

Si vous recopiez ou modifiez un code, evitez de faire des erreurs.

ex: l'espace dans les replace "- "

Au depart il ne devait y avoir qu'un "-", pas une chiee....
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
13 oct. 2020 à 17:22
re,
mais j'ai fait exprêt. j'ai testé et adapté à ce que je pensais que c'etait finalement le mieux.

désolé si ça vous braque. de cette façon je me suis aperu que je n'étais pas bloqué par le nombre de "-".
Je ne savais même pas que c’était possible et c'est en "testant" pour essayer de comprendre que je me suis aperçu de la chose.

cdt

Glaieuls
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
13 oct. 2020 à 17:28
Re,

désolé si ça vous braque.
Y a pas d'lezard
Les prestations (aux tarifs abusifs, me semble-t-il), que vous voulez calculees en auto devront etre affichees dans la partie date, prestation, infos?
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
13 oct. 2020 à 17:58
re,
oufff ! j'avais cru que j'avais m...dé.

oui voilà ca serait super que ces prestations s'affichent en auto dans ce "tableau" et qu'elles soient récupérées sur le fichier word.

quant à la ligne concernant la durée de location on pourrait aussi l'inclure en automatique ou pas ?

ou alors si cela est plus facile à faire, de tout mettre en "automatique" et moi je supprimerai les lignes qui ne sont pas nécessaires en cliquant sur la X rouge.
comme ça il n'y aura pas d'oubli.

qu'en pensez-vous ?

les tarifs que j'ai rentré ne sont que fictifs. c'est pour pouvoir faire des calculs.

et re re re...re merci encore

cdt

glaieuls
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
13 oct. 2020 à 18:15
re,
au fait, pour la taxe de séjour, je viens de m'apercevoir que j'ai oublié de saisir les unités (nb nuitées x nb personnes) soit pour le cas présent
taxe de séjour.............. : 1.5 x 70 = 105

cdt

glaieuls
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
13 oct. 2020 à 18:32
Re,
Ok, je regarde la chose.
Demandera un peu de temps car y a une autre personne attend que je lui code kake lignes
Je vais voir à avancer sur les deux sujet
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
13 oct. 2020 à 18:35
oui je comprends ....tkte pas
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
2 nov. 2020 à 10:22
bonjour f894009.
je me permets de revenir vers toi, pour savoir si tu avais pu regarder le pb.
merci d'avance

glaieuls29
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
2 nov. 2020 à 10:45
Bonjour,

J'ai regarde la chose, va pas etre simple a concrétiser. Les zones de code a modifer sont plutot figees
Je vais voir.....
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
2 nov. 2020 à 11:54
Re,

La partie epineuse est les histoire de taxe, eau et autres

Txtbox Adresse, c'est fait : https://mon-partage.fr/f/MCJNVA4b/
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
3 nov. 2020 à 20:25
Bonjour F894009,

Merci pour ton fichier qui fonctionne super bien.
maintenant je le maltraite, le teste, le '"bidouille", je vois ce qui bouge, bloque, et ainsi j'apprends beaucoup de choses. (mais non je te rassure je ne maltraite qu'une copie :-)).

pour ce que qui est de la partie épineuse, si elle monopolise trop de temps laisse tomber. mais c'est très sympa d'avoir essayé.

Juste un renseignement complémentaire :
c'est bien le code commandbutton1 qui sert a sauvegarder la fiche client (avec les informations saisies : nom prénom ....). ?

quelles sont les lignes de code qui concernent le nom prénom... ?
peut-on rajouter facilement un textbox " supplémentaire à sauvegarder?

j'espère avoir été clair

merci d'avance

Glaieuls29




' ***** BOUTONS ***********************************************************************************
Private Sub CommandButton1_Click() ' Valider
Dim idx As Long, i As Integer, j As Integer
Dim ok As Boolean
Dim S As String

S = Me.TextBox12.Value
Me.TextBox12.Value = Replace(S, vbCrLf, "|")

ok = True
For i = 0 To UBound(TOblig)
If Me.Controls("Textbox" & TOblig(i)).Value = "" Then ok = False
Next i
If Not ok Then
If Me.TextBox5.Value <> "" And UBound(TPark_usf) > 1 Then ok = True
End If

If ok Then
If NewResa Then
TClient = Ajout_Ligne_T(TClient)
TClient(UBound(TClient, 1), 1) = Me.TextBox1.Value
End If
idx = Idx_T2D(TClient, Me.TextBox1.Value, 1)
TClient(idx, 2) = CSng(CDate(Me.Controls("Textbox" & 2).Value))
TClient(idx, 3) = CLng(CDate(Me.Controls("Textbox" & 3).Value))
For j = 4 To 16
TClient(idx, j) = Me.Controls("Textbox" & j).Value
Next j
Sauvegarde
Unload Me
Else
Me.Label600.Visible = True
End If
End Sub
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
4 nov. 2020 à 07:24
Bonjour,

Code nom prenom: y a des commentaires a cote des procedures
ex
 Private Sub CommandButton1_Click() ' Valider


un textbox " supplémentaire à sauvegarder?
Oui
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
4 nov. 2020 à 10:36
re,
oui j'ai bien vu ce commentaire (le seul d'ailleurs dans ces lignes),
mais pour SAUVEGARDER la saisie contenue dans un nouveau textbox il faut modifier quoi et comment ?
créer un nouveau textbox : ca je sais faire
enregistrer et récupérer la saisie de ce nouveau textbox : ça je n'y arrive pas

par ex si on créait un textbox "pays"; ça je sais faire,

mais après avoir renseigné le pays, validé la fiche puis quitté cette fiche, ce textbox restera vide à la prochaine ouverture de la fiche.

cdt

glaieuls29
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
4 nov. 2020 à 17:27
Bonjour,

Le moins que nous pouvons dire c'est que ca fout la zone.

En recherchant la partie fiche Word, il y a ceci pour avoir le pays dans la txtbox ville
            b9 = Usf.TextBox9.Value
            If InStr(b9, "-") Then
                b9 = Replace(b9, "- ", vbNewLine) '****fait un saut de ligne à chaque "-" pour ajouter ligne pays
            End If
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
4 nov. 2020 à 18:12
re,
oui, mais le pays saisi n'est pas conservé quand je fait "valider" apres la saisie.

si le pays saisi est France,

ca s'affiche en test "immédiat" mais l'info sera perdue même après une validation desque l'on aura fermé le programme.

merci.
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
4 nov. 2020 à 20:34
Re,

Je vais teste pour voir ce qui ne marcherait pas
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
4 nov. 2020 à 21:21
merci.
juste pour info

l'usf_interface du fichier original ne comportait qu'un textbox unique "ville" d'une grande longueur.
je l'ai donc diminué et ainsi pu créer le textbox "pays" par la place récupérée.
j'ai ensuite apporté les modif dans le print_word.

j'ai procédé pareil pour le textbox ''adresse''. il n'y avait qu'un seul long textbox.

Je pense qu'il y a des modifs à faire dans le code "commandbutton1" mais je ne sais pas ou ni quoi faire.

merci d'avance de jeter un oeil.

glaieuls29
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
5 nov. 2020 à 07:13
Bonjour,

Comme je vous l'ai écrit, le code est fait d'une façon que modifier pour intercaler ou ajouter des textbox n'est pas si simple que vous croyez. Je vais voir si faisable sans trop de dommages collatéraux.
0