Discussion :

[chris09300]

bonsoir
j'ai clos mon sujet un peu tot, casefere a repondu et a rajouter ce code.
qui fonctionne, mais je ne sais pas comment l'integrer dans le mien.

voici le code:

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
Private Sub CommandButton1_Click()
Dim es, x As Integer, ch As String, lg As Integer, y As Integer, result(), z As Integer
Dim lgcar As Integer
TextBox1 = "si on m'appelle alphonse, ce n'est pas mon vrai nom mais simplement un pseudo"
lg = 15
es = Split(UserForm1.TextBox1, " ")
ReDim Preserve result(x)
y = UBound(es)
z = 1
ch = ""
result(x) = es(0)
ch = es(0)
lgcar = 0
For x = 0 To y
   ReDim Preserve result(x)
   While Len(result(x)) < lg + 1 And z <= UBound(es)
      ch = ch & " " & es(z)
      result(x) = ch
      z = z + 1
   Wend
   ch = ""
   If z > UBound(es) Then Exit For
Next x
TextBox1.Text = result(0)
For x = 1 To UBound(result)
   TextBox1 = TextBox1 & Chr(10) & result(x)
Next x
End Sub

et voici le mien: bonsoir
le code fonctionne bien et reponds a ma demande.
mais le texbox est deja pre rempli,
je souhaiterais le remplir moi meme.
comment je peux integrer ton code dans le mien ci dessous.

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
Private Sub CB_Valid_Click()
Dim WsS As Worksheet
Dim MaRech As Range, MaPlage As Range
Dim DerLigS As Long, DerCol As Long
 
Set WsS = Sheets("Data")
DerLigS = WsS.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Set MaPlage = WsS.Range(WsS.Cells(1, 1), WsS.Cells(DerLigS, 1))
Set MaRech = MaPlage.Find(UF_Saisie.CB_numero, LookIn:=xlValues)
DerCol = WsS.Cells(MaRech.Row, WsS.Rows(MaRech.Row).Cells.Count).End(xlToLeft).Column
 
WsS.Cells(MaRech.Row, DerCol + 1) = CDate(DTPicker2)  'UF_Saisie.TB_Date)
With WsS.Cells(MaRech.Row, DerCol + 1)
    .AddComment
    .Comment.Visible = False
    .Comment.Text Text:=UF_Saisie.TB_Comment.Value
End With
UF_Saisie.Hide
Unload UF_Saisie
End Sub

Car apres j'utilise une macro ou je recupere le commentaire et je le sauvegarde sous pdf.

[casefayere]

As-tu vu ma dernière réponse ?

[chris09300]

oui d'ailleurs le premier code que j'ai mis c'est celui que tu m'a donne, je l'es teste avec un userform et textbox ca fonctionne bien, mais je ne sais comment l'integrer dans mon code.
cris

[casefayere]

donc je t'ai dit d'enlever la ligne de code :

Code :

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

TextBox1 = "si on m'appelle alphonse, ce n'est pas mon vrai nom mais simplement un pseudo"

je t'ai demandé si "CB_Valid_Click" est un bouton de commande", mais peu importe, remplis-tu ton textbox manuellement ?, si oui je te dis quoi faire

[chris09300]

j'ai fait les modif, et cela fonctionne tres bien cela correspond bien a mon souhait.
je te remercie beaucoup, cela me fait avancer,
et je n'arrete pas d'en apprendre tout les jours grace a ce forum et surtout a toutes les personnes comme toi qui nous epaule correctement.
merci
cris

[casefayere]

Je suis content si ça fonctionne mais tu ne réponds pas à ma dernière question car si tu remplis manuellement, je te propose dans le code de ta textbox, cette solution avec l'évènement AfterUpdate, ou "exit", à choisir :

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
Private Sub TextBox1_AfterUpdate()
Dim es, x As Integer, ch As String, lg As Integer, y As Integer, result(), z As Integer
Dim lgcar As Integer
lg = 15 'suivant la longueur choisie pour tes lignes
es = Split(UserForm1.TextBox1, " ")
ReDim Preserve result(x)
y = UBound(es)
z = 1
ch = ""
result(x) = es(0)
ch = es(0)
lgcar = 0
For x = 0 To y
   ReDim Preserve result(x)
   While Len(result(x)) < lg + 1 And z <= UBound(es)
      ch = ch & " " & es(z)
      result(x) = ch
      z = z + 1
   Wend
   ch = ""
   If z > UBound(es) Then Exit For
Next x
TextBox1.Text = result(0)
For x = 1 To UBound(result)
   TextBox1 = TextBox1 & Chr(10) & result(x)
Next x
End Sub

[chris09300]

il se bloque sur la ligne:

Code :

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

result(x) = es(0)

[casefayere]

oui, suivant les circonstances, je ne connais pas ton fichier, j'ai eu le probléme alors au lieu de :

Code :

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

Private Sub TextBox1_AfterUpdate()

choisis :

Code :

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

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)