ListBox

[Toubabou]

Bonjour à tous,

Dans un UserForm, j'ai une ListBox et je voudrais quelle disparaisse après sélection. pourriez vous me dire comment faire?
La ListBox agit lorsque l'on saisi un Code Postal dans la TextBox concernée

Cordialement,



Ce lien n'existe plus

Toubabou

 

[gilbert_RGI]

Re : ListBox

bonjour

mettre

Private Sub UserForm_Initialize()
ListboxVilles.Visible = True
End Sub

et

Private Sub ListboxVilles_Click()
TextBox25 = ListboxVilles.Value
ListboxVilles.Visible = False

End Sub

 

[camarchepas]

Re : ListBox

Bonjour ,


@Hello Gilbert , Eblouis par le soleil , je ne t'avais point vu

dans le code du userform , pour ces 2 routines
ListboxVilles.Visible = True ou false

Private Sub Textbox24_Change()
'd'après un code de Michel_m
Dim Tablo
Dim lettre As String, test As String
Dim cptr As Long, cptr_tablo As Long, DerLig As Long
 
lettre = UCase(TextBox24.Value)
If lettre = "" Then Exit Sub
ReDim Tablo(0)
ListboxVilles.Visible = True

ListboxVilles.Clear
DerLig = Sheets("CP").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("CP")
    For cptr = 1 To DerLig
        test = .Cells(cptr, 1)
         If .Cells(cptr, 1) Like lettre & "*" Then
            Tablo(cptr_tablo) = .Cells(cptr, 2)
            cptr_tablo = cptr_tablo + 1
            ReDim Preserve Tablo(cptr_tablo)
        End If
Next
End With
For cptr_tablo = LBound(Tablo) To UBound(Tablo)
    ListboxVilles.AddItem Tablo(cptr_tablo)
Next
End Sub
Private Sub ListboxVilles_Click()
 TextBox25 = ListboxVilles.Value
 ListboxVilles.Visible = False

End Sub

 

[Toubabou]

Re : ListBox

Bonjour gilbert_RGI,

Un grand merci cela fonctionne superbement. Par contre encore un petit conseil:
J'ai un soucis avec mon UserForm.
Il ne semble ps fonctionner correctement. je n'arrive pas à le remplir et lorsque je selectionne un identifiant il ne m'affiche pas la personne concernée. Etant grand débutant, jerecherche des codes à droite et à gauche et là il semblerait que j'ai fait une grosse co....
Pourriez vous me diriger?

Merci

Toubabou

 

[Toubabou]

Re : ListBox

Re

Merci CAMARCHEPAS,
Cela fonctionne parfaitement.

Toubabou

 

[camarchepas]

Re : ListBox

Pour l'identifiant, il est bien dans la combobox6,

et dans ton code , je ne vois pas cette combobox . essaies de voir,

Je reviens tout à l'heure pour savoir si tu ne t'es pas noyé afin de te lancer une bouée ...

 

[Toubabou]

Re : ListBox

Re,

Merci

 

[Toubabou]

Re : ListBox

Re à tous,

Je viens de trouver mon erreur (enfin je pense) Je voulais faire un UserForm avec un MultiPage, J'ai donc réalisé la première page, et dans les page suivante voulant retrouver la ComboBox1 ainsi que deux ou trois TextBox, j'ai semplement fait un copié collé de celle-ci.
Ce qui visiblement à fait un grand B..... en renommant les ComboBox et TextBox
Je vais recommencer à zéro et reviendrai vers vous encore plus humblement😱

Toubabou

 

[Toubabou]

Re : ListBox

Bonjour à tous,

Je viens de faire un peu de ménage. Comme ma demande ne concerne plus ce Post je vais en créer un nouveau

Merci à vous deux

Toubabou