Discussion :

[MichaSarah]

Bonjour,
Je suis actuellement bloqué sur le point suivant, peut-être pourriez-vous orienter mes recherches.
J'ai une ListBox que j'alimente comme suit

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
 
Private Sub UserForm_Activate()
     Dim NumLigne As String
 
     Windows("Pamm's.xls").Activate
     Sheets("Pamms").Select
     NumLigne = 7
 
                Do While Not IsEmpty(Cells(NumLigne, 28))
                    If Cells(NumLigne, 25) <> "" Then
                         If Cells(NumLigne, 2).Value = "" Then
 
                             Me.Questions.AddItem Cells(NumLigne, 28).Value
                             Me.Questions.List(Questions.ListCount - 1, 1) = Cells(NumLigne, 14).Value
                             Me.Questions.List(Questions.ListCount - 1, 2) = Cells(NumLigne, 1).Value
                             Me.Questions.List(Questions.ListCount - 1, 3) = Cells(NumLigne, 6).Value & Cells(NumLigne, 7).Value & Cells(NumLigne, 8).Value & Cells(NumLigne, 9).Value
                             Me.Questions.List(Questions.ListCount - 1, 4) = Cells(NumLigne, 25).Value
 
                       Else:
                            Me.Questions.AddItem Cells(NumLigne, 28).Value
                            Me.Questions.List(Questions.ListCount - 1, 1) = Cells(NumLigne, 14).Value
                            Me.Questions.List(Questions.ListCount - 1, 2) = Cells(NumLigne, 2).Value
                            Me.Questions.List(Questions.ListCount - 1, 3) = Cells(NumLigne, 6).Value & Cells(NumLigne, 7).Value & Cells(NumLigne, 8).Value & Cells(NumLigne, 9).Value
                            Me.Questions.List(Questions.ListCount - 1, 4) = Cells(NumLigne, 25).Value
 
                       End If
 
                    End If
                    NumLigne = NumLigne + 1
 
                Loop
 
End Sub

Je souhaiterais qu'en descendant dans la ListBox, Le contenu de la colonne 4 s'affiche dans un TextBox. Je ne sais pas quelle synthaxe noter dans le Private Sub Questions_Change

Pouvez-vous m'aider
Merci par avance

MichaSarah

[jojo86]

Salut je ne suis pas sur de ce que tu veux faire mais essaye:

Code :

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

1
2
3
 
'code a placer dans le onchange du listbox
Textbox1.Text= NomDuListBox.text

Il faut ajouter un textbox sur ta feuil.

Est-ce ca que tu souhaite realiser?

[MichaSarah]

Bonjour jojo86,
Le TextBox est bien présent sur mon formulaire. J'utilise déja la synthaxe que tu me propose ,elle fonctionne mais unquement lorsque la ListBox fait référence à une plage de cellules d'un fichier Excel. Je n'arrive pas à la faire fonctionner lorsque j'ajoute des éléments via "Additem" dans la listBox.

Salutations
MichaSarah

[patricktoulon]

bonjour

regarde dans les propriete de ta list box a quelle collone tu a mis la propriete "text"

au plaisir

[jojo86]

Peux tu réxpliquer ton probleme? Peux tu Resumer ton code? Je pense que le probleme est minime... Mais réxplique moi stp!

[MichaSarah]

Bonjour,
Mon code est le suivant :

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
 
Private Sub UserForm_Activate()
     Dim NumLigne As String
 
     Windows("Pamm's.xls").Activate
     Sheets("Pamms").Select
     NumLigne = 7
 
                Do While Not IsEmpty(Cells(NumLigne, 28))
                    If Cells(NumLigne, 25) <> "" Then
                         If Cells(NumLigne, 2).Value = "" Then
 
                             Me.Questions.AddItem Cells(NumLigne, 28).Value
                             Me.Questions.List(Questions.ListCount - 1, 1) = Cells(NumLigne, 14).Value
                             Me.Questions.List(Questions.ListCount - 1, 2) = Cells(NumLigne, 1).Value
                             Me.Questions.List(Questions.ListCount - 1, 3) = Cells(NumLigne, 6).Value & Cells(NumLigne, 7).Value & Cells(NumLigne, 8).Value & Cells(NumLigne, 9).Value
                             Me.Questions.List(Questions.ListCount - 1, 4) = Cells(NumLigne, 25).Value
 
                       Else:
                            Me.Questions.AddItem Cells(NumLigne, 28).Value
                            Me.Questions.List(Questions.ListCount - 1, 1) = Cells(NumLigne, 14).Value
                            Me.Questions.List(Questions.ListCount - 1, 2) = Cells(NumLigne, 2).Value
                            Me.Questions.List(Questions.ListCount - 1, 3) = Cells(NumLigne, 6).Value & Cells(NumLigne, 7).Value & Cells(NumLigne, 8).Value & Cells(NumLigne, 9).Value
                            Me.Questions.List(Questions.ListCount - 1, 4) = Cells(NumLigne, 25).Value
 
                       End If
 
                    End If
                    NumLigne = NumLigne + 1
 
                Loop
 
End Sub

Je souhaite pouvoir afficher dans un textbox le contenu de la dernière colonne

Salutations
MichaSarah

Bonjour patricktoulon,
Dans la fenêtre propriété le paramètre Text est vide

Salutations
MichaSarah