Mettre le textbox "adresse" et "ville" sur 2 lignes
glaieuls29
Messages postés
174
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Mettre le textbox "adresse" et "ville" sur 2 lignes
- Darkino nouvelle adresse - Guide
- Adresse mac - Guide
- Changer adresse dns - Guide
- Adresse url - Guide
- Comment connaître son adresse ip - Guide
14 réponses
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) ???
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) ???
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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) ?
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) ?
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
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
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....
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....
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
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
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
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
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
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
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
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
bonjour f894009.
je me permets de revenir vers toi, pour savoir si tu avais pu regarder le pb.
merci d'avance
glaieuls29
je me permets de revenir vers toi, pour savoir si tu avais pu regarder le pb.
merci d'avance
glaieuls29
Re,
La partie epineuse est les histoire de taxe, eau et autres
Txtbox Adresse, c'est fait : https://mon-partage.fr/f/MCJNVA4b/
La partie epineuse est les histoire de taxe, eau et autres
Txtbox Adresse, c'est fait : https://mon-partage.fr/f/MCJNVA4b/
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
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
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
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
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
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
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.
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.
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
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
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
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 ------------------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
Dim b9 as integer.
Non, String
dim adrr as string
Non, Variant