textbox sur 2 lignes

Version imprimable

05/12/2010, 22h15
grisan29

textbox sur 2 lignes

bonjour a vous tous

c'est un fichier que vous commencer a connaitre depuis le temps que j'y travaille, cette fois ci c'est pour trouvé comment faire pour qu'un listbox puisse recevoir 2 lignes d'écritures et les transmettre au textbox qui lui les mettra sur la feuillesi ceci n'est pas très clair le fichier joint est plus explicite et il y a page de demandes

si vous avez des questions n'hésitez pas

cordialement

Pascal
06/12/2010, 07h14
Invité

Bonjour

Deux lignes dans une listbox :koi: ce n'est pas possible simplement, une piste serait de faire un remplissage avec un split de ta chaine.

Cependant tu ne sauras pas comment distinguer une ligne à deux données d'une ligne à une donnée.

Philippe
07/12/2010, 07h05
grisan29

bonjour Philippe

merci de ta réponse mais quelle est la solution autrement, le textbox ne le fait pas non plus, le listbox pas mieux reste la listview(bête noire a mon niveau)
s'il n'y a pas de solutions s'essayerai en 2 fois du coup

autrement comment puis je faire pour que le txtTranche puisse développer son contenu de la col C a la col H car pour le moment c'est bloqué en C et je ne sais pas comment faire pour modifier le code

Code:

.Cells(lig, "C") = Me.TxtTranche

que j'ai mis afin de pouvoir écrire le contenu de ce textbox une cell avant les prestation et que cette ligne soit écrite en majuscule gras, tous en sachant que la ligne de destination est inconnu

merci beaucoup

cordialement

Pascal
10/12/2010, 16h15
patricktoulon

heu
bonjour grizan
Code:

1 2 textbox1.multiline=true
au plaisir
10/12/2010, 20h29
grisan29

bonjour Patrick et les acteurs du forum

les propriétés du textbox sont déja sur true en face de multiline mais ce que je voudrais c'est que le textbox puisse prendre en son multiline les 2 lignes a recopiée de la feuille prestation et les retranscrire sur la feuille facturation
mais si comme me la dit philippe ce n'est pas possible ce n'est pas tres grave, j'avais joint le fichier pour essai, il y a une autre demande sur le post précédent
et par ailleurs une chose que je n'avais pas vu avant, comment se fait'il que lors du clic sur d2 afin d'afficher "facture sav" le numero qui est pris en compte est celui de la facture, hors facture et facturesav sont différent en colB

merci pour tout

cordialement

Pascal
10/12/2010, 20h37
Invité

Re

J'ai dit pas possible pour une listbox, attention.

Philippe
11/12/2010, 17h20
patricktoulon

re
bonjour grizan

si je comprend bien tu veux copier chaque ligne du textbox distinctement

il faudrais se renseigner si ca existe pour voir si on peut distinguer ligne par ligne le texbox
principe:
Code:

1 2 3 sheets(1).cells(0,1).value=textbox1.line(1) sheets(1).cells(0,2).value=textbox1.line(2)
au plaisir

bonjour grizan

tiens voila ce que j'ai glanner sur la toile
ce programme crée un fichier excel copié à partir d'un model préenregistré, lit un textbox ligne par ligne et copie chacune de ces lignes dans une cellule du fichier excel créé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
    *  'il faut rajouter Microsoft Excel 10.0 Object Library dans les references
    * 'déclaration de la chaine
    * Dim chaine As String
    * 'enregistrement de la chaine
    * chaine = Text1.Text
    * 'déclaration du tableau
    * Dim tableau() As String
    * 'lecture du textbox ligne par ligne avec pr caractere de séparation vbCrLf
    * tableau = Split(Text1, vbCrLf)
    *
    * nbligne = 0
    *
    * 'calcul du nombre de ligne
    * For j = 1 To Len(chaine)
    * If Mid(chaine, j, 1) = Chr(13) Then
    * nbligne = nbligne + 1
    * End If
    * Next j
    *
    * 'déclaration des chaines d'adresse
    * Dim adresse As String
    * Dim Source As String
    *
    * adresse = "C:\copie.xls"
    * Source = "C:\model.xls"
    *
    * 'creation et copie du fichier copie
    * Set dossier = CreateObject("Scripting.FileSystemObject")
    * copier = dossier.copyfile(Source, adresse)
    *
    * 'déclaration du systeme xls
    * Dim xls As excel.Workbook
    *
    * Set xls = GetObject(adresse)
    *
    * Dim ligneexcel As Integer
    * Dim cellule As String
    * ligneexcel = 1
    *
    * For j = 0 To nbligne
    *
    * 'composition des cellules pour la collone A
    * ligneexcel = ligneexcel + 1
    * cellule = Str(ligneexcel) 'cellule= " x" avec x le chiffre
    * Mid(cellule, 1, 1) = "A" 'remplace l'espace par la lettre de la collone
    *
    * 'copie dans les cellules du fichier xls
    * With xls
    * .Worksheets(1).Range(cellule).Value = tableau(j)
    * End With
    *
    * Next j
    *
    * 'enregistrement du fichier
    * xls.Save
    *
    * 'initialisation de la variable xls
    * Set xls = Nothing

si ca peut servir

au plaisr

14/12/2010, 17h38
grisan29

bonjour Patrick

Merci a toi de ce que tu trouve, mais ou dois je mettre le code que tu me donne ,dans un module?

cordialement

Pascal
14/12/2010, 20h53
fring

Citation:

Envoyé par grisan29

ce que je voudrais c'est que le textbox puisse prendre en son multiline les 2 lignes a recopiée de la feuille prestation et les retranscrire sur la feuille facturation

Bonjour,

Patrick, pour une fois il aurait été intéressant de faire de la pub pour le site où tu as été dénicher ce code... :mouarf: ...c'est du grand n'importe, les variables sont déclarées un peu partout dans le code et les 3/4 du code ne servent à rien :aie:

Grisan, avant d'aller plus loin, pourquoi passer par un TextBox pour copier les lignes d'une feuille à l'autre ? Je n'arrive pas à comprendre le but de cette manœuvre.
15/12/2010, 17h39
patricktoulon

re

bonjour fring et grizan

:aie::mouarf: je l'ai trouver chez microsoft :aie::aie::mouarf::mouarf:

je suis daccord sur ce point fring mais
ce qui était important a mon avis dans ce code c'était de comment la chaîne de caractère du textbox était découpé ligne par ligne pour pouvoir réécrire
ces lignes ou il veut car je crois que c'est de ça qu'il est question dans cette discussion enfin si j'ai bien compris

au plaisir
;)
28/12/2010, 11h36
grisan29

bonjour Patrick et fring

en fait si j'ai une prestation qui fait 2 lignes (pour cause de place sur le devis) je voudrais que ces 2 lignes soit reportées sur la feuille devis
j'ai pensé qu'un textbox ferai l'affaire mais si cela pose problème:cry:
que puis je faire sinon je ferai en 2 fois la manip

merci pour tout et bonne fêtes de fin d'année

cordialement

Pascal