Soucis avec Une ComboBox

MuscatMimi · 4 Mars 2009

Bonjour a tout le Forum

Voila ,je viens de récupérer ce code
pour une ComboBox

Private Sub cbxNom_Change()

Set c = Range(F13.Range("a3"), F13.Range("a65536").End(xlUp)).Find(cbxNom)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
NbPrenom = NbPrenom + 1
cbxPrenom.AddItem c.Offset(0, 1)
Set c = Range(F13.Range("a3"), F13.Range("a65536").End(xlUp)).FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
If NbPrenom > 1 Then
cbxPrenom.ShowDropButtonWhen = fmShowDropButtonWhenAlways
tbxN°Ligne = ""
Else
tbxN°Ligne = c.Row
End If
End If

End Sub

Dés que je sélectionne un Nom dans cette Cbx, ça me
masque la fléche, donc je ne peut plus
utiliser ma Cbx une fois le Nom sélectionner

je ne sais pas quoi modifier,

Cordialement

Bonne journée a tous

Pierrot93 · 4 Mars 2009

Re : Soucis avec Une ComboBox

Bonjour vaucluse

A quoi sert cette ligne ?

Code:

cbxPrenom.ShowDropButtonWhen = fmShowDropButtonWhenAlways

Si tu l'enlèves, cela ne va pas mieux ?

bonne journée
@+

MuscatMimi · 4 Mars 2009

Re : Soucis avec Une ComboBox

Bonjour Pierrot

Merci de ta réponse

Plus simple je met lefichier en version allégée
ce que j'aimerais arriver a réaliser, c'est
de choisir un Nom dans la cbNom, et faire afficher les données correspondantes a ce Nom, dans les diverses Tbx de l'Usf
La ,ça le fait pour un Nom sélectionné, mais aprés je ne peu plus rien faire

Bonne journée a tous et a toi Pierrot
cordialement

Pierrot93 · 4 Mars 2009

Re : Soucis avec Une ComboBox

Re

vois toujours la ligne de code en question dans ton fichier....

un petit fichier est tout de même préférable... un usf et un combo... Testes au moins en enlevant cette ligne....

@+

Soucis avec Une ComboBox

MuscatMimi

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Discussions similaires