Soucis avec Une ComboBox

MuscatMimi

XLDnaute Accro
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
 

MuscatMimi

XLDnaute Accro
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
 

Pièces jointes

  • Nouveau Dossier compressé.zip
    91.5 KB · Affichages: 20
  • Nouveau Dossier compressé.zip
    91.5 KB · Affichages: 21
  • Nouveau Dossier compressé.zip
    91.5 KB · Affichages: 21

Discussions similaires

Réponses
12
Affichages
811
Réponses
8
Affichages
732
Réponses
1
Affichages
444
Réponses
12
Affichages
793
Réponses
7
Affichages
530

Statistiques des forums

Discussions
315 260
Messages
2 117 852
Membres
113 350
dernier inscrit
manu_mileco