Discussion :

[grisan29]

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

[Invité]

Bonjour

Deux lignes dans une listbox 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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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

[patricktoulon]

bonjour grizan

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
textbox1.multiline=true

au plaisir

[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

[Invité]

Re

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

Philippe

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au plaisir

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[fring]

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... ...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

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.

[patricktoulon]

bonjour fring et grizan


je l'ai trouver chez microsoft

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

[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
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