Discussion :

[MichaSarah]

Bonjour,
Je suis à la recherche d'un code me permettant de passer à la ligne dans un textbox. J'ai trouvé quelques discussions sur le sujet mais celà ne fonctionne pas (ou peut être que je les utilise mal) .
Mon problème est le suivant :
J'ai un tableau Excel avec 15 colonnes .Je boucle sur la colonne 1 pour savoir si la cellule 15 n'est pas vide . Dans ce cas je recopie le contenu dans un textbox et je voudrais que le résultat suivant passe à la ligne mais cela ne fonctionne pas. J'ai mis multiline et EnterKeyBehavior à true. Je vous laisse ci-dessous le code utilisé. Si vous pouviez m'apporter votre aide , merci par avance.
MichaSarah

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
Private Sub UserForm_Activate()
Dim NumLigne As String
Dim temp1 As String
     Windows("Pamm's.xls").Activate
     Sheets("Pamms").Select
     NumLigne = 7
 
          Do While Not IsEmpty(Cells(NumLigne, 1))
               If Cells(NumLigne, 15) <> "" Then
                    temp1 = Cells(NumLigne, 15).Value
                    TextBox3 = temp1
               End If
                    NumLigne = NumLigne + 1
          Loop
End Sub

[Fvandermeulen]

Salut,
Pour ce genre de cas c'est bien plus simple d'utiliser une ListBox, voici ton code en imaginant que tu crées une ListBox1 à la place de ton TextBox3

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Activate()
Dim NumLigne As String
Dim temp1 As String
     Windows("Pamm's.xls").Activate
     Sheets("Pamms").Select
     NumLigne = 7
 
          Do While Not IsEmpty(Cells(NumLigne, 1))
               If Cells(NumLigne, 15) <> "" Then
                    Me.ListBox1.AddItem Cells(NumLigne, 15).Value
               End If
                    NumLigne = NumLigne + 1
          Loop
End Sub

A+

[laloune]

Bien le bonjour MichaSarah,

essaie avec : Chr(13), qui est le code ASCII pour le retour chariot

genre:

Code :

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

Textbox1.Value="Hello" & Chr(13) & "World"

non ?

[MichaSarah]

Bonjour Fvandermeulen et laloune,

Merci beaucoup pour vos solutions . J'ai regroupé les 2 pour avoir une présentation avec plusieurs lignes, et j'aurais une dernière petite question . Je souhaiterais dans la boucle ajouter une 2ème info dans la ListBox1 comme suit et que cette deuxième info se mette à la ligne. Mais avec le code & Chr(13) & celà ne fonctionne pas. Les infos restent à la suite et seule le sigle tabulation s'affiche. Y a t-il une propriété de la ListBox1 à modifier où bien faut il utiliser une autre synthaxe ?

Code :

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

1
2
3
4
5
6
Do While Not IsEmpty(Cells(NumLigne, 1))
               If Cells(NumLigne, 15) <> "" Then
                    Me.ListBox1.AddItem Cells(NumLigne, 15).Value & Chr(13) & Cells(NumLigne, 14).Value 
               End If
                    NumLigne = NumLigne + 1
 Loop

Encore merci
MichaSarah

[Fvandermeulen]

Salut,
Tu dois utiliser le même principe, c'est à dire Add Item

Donc:

Code :

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

1
2
3
4
5
6
7
Do While Not IsEmpty(Cells(NumLigne, 1))
               If Cells(NumLigne, 15) <> "" Then
                    Me.ListBox1.AddItem Cells(NumLigne, 15).Value 
                    Me.ListBox1.addItem Cells(NumLigne, 14).Value 
               End If
                    NumLigne = NumLigne + 1
 Loop

Tu peux aussi, faire apparaitre ça dans une deuxième colonne de ta listbox, dans ce cas:

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
Dim NumLigne As String
Dim temp1 As String
 
     Windows("Pamm's.xls").Activate
     Sheets("Pamms").Select
     NumLigne = 7
     ListBox1.ColumnCount = 2 'Défini le nombre de colonne
 
          Do While Not IsEmpty(Cells(NumLigne, 1))
               If Cells(NumLigne, 15) <> "" Then
                    Me.ListBox1.AddItem Cells(NumLigne, 15).Value 'Ajoute l'item par défaut dans 1ère Col.
                    Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(NumLigne, 14).Value 'Ajoute litem dans la même ligne, 2ème Col.
               End If
                    NumLigne = NumLigne + 1
          Loop

A+

[MichaSarah]

Bonjour Fvandermeulen,

Merci pour ces nouveaux conseils . Pour le 2ème cas j'ai compris le principe mais celà ne fonctionne pas chez moi.
Merci
MichaSarah

[MichaSarah]

Bonjour Fvandermeulen,
Je viens de m'apercevoir que je n'avais pas indiquer, dans propriété, le nombre de colonnes à afficher. Celà fonctionne.

Encore merci
MichaSarah