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

Réponse 1 / 14

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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) ???

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > 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 ------------------

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > 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

Réponse 2 / 14

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

Réponse 3 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 oct. 2020 à 11:43

Re,

Ben, c'est la declaration des variables

Réponse 4 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

Réponse 5 / 14

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) ?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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.

Réponse 6 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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....

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > 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....

Réponse 7 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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?

Réponse 8 / 14

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

Réponse 9 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
13 oct. 2020 à 18:35

oui je comprends ....tkte pas

Réponse 10 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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.....

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 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/

Réponse 11 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

Réponse 12 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

Réponse 13 / 14

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.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
4 nov. 2020 à 20:34

Re,

Je vais teste pour voir ce qui ne marcherait pas

Réponse 14 / 14

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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.

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

14 réponses

Discussions similaires

Newsletters