XL 2019 vba combobox

[Muhadini]

Bonsoir à tous

Impossible de mettre ma liste de nom du tableau dans ma combobox, qui sois également attaché au numéro de vestiaire (important) !!

cela fait 2 heures que je suis deçu !!! Et je n'arrive pas à comprendre mon erreur, je suis débutante d'accord, mais enfin.... !!!

Merci d'avance...

 

[Compte Supprimé 979]

Bonsoir Muhadini,

Mais ou est le code pour alimenter la combo à l'ouverture !?

Pourquoi utiliser un combobox pour le nom en face du vestiaire, tu n'as qu'une possibilité !?

@+

 

[Muhadini]

Bonsoir Bruno,

Quand vous cliquez sur ajouter/modifier vous avez l'ouverture du formulaire...

Et mon code est dans la feuille pour l'ouverture du formulaire

 

[Compte Supprimé 979]

Re,

Ne vous inquiétez pas pour moi, je sais ou se trouve le code 😂 🤣

Ce dont je veux parler, c'est ça

@+

 

[Muhadini]

Re,

Ne vous inquiétez pas pour moi, je sais ou se trouve le code 😂 🤣

Ce dont je veux parler, c'est ça
Regarde la pièce jointe 1097761

@+

Pardonnnn.... autant pour moi !

Le commandbutton2_click, je ne l'ai pas encore programmé (par la suite j'essaierai de le programmé pour vider un vestiaire ).

Le private sub à la base il y avait le code pour alimenter ma combobox pour le nom,prénom et également le numéro de vestiaire (les deux sont liés).

private sub formulairevestaire_Initialize() - je l'ai fait parce que ma privat sub userforme_initialize() ne marchait pas !

dans ma user forme initalize () il y avait ça:
__________________________________________________________

Application.ScreenUpdating = False
ListBox1.Clear

If ComboBoxnom <> "" Then
For Ligne = 1 To 24
If Cells(Ligne, 1) Like "*" & ComboBoxnom & "*" Then
ListBox1.AddItem Cells(Ligne, 3)
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(Ligne, 3)
ListBox1.List(ListBox1.ListCount - 1, 2) = Format(Cells(Ligne, 4), "0# ## ## ## ##")
End If
Next
End If
Application.ScreenUpdating = True
_________________________________________________________________--

ensuite je l'ai rattaché directement sur le bouton.... enfin voilà le bordel quoi....

 

[patricktoulon]

Bonsoir
toujours j'ajoute une colonne pour mémoriser les lignes (c'est plus simple que de rechercher la la ligne correspondante apres
libre a toi de la masquer en débloquant la ligne

'Private Sub Formulairevestiaire_Initialize()
'End Sub
Private Sub UserForm_Activate()
    reliste
End Sub
Sub reliste()
    Dim F
    Set F = Sheets("vestiaire")
    With ComboBoxnom: .List = F.Range("B3:c" & F.Cells(Rows.Count, "B").End(xlUp).Row).Value
        For i = 0 To .ListCount - 1: .List(i, 1) = i + 3: Next
       '.columnwidth="100;0"   
 End With
End Sub

dans si peu de code il y a trop de bévues et méprises pour comprendre tes intentions
revois un peu ta conception si tu veux que l'on t'aide 😉

 

[Compte Supprimé 979]

Re,

Bon un peut de modifications, après à voir pour adapter pour vos besoins 😉

@+

 

[Muhadini]

Bonsoir
toujours j'ajoute une colonne pour mémoriser les lignes (c'est plus simple que de rechercher la la ligne correspondante apres
libre a toi de la masquer en débloquant la ligne

'Private Sub Formulairevestiaire_Initialize()
'End Sub
Private Sub UserForm_Activate()
    reliste
End Sub
Sub reliste()
    Dim F
    Set F = Sheets("vestiaire")
    With ComboBoxnom: .List = F.Range("B3:c" & F.Cells(Rows.Count, "B").End(xlUp).Row).Value
        For i = 0 To .ListCount - 1: .List(i, 1) = i + 3: Next
       '.columnwidth="100;0"  
End With
End Sub

dans si peu de code il y a trop de bévues et méprises pour comprendre tes intentions
revois un peu ta conception si tu veux que l'on t'aide 😉

Ouai, faut vraiment que je regarde plus de tuto et de documentation... Merciiii 🙂 !

 

[Muhadini]

Re,

Bon un peut de modifications, après à voir pour adapter pour vos besoins 😉

@+

Re bruno,

Merci, je viens de regarder ton code et effectivement c'est plus structuré ! Faut que je le garde comme modèle... Merci encore, je te souhaite une bonne soirée 🙂 !